Bild in .exe Datei speichern

[Cheffu]

Zitat:

Zitat von Luckie

Ja die Suche: TResourceStream.

Das habe ich schon probiert, aber ich kenne mich mit Delphi zu wenig aus, um diese Erklährungen zu verstehen. Ich bräuchte einfach anhand meines oben genannten Beispiels einen eindeutigen Quelltext, in dem die Namen vorkommen, um die Bedeutung der einzelnen Variablen zuordnen zu können.

[Luckie]

Und was ist hier mit: http://www.delphipraxis.net/internal...resourcestream Was soll man da noch erklären?

[Cheffu]

Man soll erklähren was welche Befehle man wo rein schreiben muss um den gewünschten Effetk zu haben.

Einfach ein Thread, in dem ein einfachen konkreten Beispiel wie das von mir gesagt von mir mit "1.bmp" und "2.bmp" beschreibt würde für viele mit dem selben Problem viel erklährender sein als alle andere Threads, in denen es um ein ganz spezifischen Problem geht.
Vielleicht sollte man auch noch kurz dazu schreiben wie das selbe bei Gifs und JPGs funktioniert und schon werden vermutlich all diese fragen sehr schnell und einfach erklährt.

Aber das ist nur meine Meinung, den gerade Anfänger bringt es relativ wenig Code-Schnipsel an den Kopf geworfen zu bekommen, bei denen man vorher 5 andere Sachen, die man dan noch nicht wissen kann, programmieren muss, um auch den Effekt zu bekommen den man will.

[Cheffu]

löschen

[Blackheart]

Hallo
Ich versuchs mal.
Also mal ein Beispiel für Bmp.
Als erstes packst Du drei Bmp in deinen Projektordner mit dem Namen

Bild1.bmp, Bild2.bmp, Bild3.bmp

Als zweites nimmst Du einen Texteditor und schreibst folgendes dort rein

MyBild1 BITMAP "Bild1.bmp"
MyBild2 BITMAP "Bild2.bmp"
MyBild3 BITMAP "Bild3.bmp"

und speicherst die Datei als MyResource.rc

Als drittes suchst du in Delphi die Brcc32.exe, liegt wahrscheinlich im Bin Verzeichnis von Borland
kopierst Sie und fügst Sie in deinen Projektordner ein.
Dann nimmst Du deine MyResource.rc und schiebts sie per Drag & Drop auf die Brcc32.exe
Diese erzeugt Dir dann eine Res Datei mit dem Namen MyResource.res

Dann erstellst Du dein Projekt - Ein Button, Ein Image und gibst unteren Delphi Code ein.
Alles abspeichern und und Starten.

Delphi-Quellcode:

unit Unit1;

interface

uses
  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;

var
  Form1: TForm1;
  Zaehler:Integer;
implementation

{$R *.dfm}
{$R MyResource.res} //Hier die res Datei angeben

procedure TForm1.Button1Click(Sender: TObject);
begin
  Inc(Zaehler); //Zähler erhöhen
  if Zaehler > 3 then Zaehler:=1; //Wenn letztes Bild erreicht Zähler zurücksetzen
  Image1.Picture.Bitmap.LoadFromResourceName(HInstance,'MyBild'+IntToStr(Zaehler)); //Bild laden je nach Zähler
end;

end.

Ich Hoffe konnte weiter helfen.

[Cheffu]

Dieses Beispiel wird blutige Anfänger wohl wegen dem Zaehler überfordern, aber sonst find ich das sehr gut so.
Habs mit ein paar Spielereien zwar inzwischen hinbekommen gehabt, aber so eine Beschreibung sollte man ein geschlossenes Thread witmen, auf das man jeden der das Problem hat definitiv verlinken kann.