Jpeg Resource

[nezumi]

Funzt leider immer noch nicht, daher beschreib ich nochmal ganz genau, was ich gemacht hab:

1. Im Ordner C:\temp befindet sich Datei "bild1.jpeg". Dort Textfile angelegt mit dem Eintrag:

mypics JPEG "bild1.jpeg"

Datei gespeichert unter "pics.rc" und mit BRCC32 "pics.res" file erstellt.

2. Dann zu Formular mit nur einem Button und einem Image-Objekt folgenden Quellcode:

Delphi-Quellcode:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, StdCtrls, jpeg;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Image1: TImage;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}
{$R pics.res}

procedure TForm1.Button1Click(Sender: TObject);
begin
Image1.picture.bitmap.handle:=LoadBitMap(HInstance,'mypics');
end;

end.

Wenn ich auf den Knopp drück passiert gar nix (Wenn ich das Ganze mit einem Bitmap-File mache gehts).

Hat jemand eine Idee??