Hallo rantanplan99,
ich habe meine Frage nicht richtig formuliert. Wie du es schreibst geht es auch aber ich will den Inhalt de Imagekomponente dann in einem Array speichern:
Code:
type
Test = Record
Text1: String;
Text2: String;
Text3: String;
Vorschau: TJPEGImage;
end;
Tts = array of Test;
var
Form1: TForm1;
fs: TFileStream;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var len: LongInt;
ts: Tts;
i: Integer;
JPEG: TJPEGImage;
begin
JPEG:=TJPEGImage.Create;
SetLength(ts,2);
ts[0].Text1:=Edit1.Text;
ts[0].Text2:=Edit2.Text;
ts[0].Text3:=Edit3.Text;
JPEG.Assign(Image1.Picture.Bitmap);
ts[0].Vorschau.Assign(Image1.Picture.Bitmap); <- Fehler!!!!
...
Vieleicht kann jemand was mit diesem stück Quellcode anfangen. Der Inhalt soll jetzt in dem Array gespeichert werden.
Ich bekomme aber immer an der arkierten Stelle eine Zugriffsverletzung.