Hallo patti, anbei dein abgeänderter Code. Sieh dir nochmal in aller Ruhe deinen geposteten Code durch,
da ist einiges nicht ganz korrekt. Solltest du dann noch fragen haben, meld dich wieder.
Delphi-Quellcode:
function WriteIconToStream(AIcon: TIcon): TStream;
begin
Result := TMemoryStream.Create;
AIcon.SaveToStream(Result);
AIcon.Free;
AIcon := nil;
end;
function ReadIconFromStream(AStream: TStream): TIcon;
begin
AStream.Seek(0, 0);
Result := TIcon.Create;
Result.LoadFromStream(AStream);
AStream.Free;
AStream := nil;
end;
var
AIcon: TIcon;
AStream: TStream;
begin
AIcon := TIcon.Create;
AIcon.LoadFromFile('C:\test.ico');
AStream := WriteIconToStream(AIcon);
AIcon := ReadIconFromStream(AStream);
self.Canvas.Draw(150, 150, AIcon);
end.
lg. Astat