Einzelnen Beitrag anzeigen

Lemmi

Registriert seit: 8. Aug 2006
11 Beiträge
 
#1

JPg aus DB laden und in TImage anzeigen

  Alt 9. Aug 2006, 21:07
Datenbank: mysql • Version: 4xx • Zugriff über: zeos
Hi, ich möchte ein bild in einer tabelle speichern und dann in ein TImage laden.

Delphi-Quellcode:
// Speichern
               jpg:=TJPEGImage.Create;
                m:=TMemoryStream.Create;
                try
                jpg.Assign(img_main_logo.Picture.Graphic);

                jpg.SaveToStream(m);
                m.Position := 0;
                TBlobField(aqTmp.FieldByName('pfad')).LoadFromStream(m);
                finally
                    FreeAndNil(m);
                    FreeAndNil(jpg);
                end;

// Laden
                jpg:=TJPEGImage.Create;
                m:=TMemoryStream.Create;
                try
                    TBlobField(aqTmp.FieldByName('pfad')).SaveToStream(m);
                    m.Position:=0;
                    jpg.LoadFromStream(m);
                    img_main_logo.Picture.Assign(jpg);
                finally
                    FreeAndNil(m);
                    FreeAndNil(jpg);
                end;
Diesen Code fand ich in einem Älteren Thread, wurde aber nicht wirklich schlau daraus...

Das Speichern klappt, Problem ist halt, nachdem die Zeile:
img_main_logo.Picture.Assign(jpg); ausgeführt wird, erhalte ich eine Fehlermeldung: Premature end of JPEG File

Hab mir schon nen wolf gesucht, leider nix dergleichen gefunden...muss doch irgendwie möglich sein

Bin für jede Hilfe Dankbar

Achso, in der Tabelle hab ich natürlich?! ein Blob-Feld genommen
Es gibt kein Problem, aber ich arbeite dran.
  Mit Zitat antworten Zitat