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:

markieren

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

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

markieren

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

Application.Icon aus Resource laden? (Delphi 7)

Application.Icon aus Resource laden? (Delphi 7)

Re: Application.Icon aus Resource laden? (Delphi 7)

Re: Application.Icon aus Resource laden? (Delphi 7)

Forumregeln

Z4ppy Registriert seit: 25. Apr 2008 269 Beiträge Delphi 7 Enterprise	#3 Re: Application.Icon aus Resource laden? (Delphi 7) 10. Aug 2008, 11:17 Thx, it works MfG Z4ppy
	Zitat