PNGImage in Datenbank speichern und laden

[Hobbycoder]

Hi,

Ich will ein Logoimage (TPNGImage) in einer Tabelle ablegen.

In der Tabelle habe ich das Feld Logo als Longblob angelegt. (Sollte ich da lieber Binary nehmen? Wird das unterschiedlich in der DB gehalten?)

Delphi-Quellcode:

procedure TLogo.SaveToDB(Con: TZConnection);
var
  q: TZQuery;
  ms: TMemoryStream;
begin
  q:=TZQuery.Create(nil);
  try
    q.Connection:=Con;
    q.SQL.Text:='Insert into Testtabelle (bildname, Logo) VALUES (:bildname, :logo)';
    q.Params.ParamValues['bildname']:=self.Fbildname;
    ms:=TMemoryStream.Create;
    self.FLogo.SaveToStream(ms);
    ms.Position:=0;
    q.ParamByName('logo').LoadBinaryFromStream(ms);
    q.ExecSQL;
  finally
    q.Free;
    ms.Free;
  end;
end;

procedure TLogList.LoadFromDB(Con: TZConnection);
var
  F: TLogo;
  q: TZQuery;
  ms: TStream;
begin
  q:=TZQuery.Create(nil);
  try
    self.Clear;
    q.Connection:=Con;
    q.SQL.Text:='Select * from Testtabelle';
    q.Active:=True;
    while not q.Eof do
    begin
      F:=TLogo.Create;
      F.bildname:=q.FieldByName('bildname').AsString;
      ms:=q.CreateBlobStream(q.FieldByName('logo'), bmRead);
      try
        if ms.Size>0 then
          F.Logo.LoadFromStream(ms);
      finally
        ms.Free;
      end;
      self.Add(F);
      q.Next;
    end;
    q.Active:=False;
  finally
    q.Free;
  end;
end;

Beim Laden bekomme ich immer die Meldung: "Dieses "Prtable Network Graphics" Bild ist ungültig. Der Dekoder ist unerwartet auf das Ende der Datei gestoßen."

[bcvs]

Mach vor dem F.Logo.LoadFromStream(ms); mal ein ms.Position:=0;

[jaenicke]

Und wenn das nicht hilft, speichere den Stream doch einfach mal in eine Datei und prüfe und ggf. vergleiche den Inhalt, ggf. mit einem Hexeditor.

Direktes Laden des gleichen Streams nach dem Speichern funktioniert aber?

[Hobbycoder]

Zitat von bcvs:

Mach vor dem F.Logo.LoadFromStream(ms); mal ein ms.Position:=0;

Hatte ich, habs nur beim zusammenkürzen für den Post versehentlich mit gelöscht.

Zitat von jaenicke:

Und wenn das nicht hilft, speichere den Stream doch einfach mal in eine Datei und prüfe und ggf. vergleiche den Inhalt, ggf. mit einem Hexeditor.

Direktes Laden des gleichen Streams nach dem Speichern funktioniert aber?

Der Fehler sitzt natürlich immer vorm Monitor

Aber das mit dem Speichern hat mich auf die richtige Spur gebracht.
Im Programm gibt es 2 Möglichkeiten einen Eintrag zu Editieren. Zum einen über den "Bearbeiten"-Button und über Doppelklick.
In der Button-Methode habe ich das geladene PNG zum Object Assigned und in der Doppelklick-Methode vergessen.
Beim Testen habe ich natürlich, weil man es ja so intuitiv mache, mit Doppelklick editiert. Ergo, in meinem Object war das PNG immer leer.

[jaenicke]

Ja, dann geht man unterbewusst von falschen Voraussetzungen aus, so dass man den Fehler nur an der falschen Stelle sucht. Das merkt man nur leider selbst in der Situation nicht unbedingt. Das ist wohl jedem schon nicht nur einmal passiert.

Das ist genau der Grund, weshalb ich hier dann solche Fragen stelle, um erst einmal sicher zu sein, dass der gezeigte Code auch das Problem beinhaltet.

[Bernhard Geyer]

Longblob/binary sollten im prinzip das gleiche sein
BLOG steht für Binary Large Object

Maximal irgendwelche Spezialoperationen oder maximale Größe könnten etwas differieren.
evtl. ist das eine bei SEHR VIELEN SEHR GROßEN Daten besser.