Jpeg Resource

[nezumi]

Hallihallo,

Habe für mehrere Bitmaps eine Resource erstellt. Die Bilder sollen nacheinander in einem Image Fenster angezeigt werden. Die wesentlichen Programmbestandteile lauten:

Delphi-Quellcode:

implementation
{$R mypics.res}

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

Funktioniert, nur leider wird mir das Programm mit Bitmaps zu groß, deshalb möchte ich die Bilder in jpegs umwandeln.
Kann mir jemand sagen, wie dann der Aufruf erfolgt? ("Image1.picture.jpeg" gibts ja nicht).

Sorry wenn die Frage blöd sein sollte, bin noch relativ grün...

[Klaus01]

die Unit jpg in uses einbinden
und wie gewohnt die Bilder laden.

Grüße
Klaus

[nezumi]

Hallo Klaus,

also:

Delphi-Quellcode:

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, jpg;
...
implementation

{$R *.dfm}
{$R mypics.RES}

Aber wie erfolgt dann der Aufruf?

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
???????
end;

Ich kann doch dem Programm hier kaum was von bitmaps erzählen...

[Klaus01]

Image1.picture.bitmap.handle:=LoadBitMap(HInstance , 'bild1');

Bitmap erkennt ob es sich um ein jpg oder bmp handelt.

Grüße
Klaus

[nezumi]

Super, alles klar, vielen Dank.

[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??

[MrKnogge]

Hast du schonmal versucht dein Bild in der RS-Datei als Bitmap zu definieren ?

[turboPASCAL]

LoadBitMap läd keine Jpeg's, LoadBitMap läd Bitmaps.

[MrKnogge]

Ich kann LoadBitMap in meiner OH nicht finden.

[Die Muhkuh]

Haddu nicht in OH, muddu in Windows SDK gucken :stupid: