Procedure Werte

[codenoob]

Hi Delphianer

Ich habe verschiedene Bilder in einer Resourcedatei die ich auslesen kann.

Delphi-Quellcode:

procedure Bildauslesen;
var
  Hd: THandle;
  Ico: TIcon;
begin

  Hd:= LoadImage(HInstance, 'RES_ICON1', IMAGE_ICON, 0, 0, LR_DEFAULTCOLOR);

  Ico:= TIcon.Create;

  Ico.ReleaseHandle;
  Ico.Handle := Hd;

  Form1.image1.Picture.Icon.Assign(ico);
  Ico_1.Free;

end;

Nun wollte ich die Prozedur so umbauen das ich sie aufrufen kann und bestimmen kann welches Icon in welche Timage geladen werden soll.

Delphi-Quellcode:

procedure Bildauslesen(ICON: String; IMG: Timage);
var
  Hd: THandle;
  Ico: TIcon;
begin

  Hd:= LoadImage(HInstance, ICON, IMAGE_ICON, 0, 0, LR_DEFAULTCOLOR);

  Ico:= TIcon.Create;

  Ico.ReleaseHandle;
  Ico.Handle := Hd;

  IMG.image1.Picture.Icon.Assign(ico);
 
  Ico_1.Free;

end;

und mit dem Befehlt
 Bildauslesen(icon1 , Image1); will ich das dann ausführen

Aber dies funktioniert nicht was mache ich da falsch?

Grüsse Tom

[Luckie]

Fehlermeldung? Und ist da nicht ein TImage zu viel: IMG.image1.Picture.Icon.Assign(ico); Du übergibst doch schon das TImage.

[hoika]

Hallo,
wenn der 1. Parameter ein String ist ...

Bildauslesen('icon1',


Heiko

[Blup]

ReleaseHandle hat dort nichts zu suchen:

Zitat:

ReleaseHandle informiert die TIcon-Instanz, dass sie für die Freigabe des Symbol-Handles nicht mehr zuständig ist.

Ico ist dafür verantwortlich das alte Handle freizugeben, wenn ein neues Handle zugewiesen wird.

Wenn man "Ico" erzeugt, muss man "Ico" auch freigeben und nicht irgendwas anderes z.B. "Ico_1".

Delphi-Quellcode:

procedure Bildauslesen(const ICON: string; IMG: TImage);
var
  Hd: THandle;
  Ico: TIcon;
begin
  Hd := LoadImage(HInstance, ICON, IMAGE_ICON, 0, 0, LR_DEFAULTCOLOR);

  Ico := TIcon.Create;
  try
    Ico.Handle := Hd;
    IMG.Picture.Assign(Ico);
  finally
    Ico.Free;
  end;
end;