TGraphicField JPGImage landen

[ATS3788]

Hallo Uwe
Danke für Deine Antwort.
ich verstehe nicht ich habe nur XE7 Pro und geht das damit oder nicht wenn nich konvertiere ich das eben alles in eine Bitmap.

[Uwe Raabe]

Nein, das geht erst ab Delphi 10.2 Tokyo.

[ATS3788]

Danke Uwe
Einen schönen 1 Advents Sonntag wünsche ich Dir

[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

[Redeemer]

Ist nicht sinnvoll, wenn unterschiedliche Dateitypen gespeichert werden. Solange du da nur JPEGs drin hast, mag das gehen.

Der Compiler wird meckern, denn Create gehört vor try.

[DeddyH]

Genau, ich würde es so schreiben (Geschmackssache, aber ich versuche verschachtelte Ressourcenschutzblöcke zu vermeiden):

Delphi-Quellcode:

JpgImage := nil;
Stream := TMemoryStream.Create;
try
  JpgImage := TJpegImage.Create;
  {... Code}
finally
  JpgImage.Free;
  Stream.Free;
end;

Und wenn man andere Grafikformate unterstützen möchte, sollte man sich das Format zusätzlich abspeichern (Dateiendung, MIME-Type, Fremdschlüssel auf eine Formatdefinitionstabelle oder oder oder), das sollte auch funktionieren, wenn man sorgfältig arbeitet.

[ATS3788]

Super Danke DaddyH

[Uwe Raabe]

Alternativ zum Umweg über den MemoryStream kann man sich auch gleich vom DataSet einen BlobStream geben lassen: CreateBlobStream

Delphi-Quellcode:

var
  stream: TStream;
  JpgImage: TJpegImage;
begin
  { Image in BlobField schreiben }
  stream := DataModule1.FDMemTable.CreateBlobStream(DataModule1.FDMemTableGraficBlob1, bmWrite);
  try
    ImLeft.Picture.Graphic.SaveToStream(stream);
  finally
    stream.Free;
  end;

  { Image aus BlobField lesen }
  JpgImage := TJpegImage.Create;
  try
    stream := DataModule1.FDMemTable.CreateBlobStream(DataModule1.FDMemTableGraficBlob1, bmRead);
    try
      JpgImage.LoadFromStream(Stream);
    finally
      stream.Free;
    end;

    ...

  finally
    JpgImage.Free;
  end;
end;

OT:

Zitat:

ich versuche verschachtelte Ressourcenschutzblöcke zu vermeiden

Das saubere Trennen der Schutzblöcke für jede Resource erleichtert allerdings das Refactoring ungemein.