Ich möchte aus einer Resource mithilfe eines Streams ein Icon laden. Nun hab ich es so versucht:
Delphi-Quellcode:
procedure TForm1.FormCreate(Sender: TObject);
var Res:TResourceStream;
bla:TStream;
begin
bla:=TStream.Create;
Res:=TResourceStream.Create(hInstance, 'res', PChar('ICO'));
Res.SaveToStream(bla);
FreeAndNil(Res);
Application.Icon.LoadFromStream(bla);
FreeAndNil(bla);
//...
end;
Da kommt aber immer nur:
Code:
[Warning] Unit1.pas(44): Constructing instance of 'TStream' containing abstract method 'TStream.Read'
[Warning] Unit1.pas(44): Constructing instance of 'TStream' containing abstract method 'TStream.Write'
Zeile 44: bla:=TStream.Create;
Beim Ausführen kommt dann "Abstract Error"...
Was geht da vor?!
MfG Z4ppy
PS.: Wahrscheinlich isses irgendein ganz blöder Fehler, was wohl dran liegt, dass ich einfach verdammt müde bin
Ihr könnt euch bis am Vormittag Zeit lassen mit der Antwort, vorher werd ichs eh net lesen
€dit: Bitte kommt net mit "mach das icon doch via Project > Options... rein" oder so... Ich weiss, dass das so geht, aber ich brauch den Weg via Stream aus ner Resource...