DBImage - Bitmap ist ungültig

[joachimd]

müsste auch ohne Zwischenspeichern gehen. Folgendes funzt, wenn das Bitmap direkt drinsteht (also ohne OLE Header):

Delphi-Quellcode:

procedure TMainForm.LoadBMP;
var
  bmp:TBitmap;
  ms:TMemoryStream;
begin
  ms:=TMemoryStream.Create;
  try
    TBlobField(tbBilder.FieldByName('Bild')).SaveToStream(ms);
    ms.Position:=0;
    bmp:=TBitmap.Create;
    try
      bmp.LoadFromStream(ms);
      Image1.Picture.Assign(bmp);
    finally
      FreeAndNil(bmp);
    end;
  finally
    FreeAndNil(ms);
  end;
end;

Du müsstest eigentlich nur noch die richtige Position rausfinden und den Stream sauber positionieren.