JPeg aus Ressource in TImage laden, kriegs aber nicht hin.

[Armageddon]

Hi,

Ich hab bin langsam am verzweifeln. :wall:

Wie man die Ressourcendatei erstellt weiß ich und hab ich auch schon gemacht.

bild1 JPG "bild1.jpg"
bild2 JPG "bild2.jpg"

usw.

klappt auch prima. Hab ich hier im Forum gefunden als Beispiel.

Jetzt häng ich nur drann fest das ich nicht genau weiß und auch dazu nix gescheites im Web finde wie ich einem TImage z.b. das bild1 aus der Ressourcendatei zuweiße.

Habe es mit

Delphi-Quellcode:

Image1.Picture.Bitmap.Handle := LoadBitmap(HINSTANCE, 'bild1');

versucht. Kommt zwar kein Fehler aber es passiert überhaupt nix. Muß wohl irgendwie mit dem Bitmap zu tun haben.

Kann mir einer sagen wie ich das ganz einfach hinkriege?

Gruß Arma.

[Luckie]

In deiner Ressource sind es wohl JPG's oder? Und jetzt kuck mal hier:

Code:

Image1.Picture.[b][color=#ff0012]Bitmap[/color][/b].Handle := LoadBitmap(HINSTANCE, 'bild1');

Sieht für mich nicht so aus, als ob das klappen könnte.

Übrigens gibt es die Methode LoadFromResource und den Typ TResourceStream, wenn ich mich nicht täusche.

[Leuselator]

bin nicht sicher, ob das auch für JPG's gilt aber bei mir in
meinen Komponenten schnuckelt es so:

Delphi-Quellcode:

  FBild := TBitmap.Create;
    FBild.LoadFromResourceName(hInstance,'NameDesBildes');

[Armageddon]

@ Luckie: Das habe ich ja gemeint das es wohl daran liegt. Ich wollt ja nur mal wissen wie man das genau macht. Irgendjemand muß das ja mal gemacht haben.

@Leuselator: Danke werde es mal testen.

Gruß Arma.

P.S. Vielleicht finde ich ja noch irgendwo mal ein gescheites Tutorial das nicht zu kompliziert ist für nen Anfänger.

[Darty]

ich möchte ja nicht angeben .. aber habt ihr mal da reingeguckt :)

http://www.delphipraxis.net/internal...&highlight=dll

[Armageddon]

Danke Mr.Knebel,

aber ich bin blutiger Anfänger. :|

Mir fehlt bei Deinem Beispiel echt der Durchblick.
Dein Beispiel ist ja mit ner Dll aber ich will das im Programm drin.
Sicher nicht schwer umzubauen undzu portieren Dein Beispiel aber ich check es nicht.

Kannst das Beispiel nicht umbauen auf mein Problem / Frage ?

Wär nett.

Sag schon mal Danke

Arma

[Christian S.]

Hallo!

Auf diese Weise hat M.Knebel's Beispiel bei mir funktioniert:

Delphi-Quellcode:

procedure loadImage (myImage : TImage);
VAR s : TResourceStream;
    j : TJPEGImage;
begin
  s := TResourceStream.Create(hInstance,'bild','JPG');
  j := TJPEGImage.Create;
  j.LoadFromStream(s);
  myImage.Picture.Bitmap.Assign(j);
  j.Free;
end;

Dabei ist "bild" der Name der Resource, die ich einlesen möchte und JPG der Resourcentyp.

MfG
Peter

[Armageddon]

Hi, (mal kleinlaut nochmal was Frag!)

habe es jetzt etwas umgebaut aber stehe vor einem neuen Problem bei dem ich einfach nicht weiter komme. Wollte es mit ner Procedure machen die Abbricht wenn es das Bild nicht gibt. Aber so wie's grad ist geht es wohl nicht. Wie kann ich ne Procedure oder Function abbrechen?

Folgenden Code hab ich nun:

Delphi-Quellcode:

procedure LoadImage(Bild: String; Ziel: TImage);
var
  b: TJPEGImage;
  s: TResourceStream;
begin
  try
    s := TResourceStream.Create(HINSTANCE, Bild, 'JPG');
    b := TJPEGImage.Create;
    b.LoadFromStream(S);
    Ziel.Picture.Bitmap.Assign(b);
    b.Free;
  except
    (*Hier sollt dann ne Fehlermeldung kommen*)
  end;
end;

So und aufrufen tu ich's so:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
 LoadImage('bild1', Image1);
end;

Please help, (auch wenn ich .... die jenigen werden das schon wissen)


Gruß Arma.

[Darty]

Willst die Bilder aus einer DLL laden ? Wenn ja wo machste dass ?

ps: haste mein Link genau gelesen ?

[Armageddon]

Hi M.Knebel,

nee ich hab das Bild als Resource in der Programmdatei. Das funktioniert soweit auch ganz gut. Ich wollte jetzt halt nur noch wissen ob es möglich ist wenn ich aus der Prozedure z.B. jetzt ne Funktion mache das wenn es das Bild das man als Name an die Funktion oder in dem Fall wie es noch ist an die Procedure übergibt. Das dann ein Fehler ausfgegeben wird. Aber irgendwie krieg ich das nicht so recht hin. Wie ich es will weiß ich aber nicht wie ich es Umsetzen könnte.

Gruß Arma.