danke,
es ist eine vollständige Bitmap Datei, diese wurde früher als OleVariant übergeben und mit diesem Code angezeigt:
Delphi-Quellcode:
procedure Tmainform.ConvertOleVarianttoBitmap(Data : OleVariant);
var
ms : TMemoryStream;
p : Pointer;
MyBitmap : TBitmap;
begin
ms:=TMemoryStream.Create;
p:=VarArrayLock(Data);
try
ms.Write(p^,VarArrayHighBound(Data,1)+1);
finally
VarArrayUnlock(Data);
end;
ms.seek(0,soFromBeginning);
myBitmap:=TBitmap.Create;
myBitmap.LoadFromStream(ms);
image.Picture.Assign(myBitmap);
ms.Free;
myBitmap.Free;
end;
Wie mach ich denn das ganze jetzt wenn ein TObject übergeben wird, dass ich in einem
Stream umwandeln und damit das Bitmap erzeugen will.
Kannst du mir vielleicht ein kleines Codebsp posten?
Danke,
winx