Application.Icon aus Resource laden? (Delphi 7)

[Z4ppy]

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 :D Ihr könnt euch bis am Vormittag Zeit lassen mit der Antwort, vorher werd ichs eh net lesen :D

€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...

[sx2008]

Also du darfst kein Objekt der Klasse TStream direkt erzeugen sondern immer nur die Nachkommen
der TStream-Klasse (z.B. TMemoryStream, TStringStream, TFileStream, ...).
TStream ist ein abstrakte Basisklasse.

Du verwendest FreeAndNil in falscher Weise.
Nur bei Variablen, die länger leben als nur ein Prozedureaufruf, macht FreeAndNil überhaupt Sinn.
Hier reicht ein normales Free völlig aus.

Delphi-Quellcode:

// ungetestet
procedure TForm1.FormCreate(Sender: TObject);
var Res:TResourceStream;
begin
  Res:=TResourceStream.Create(hInstance, 'res', PChar('ICO'));
  Application.Icon.LoadFromStream(Res);
  Res.Free;
  //...
end;

[Z4ppy]

Thx, it works :)

MfG Z4ppy