TGraphicField JPGImage landen

[ATS3788]

Hallo
Ich spiele ein wenig herum
und da ist mir aufgefallen
das

Delphi-Quellcode:

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

Leider nur geht wenn der Stream eine Native Bitmap ist.

Bei
DBImageMid.Picture.Assign(ImLeft.Picture);
sieht man das Bild im JPG Format nur wenn man es speichern möchte
alsi im Edit Mode ist, wird es nicht gespeichert.
Geht das speichern in der Datenbank nur mit Bitmap Streams und nicht mit JPGs PNGs

[Uwe Raabe]

Aus Neuerungen in Delphi Tokyo:

Zitat:

Direkte Unterstützung von VCL-TDBImage für JPEG- und PNG-Grafikformate.

[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.