JPGs aus einer Resourcendatei laden

[Bernhard Geyer]

Ändere deinen Code mal nach:

 Image1.Picture.LoadFromResourceID(HInstance, 1); Deine Image-Instanz hat ja noch kein Bild geladen. So ist u.U. das Bitmap-Property auch nil.
Ebenfalls solltest du eine JPEG (wie Assarbad angemerkt hat) direkt ins Image-Picture-Laden und nicht erst versuchen damit ein Bitmap zu beauftragen (was damit ja nix anfangen kann).

[fiscch4]

wenn ich den code änder kommt undefinierter Bezeichner LoadFormResourceID

funktioniert also leider nicht

ich kann mich leider erst morgen wieder melden
aber schonmal vielen vielen Dank

[Bummi]

sorry , ich hatte Dich in die falsche Ecke geschickt

Delphi-Quellcode:

procedure LoadPictureFromJpgResource(picture : TPicture;const AResName: string);
var
   rs: TResourceStream;
   jpg: TJPEGImage;
begin
   rs := TResourceStream.Create(HInstance,AResName,RT_RCDATA);
   jpg := TJPEGImage.Create;
   try
      jpg.LoadFromStream(rs);
      picture.Assign(jpg);
   finally
      jpg.Free;
      rs.Free;
   end;
end;


procedure TForm1.Button1Click(Sender: TObject);
begin

  LoadPictureFromJpgResource(Image1.Picture,'TEST2');
end;

[fiscch4]

Hallo,

ich weis nicht ob ich mich zu blöd anstelle aber wenn ich die Procedure oben registrieren will bringt einen fehler von wegen [Fehler] test.pas(40): Ungenügende Forward- oder External-Deklaration: 'TForm1.LoadPictureFromJpgResource'

dann habe ich es versucht das was in der Procedur normal abläuft in oncreat zu packen
aber dann sagt er nur Resource B1(RC sieht so aus:
B1 RT_RCDATA "test.jpg"
B2 RT_RCDATA "images.jpg"

ist umgewandelt und eigebunden) nicht.

muss ich sonst noch irgendwas beachten ich gehe mal davon aus das ich den Code richtig verstanden habe und AResName= in meinem Fall B1 ist
und picture in meinem Fall Image1.Picture

ich hoffe ich bringe das noch bis nächsten Mittwoch hin
soll ein Adventskalender werden mit Bildern ...

Also Vielen Dank
und Gute Nacht

[Luckie]

Ist die Routine auch eine Methode deines Formulars?

[Bummi]

Du hast wahrscheinlich die Deklaration von LoadPictureFromJpgResource
so vorgenommen

Delphi-Quellcode:

type
  TForm1 = class(TForm)
    Panel1: TPanel;
    Image1: TImage;
    procedure FormCreate(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
    Procedure LoadPictureFromJpgResource(....
  end;

Damit wäre es eine Methode der Klasse TForm1 und muß unterhalb von implementation auch so
Procedure TForm1.LoadPictureFromJpgResource(...
eigefügt werden.

Sinvoller ist aber, wenn Du es nicht gleich in eine UtilUnit packen willst

Delphi-Quellcode:

type
  TForm1 = class(TForm)
    Panel1: TPanel;
    Image1: TImage;
    procedure FormCreate(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

Procedure LoadPictureFromJpgResource(...

var
  Form1: TForm1;

implementation

[fiscch4]

Hallo,

also das mit der Procedure funktioniert jetzt soweit nur das immer noch die Fehlermeldung kommt das die Resource nicht gefunden wurde
hier mal der Quellcode komplett

Delphi-Quellcode:

unit testen;

interface

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

type
  TForm1 = class(TForm)
    Image1: TImage;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;
procedure LoadPictureFromJpgResource(picture : TPicture;const AResName: string);
var
  Form1: TForm1;

implementation

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

procedure LoadPictureFromJpgResource(picture : TPicture;const AResName: string);
var
   rs: TResourceStream;
   jpg: TJPEGImage;
begin
   rs := TResourceStream.Create(HInstance,AResName,RT_RCDATA);
   jpg := TJPEGImage.Create;
   try
      jpg.LoadFromStream(rs);
      picture.Assign(jpg);
   finally
      jpg.Free;
      rs.Free;
   end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin

  LoadPictureFromJpgResource(Image1.Picture,'TEST2');
end;


end.

der Code von der bilder.RC datei die ich dann per drag and drop in die BRCC32.exe schieb und eine bilder.RES rausbekommen

Code:

TEST1 RT_RCDATA "C:\Users\Public\Documents\delphi\test\test.jpg"
TEST2 RT_RCDATA "C:\Users\Public\Documents\delphi\test\images.jpg"

warum kann er die Resource nicht finden habe ich beim einbinden was falsch gemacht?
oder schon bei der Erstellung der bilder.RES?
der Rest würde denk ich funktionieren
Vielen Dank

PS: ich bin echt positiv überrascht das ihr so viel geduld habt... und mir helft

[rollstuhlfahrer]

Zitat von fiscch4:

Code:

TEST1 RT_RCDATA "C:\Users\Public\Documents\delphi\test\test.jpg"
TEST2 RT_RCDATA "C:\Users\Public\Documents\delphi\test\images.jpg"

Es muss TEST1 RCDATA heißen. RT_RCDATA ist die Konstante aus Delphi. Das kannst du auch sehen, wenn du dir die EXE mit einem Ressourceneditor betrachtest.

Bernhard

[Bummi]

hat mich jetzt auch etwas Zeit gekostet ich verwende immer den XN ResourceEditor

Code:

TEST1 RCDATA "C:\Users\Public\Documents\delphi\test\test.jpg"
TEST2 RCDATA "C:\Users\Public\Documents\delphi\test\images.jpg"

EDIT:
zu spät....