PNG-Bild aus BLOB-Feld in Image laden

[dataspider]

Zitat von Laaeris:

Speichern:
  BildSpeicherQuery.Params[0].Assign(PNG_Bild);

Ich glaube nicht, dass das funktioniert.
Ich würde das in etwa so machen:

Delphi-Quellcode:

procedure BildLaden;
var
  BildSpeicherQuery: TMyQuery;
  ImageStream: TMemoryStream;
begin
  if OpenDialog_NamenHauptform.Execute then
  begin
    ImageStream := TMemoryStream.Create;
    try
      BildSpeicherQuery := TMyQuery.Create(BBM_Datamodule);
      try
        BildSpeicherQuery.Connection := BBM_Datamodule.BMMConn;
        BildSpeicherQuery.SQL.Text := 'Update BBM_Verein set Wappenbild=:BILD Where idVerein=:ID';

        ImageStream.LoadFromFile(OpenDialog_NamenHauptform.FileName);
        ImageStream.Position := 0; // vorsichtshalber
        BildSpeicherQuery.Params[0].SetBlobData(ImageStream.Memory, ImageStream.Size);
        BildSpeicherQuery.Params[1].Value := Aktiv_Verein_ID;
        BildSpeicherQuery.ExecSQL;
      finally
        BildSpeicherQuery.Free;
      end;
    finally
      ImageStream.Free;
    end;
  end;
end;