Hallo,
Ich möchte in einem TImage ein jpg (TJpegImage) anzeigen lassen. Das fuinktioniert doch mit folgendem Code, oder?
NewImage.Picture.Assign(jpg);
Das Problem ist jetzt, dass ich das jpeg nicht direkt vorliegen habe, sondern als pointer. Und egal wie ich es drehe, ich erhalte am Ende statt des Bildes meine Lieblingsfehlermeldung: Zugriffsverletzung.
Delphi-Quellcode:
Var
pointer : pJPEG; // pJPEG = ^TJpegImage; Wird als Funktionsparameter übergeben
jpg : TJpegImage;
NewImage : TImage;
begin
// Image erstellen
NewImage := TImage.Create(TabBilder); // TabBilder ist ein TTabSheet in einem PageControl
NewImage.Parent := TabBilder;
NewImage.Top := 5;
NewImage.Left := 5;
NewImage.AutoSize := true;
// Bild laden
If pointer <> nil
then jpg := pointer^;
// Bild anzeigen
NewImage.Picture.Assign(jpg);
end;