Bild (BLOB) aus SQLite DB in TImage übertragen

[FediDelPr]

Liebe Delphianer,

Mittlerweile geling es mir vermutlich Bilder von TImage als BLOB in eine SQLite DB zu schreiben.
Warum vermutlich: weil ich's noch nicht wirklich verifizieren konnte.

Daher möchte ich jetzt den umgekehrten Weg implementieren: Auslesen eines des Bildes in der DB und wieder Speicherung in einem TImage.

Kann mir da jemand helfen?

Gruss

[FediDelPr]

Entschuldigt, es ist mir ein Fehler unterlaufen:

Die Speicherung des BLOBs in die DB erfolgt nicht von TImage aus, sondern von TMemoryStream.

Die folgenden beiden Zeilen mit LoadFromFile() laden das Bild in den MemoryStream ms bzw. in Image1
und wird damit angezeigt.

VAR ms: TMemoryStream;

ms.LoadFromFile('C:\Users\.....\IMG_2880.jpg');
Image1.Picture.LoadFromFile('C:\Users\.....\IMG_28 80.jpg');

Die Übertragung in die DB erfolgt übrigens mit INSERT INTO ...

Rücklesen
Die Aufgabe des Rücklesens besteht aus folgenden Schritten:
1. Auslesen des BLOBs aus DB und Speicherung in Stream
2. Stream in TImage übertragen

oder

vielleicht gibt es für 1. und 2. eine Kombination.

[peterbelow]

Ganz so einfach ist das Lesen nicht, da das Format des Bildes nicht ohne aufwendige Analyse des TBlobStream-Inhaltes aus den BLOB-Daten ermittelt werden kann. TImage oder TPicture.LoadFromFile benutzt halt die Datei-Extension um intern die richtige Graphic-Klasse (TBitmap, TPngImage, TJPegImage etc.) zu ermitteln, davon eine Instanz zu erzeugen, deren LoadFromFile-Methode aufzurufen und die Instanz an Image.Picture.Graphic zuzuweisen.

Die einfachste Lösung für dich ist das Imageformat in einem anderen Feld der Datentabelle mit abzuspeichern, z. B. die Datei-Extension der Orginaldatei. Du kannst die BLOB-Daten dann in eine temporäre Datei mit der gespeicherten Extension schreiben und die dann in das Image laden.

[Frickler]

Zitat von peterbelow:

TImage oder TPicture.LoadFromFile benutzt halt die Datei-Extension um intern die richtige Graphic-Klasse (TBitmap, TPngImage, TJPegImage etc.) zu ermitteln, davon eine Instanz zu erzeugen, deren LoadFromFile-Methode aufzurufen und die Instanz an Image.Picture.Graphic zuzuweisen.

Das fällt einem dann auf die Füße, wenn mal wieder PNG Dateien mit der Erweiterung JPG gespeichert wurden. Keine Ahnung, wer das wo verbricht, aber diese Dateien begegnen mir in meinem Umfeld (Marketing Material) oft genug, so dass ich jedes Mal vor dem Laden teste.

P.S.: Wenn man diese Dateien mit IrfanView öffnet, bietet einem das Programm an, die falsche Erweiterung umzubenennen.

[HolgerX]

Hmm..

Zitat von Frickler:

Zitat von peterbelow:

TImage oder TPicture.LoadFromFile benutzt halt die Datei-Extension um intern die richtige Graphic-Klasse (TBitmap, TPngImage, TJPegImage etc.) zu ermitteln, davon eine Instanz zu erzeugen, deren LoadFromFile-Methode aufzurufen und die Instanz an Image.Picture.Graphic zuzuweisen.

Das fällt einem dann auf die Füße, wenn mal wieder PNG Dateien mit der Erweiterung JPG gespeichert wurden. Keine Ahnung, wer das wo verbricht, aber diese Dateien begegnen mir in meinem Umfeld (Marketing Material) oft genug, so dass ich jedes Mal vor dem Laden teste.

P.S.: Wenn man diese Dateien mit IrfanView öffnet, bietet einem das Programm an, die falsche Erweiterung umzubenennen.

Das kommt z.B. dann vor, wenn jemand ein Bild aus dem Internet geladen hat!
Dort ist als Link ein .jpg Bild aber der Server schickt dann (unter diesem Namen) auch mal gerne ein PNG oder WEBP.
Dem Browser ist dies zur Anzeige egal, jedoch nicht dem "Bild Speichern unter", welches den JPG Filenamen verwendet.

[dataspider]

Ich nutze hier TWICImage, da ich hier von einem Stream laden kann:

Beispielcode aus meinem ImagViewer:

Delphi-Quellcode:

procedure TImageViewer.doLoadFromStream(AStream: TStream);
Var
  AImage: TWICImage;
begin
  AImage := TWICImage.Create;
  try
    AImage.LoadFromStream(AStream);
    ImageView.Picture.Bitmap.Assign(AImage);
  finally
    AImage.Free;
  end;
end;

Frank

[mytbo]

Zitat von FediDelPr:

Mittlerweile geling es mir vermutlich Bilder von TImage als BLOB in eine SQLite DB zu schreiben.

Diese Artikel enthalten Beispiele, die das Gewünschte umsetzen:

• ORM und DocVariant kurz vorgestellt
• Einführung in methodenbasierte Services

Vielleicht findest du hier eine Anregung.

Bis bald...
Thomas

[haentschman]

Hallöle...

@mytbo: ist mORMot in diesem Falle nicht etwas übertrieben?

Zitat:

Ganz so einfach ist das Lesen nicht, da das Format des Bildes nicht ohne aufwendige Analyse des TBlobStream-Inhaltes aus den BLOB-Daten ermittelt werden kann.

Im Prinzip richtig. Aber aufwendig ist es nicht... Das Format des Bildes steht im Header des Streams.
Beispiel:
https://www.delphipraxis.net/155578-...-erkennen.html
Liste der Header:
https://en.wikipedia.org/wiki/List_of_file_signatures

[mytbo]

Zitat von haentschman:

@mytbo: ist mORMot in diesem Falle nicht etwas übertrieben?

mORMot ist für mich nicht nur ein weiteres Framework, sondern das Fundament meiner Pascal-Entwicklung. Ohne mORMot wäre Pascal in meinem Umfeld nicht mehr konkurrenzfähig - ich müsste mich von ihr als Entwicklungsplattform verabschieden. Ohne mORMot keine Embarcadero Delphi Subscription.

Bis bald...
Thomas