TGraphicField JPGImage landen

[ATS3788]

Lieber Uwe ich habe da noch ein wenig rumgebastelt und
das kam dabei raus

Delphi-Quellcode:

var
Stream   : TMemoryStream;
JpgImage : TJpegImage;


begin
try
Stream := TMemoryStream.Create;
JpgImage := TJpegImage.Create;
case _DatasetMode of
dsm_Insert: DataModule1.FDMemTable.Edit;
dsm_Append: DataModule1.FDMemTable.Append;
end;
/// Left Picture
ImLeft.Picture.Graphic.SaveToStream(Stream);
Stream.Position := 0;
DataModule1.FDMemTableGraficBlob1.LoadFromStream(Stream);

/// Middle Picture
ImMid.Picture.Graphic.SaveToStream(Stream);
Stream.Position := 0;
DataModule1.FDMemTableGraficBlob2.LoadFromStream(Stream);
Stream.Clear;

/// Middle Picture
ImRight.Picture.Graphic.SaveToStream(Stream);
Stream.Position := 0;
DataModule1.FDMemTableGraficBlob3.LoadFromStream(Stream);
Stream.Clear;

DataModule1.FDMemTableGraficBlob1.SaveToStream(Stream);
Stream.Position := 0;
JpgImage.LoadFromStream(Stream);

DBImageLeft.Picture.Assign(JpgImage);

DataModule1.FDMemTableGraficBlob2.SaveToStream(Stream);
Stream.Position := 0;
JpgImage.LoadFromStream(Stream);

DBImageMid.Picture.Assign(JpgImage);

DataModule1.FDMemTableGraficBlob3.SaveToStream(Stream);
Stream.Position := 0;
JpgImage.LoadFromStream(Stream);

DBImageRight.Picture.Assign(JpgImage);


  PageControl1.TabIndex := 0;
finally
JpgImage.Free;
   Stream.Free;
end;

Ich speichere die Grafikdaten in einem gewöhnlichen Blob und lade sie
mit einem Stream nach TJPEGImage und dann in ein TImage.
Kann man das so machen oder ist das nicht sinnvoll