Bildershow mit JvGIFAnimator oder TImage

[ninja]

hallo,
ich habe ein directory in dem mehrere bilder sind, diese möchte ich in einem formular abwechselnd automatisch anzeigen lassen, während das formular läuft.
ich weiß wie man ein einzelnen bild anzeigen lassen kann, aber bei mehreren verlassen mich meine kenntnisse.
kann mir vieleicht jemand einen tip geben?
thx im vorraus
ninja

[c4t]

Hm, also ich bin auch noch ein ziemlicher "newbee", was Delphi anbetrifft. Aber ich versuch's mal.

Also ich würde dir raten, den Wert der Eigenschaft Picture von TImage in eine Variable zu legen und deine Bilder durch zu nummerieren.

Dann machst du ein Button:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin

bild:=bild+1; // die nummer des Bildes weiterzählen
filename:=inttostr(bild); // zurück in ein String umwandeln
Image1.Picture:=filename; // zuweisen
end;

Insgesamt sieht es dann so aus:

Delphi-Quellcode:

var
  Form1: TForm1;
  filename:string;
  bild:integer;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin

bild:=bild+1;
filename:=inttostr(bild)+'.jpg';
Image1.Picture:=filename;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
filename:=inttostr(bild)+'.jpg';
bild:=1;
end;

end.

Ich habs selber nicht ausprobiert, aber ich glaube es so sollte so funktionieren. Vorausgesetzt deine Bilder heißen immer 1.jpg, 2.jpg usw ...

Nach dem klick auf den Button sollte dann das nächste Bild erscheinen. Achso, die Bilder müssen auch in dem gleichen Ordner wie das Delphi Project liegen.

---

ähm, könnte einer von den Leuten, die einwenig mehr Ahnung haben, meine idee nochmal überprüfen? Danke.

[ninja]

hallo,
ich hab mich mal dran versucht ein programm zuschreiben.
ich wollte das erstmal mit einer directory ausprobieren , indem sich nur ein bild befindet.
aber irgendwie klappt die übergabe an den "bilddarsteller" nicht.
weis vieleicht jemand was ich falsch mache oder was fehlt??
gruß ninja

[Matze]

@ninja: Wo gibt's denn die Unit: TJvGifAnimator?

[Alexander]

Ich schätze mal, dass das eine Komponente/Unit von den Jedis ist ;-)

[ninja]

ja, die hab ich bei den JEDI´s gefunden.

[Matze]

Ich bin zu blöd darüf, ich suche die JEDI-Seite schon seit Minuten ab und schaffe es nicht, diese Komponente, bzw. das package mit dieser Kompo herunterzuladen.
Kann mir bitte jemand den Download Link posten? :duck:

[ninja]

probier es hiermal:
http://www.jedi.delphi-source.de/jvcl/
ninja

[scp]

Um nur ein Bild (in dem Fall das erste aus dem Ordner) zu laden, das in der Memo-Liste steht, musst du folgendes verwenden.

Delphi-Quellcode:

 bild := 0;
 filename:=(dir + '\' + Memo1.Lines[bild]);
 JVGifanimator1.Image.LoadFromFile(Filename);

[ninja]

super danke,
jetzt funktionierts.
und jetzt probiere ich mal ein bild nachdem anderen anzeigen zulassen.
thx ninja

[ninja]

hallo,
ich habe probleme mit meiner schleife

Delphi-Quellcode:

begin
        begin
        if i = Memo1.Lines.Count then
        i := 0;
        while i < Memo1.Lines.Count do
                begin
        filename:=(dir + '\' + Memo1.Lines[i]);
        JVGifanimator1.Image.LoadFromFile(Filename);

        delay(12000);

        i := i + 1;

                end;
        end;


end;

und zwar zeigt er alle bilder nacheinander an, aber er fängt nicht von vorne an , sondern bleibt beim letzten bild "hängen".
thx ninja

[ninja]

hab mal was gedreht:

Delphi-Quellcode:

begin
        begin
        while i < Memo1.Lines.Count do
        begin
        filename:=(dir + '\' + Memo1.Lines[i]);
        JVGifanimator1.Image.LoadFromFile(Filename);

        delay(12000);

        i := i + 1;
        if i = Memo1.Lines.Count then
        i := 0;
        end;
        end;


end;

jetzt f4n2t56n5ert es.
allerdings reagiert die exe ziemlich langsam wenn ich das programm über "beenden" beenden möchte, während noch die "Bildershow" abläuft. muß ich da vorher noch was beenden??