Welche Art von Grafik wurde gespeichert

[NoName1]

Vielen Dank für die Hilfestellung,
wenn ich die function von TiGü einsetze
erhalte ich immer als Extension "bmp" ob wohl eine png-Datei von mir gespeichert wurde.

Delphi-Quellcode:

var
  pExtension: string;
  pMStream: TMemoryStream;
  pAdressID: Int64;
begin
  // MvST -----------------------
  pAdressID := LeseAdressID(1);

  dtmdMain.ibqryEineUnterschrift.Close;
  dtmdMain.ibqryEineUnterschrift.ParamByName('pAdressID').Value := pAdressID;
  dtmdMain.ibqryEineUnterschrift.Open;
  pMStream := TMemoryStream.Create();
  try
    pMStream.Position := 0;
    dtmdMain.ibqryEineUnterschriftUTSCHRIFTBRD.SaveToStream(pMStream);
    pExtension := GetImageFileExtensionFromBlobStream(pMStream);// Code von TiGü
    Showmessage(pExtension); // <<löschen nicht vergessen
  finally
    pMStream.Position := 0;
    pMStream.Free;
    dtmdMain.ibqryEineUnterschrift.Close;
  end;
  // ---------------------------------
  dtmdMain.sqlKopiereUnterschrift.Close;
  dtmdMain.sqlKopiereUnterschrift.ParamByName('pAdressID').Value := pAdressID;
  dtmdMain.sqlKopiereUnterschrift.ExecQuery;
  dtmdMain.sqlKopiereUnterschrift.FieldByName('utschriftbrd').SaveToFile(GlobalPfad + AnmeldeName
    + '\uschrmvst.' + pExtension);
  dtmdMain.sqlKopiereUnterschrift.Close;

Was mache ich falsch?

[Klaus01]

.. wie wird denn die Grafik als Blob abgespeichert?

Grüsse Klaus

[NoName1]

Die Grafik speichere ich so:
Im Value wird der Pfad und der Name der Datei übergeben:
z.B.: "d:\VerzeichnisName\name_der_datei.png"

Delphi-Quellcode:

  procedure TOAdressen.SetUSchrBruder(const Value: string); 
begin
  dtmdMain.DoStartTransaction;
  dtmdMain.adressen.Edit;
  if Value <> '' then
    dtmdMain.adressenUTSCHRIFTBRD.LoadFromFile(Value)
  else
    dtmdMain.adressenUTSCHRIFTBRD.Clear;
  dtmdMain.adressen.Post;
end;

[Klaus01]

.. mhm,
kannst Du mal debuggen und schauen was in Deinem Stream steht?
Eine Konvertierung von png/jpg nach bmp wird nirgends vorgenommen?

Grüße
Klaus

[TiGü]

Genau, direkt nach dtmdMain.adressenUTSCHRIFTBRD.LoadFromFile(Value) einfach mal in einen Stream zurück laden und der Funktion vorwerfen.
Ggf. ein bisschen mit der Reihenfolge der If-Abfragen spielen, also TPngImage.CanLoadFromStream(ABlobStream) zuerst.

[NoName1]

Vielen Dank Euch beiden.
Mit dem zusätzlichen Tipp von TiGü hat es geklappt.
Also neueinlesen und dann an die Funktion übergeben.

[himitsu]

TPicture hat seit ein paar wenigen Jahren endlich auch in der LoadFromStream einen Code drin, welcher die Magic-Bytes prüft,
entsprechend dem CanLoadFromStream. (für alle TGraphic-Typen, welche registriert sind, also wo die Units eingebunden sind)

Früher ging LoadFromStream immer nur beim "richtigen" Graphic-Typen
und nur im LoadFormFile war eine Prüfung der Dateiendung drin.

Leider war mal wieder einer der Entwickler dermaßen asozial und hat alles in der Implementation versteckt
und bietet keinen direkten Zugriff auf FileFormats, bzw. TheGraphicsClass := FileFormats.FindFormat(YourStrem); {if Assigned(TheGraphicsClass) then} YourFileExtension := GraphicExtension(TheGraphicsClass);

PS: GraphicExtension, was auch auf der "geheimen" Liste "FileFormats" basiert, über welche TImage/TPicture und die TGraphic's sich intern verwalten.