Deutsches Lazarusforum

Hallöchen,

bin ziemlicher Anfänger mit Lazarus, bitte nicht schimpfen

Frage: Wie speichere ich ein beliebiges Bild aus dem Internet auf der Festplatte? Es ist nur URL und das Format (PNG) bekannt.

Viele Grüße & Danke, Atreiju.

Habe meine Frage jetzt nochmal allgemeiner und treffender formuliert: http://www.lazarusforum.de/viewtopic.php?p=59204#p59204

Der Thread hier kann dann glaube ich geschlossen werden.

Hallöchen,

ich will unbedingt einen QR-Code in einer Datei speichern. Der QR-Code soll dafür nicht angezeigt werden (soll im Hintergrund geschehen, da die Auflösung des QR-Codes recht groß sein soll).

Dazu ärgere ich mich mit LazBarcodes , schaffe es aber einfach nicht. Habe es schon mit der ...

Nö, dann braucht's kein Bitblt und Width etc. mehr.

MyBitmap.LoadFromDevice müsste reichen.

Aber wenn der Canvas nicht ganz sichbar ist, kannst du es auf diese Weise sowieso vergessen.

Ohne Bitblt etc kam das gleiche kuddelmuddel raus. Aber ja, ich brauche auf jedem Fall den gesamten BarcodeQR ...

Oh, was vielleicht noch wichtig ist: Das Element BarcodeQR ist nicht unbedingt vollständig auf dem Form sichtbar (da ich nämlich auch Barcodes ist hoher Auflösung generieren möchte).

[quote="theo"]Probier mal sowas:

Danke, aber da kommt ganz was komisch raus (siehe Anhang)

My Code war diesesmal:

procedure SaveCanvas(SaveCanvas : TCanvas; Size : Integer; FileName : string);
var
MyBitmap : TBitmap;
begin
MyBitmap:= TBitmap.Create;
MyBitmap.LoadFromDevice(SaveCanvas.Handle ...

Hallöchen,

ich versuche ein Canvas zu speichern. Leider ist das Ergebnis ein völlig schwarzes Bild:

procedure SaveCanvas(SaveCanvas : TCanvas; Size : Integer; FileName : string);
var
Bitmap : TBitmap;
begin
Bitmap := TBitmap.Create;
Try
Bitmap.Width := Size;
Bitmap.Height := Size;
BitBlt ...