Bild in Datenbank (MSSQL) speichern (muss leider sein)

[Leuselator]

Prinzip:

Delphi-Quellcode:

procedure SaveBitmapToDb(DasBild : TBitmap, DieQuery : TQuery);
var UnserStream : TMemoryStream;
begin
  // TQuery ausserhalb dieser Procedure vorbereiten
  // im QueryText muß enthalten sein: "BildFeldName = :Bild" 
  if not DasBild.Empty then begin
    DieQuery.Prepare;
    UnserStream := TMemoryStream.Create;
    try
      DasBild.SaveToStream(UnserStream);
      DieQuery.ParamByName('Bild').LoadFromStream(UnserStream,ftBlob);
    finally
      UnserStream.Free;
    end;
    DieQuery.ExecSQL;
  end;
end;

Mußt Du Dir ein wenig anpassen...
Gruß