URL to jpg or png

[charlytango]

Hi,

jetzt nur aus der Hüfte gefragt ohne größere Recherche:

gibt es eine Komponente oder eine elegante Methode, mit der man eine Art Screenshot einer (darin) angezeigten Webseite im Format JPG oder PNG erzeugen kann?
Onlinge gibt es etliche Angebote dieser Art, aber ich bräuchte so etwas in einer Lazarus-Applikation.

Danke im Voraus

[Michl]

Siehe http://wiki.freepascal.org/Developing_w ... the_screen

Kann bei einem TChromium unter Windows 7 z.B. so aussehen:

Code: Alles auswählen

uses ..., Graphics, LCLType, LCLIntf;
...
procedure TForm1.Button1Click(Sender: TObject);
var
  MyPNG: TPicture;
  aDC: HDC;
begin
  MyPNG := TPicture.Create;
//  aDC := GetDC(Handle);  // Snapshot vom ganzen Formular
  aDC := GetDC(Chromium.Handle);  // Snapshot der Browserkomponente
  try
    MyPNG.Bitmap.LoadFromDevice(aDC);
    MyPNG.SaveToFile(Application.Location + 'MyBrowser.png');
  finally
    ReleaseDC(Chromium.Handle, aDC);
    MyPNG.Free;
  end;
end;

[charlytango]

Danke für die Info -- werde es mir mal zu Gemüte führen -- mal sehen ob ich TChromium zur Mitarbeit bewegen kann