Wann läd mein Programm?

[Poseidon]

Hallo Delphianer,

ich progge immernoch :roll: an meinem Mediaplayer, welcher sowohl Musik als auch Videos wiedergibt. Wenn ich ein Lied/Video öffne läd das Programm. In dieser Zeit soll das Image1 sichtbar werden. Woher weiß mein Programm (Timer, weil's wohl gut dafür geeignet ist) wann etwas geladen wird? Ungefähr so (im onTime Ereignis:

Delphi-Quellcode:

If MyProgramm.lade then
Image1.visible:= true
else
Image1.visible:= false;

Hoffe ihr wisst was ich meine. Danke im voraus!
mfg Poseidon

[Mr_G]

Ich muss gestehen so richtig verstehe ich nicht was du meinst. Willst du evtl. einen Splashscreen?

[Poseidon]

Ich will das wenn mein Programm etwas läd (also ein Lied/Video öffnet) Image1.visible:= true ist und wenn er fertig geladen hat das Image.visible:= false ist.

[calculon]

Warum nicht so?

Delphi-Quellcode:

Image1.Visible:= TRUE;
{ Application.ProcessMessages; }
LadeIrgendwas;
Image1.Visible:= FALSE;

Gruß
--

[nahpets]

Hallo,

Zitat:

Zitat von Poseidon

Ich will das wenn mein Programm etwas läd (also ein Lied/Video öffnet) Image1.visible:= true ist und wenn er fertig geladen hat das Image.visible:= false ist.

wenn ich mich nicht täusche, hat TImage ein OnProgress und wenn PercentDone = 100, sollte Image.visible := not (PercentDone = 100) reichen.

[Poseidon]

:wiejetzt:
Was soll ich machen? WaS ist PercentDone und was soll ich damit machen????? Das ist so Kompliziert, das muss richtig sein :drunken:

[nahpets]

Hallo,

Zitat:

Zitat von Poseidon

:wiejetzt:
Was soll ich machen? WaS ist PercentDone und was soll ich damit machen????? Das ist so Kompliziert, das muss richtig sein :drunken:

im Objektinspektor bitte bei den Ereignissen in der Zeile OnProgress einen Doppelklick machen und in der von Delphi erstellten Prozedur folgenden Quelltext einfügen:

Delphi-Quellcode:

 Image1.visible := not (PercentDone = 100);

Hoffe, das hilft.

[Reinhardtinho]

Die Frage ist doch, was lädtst du worein? :glaskugel:

Du willst ein Lied oder ein Video laden und während diesem Ladevorgang ein Image anzeigen, richtig?

D.h. das hat nichts damit zu tun, ob das Bild in TImage geladen wird.

Welche Komponente nutzt du denn zum Laden? Ein bisschen Code wäre auch sehr hilfreich

[Poseidon]

Zitat:

Zitat von Reinhardtinho

Du willst ein Lied oder ein Video laden und während diesem Ladevorgang ein Image anzeigen, richtig?

Ja so ist es. Mit dem Opendialog suche ich den Filename und gebe diesen Filename an TMediaplayer weiter:

Delphi-Quellcode:

 
Opendialog1.Execute;
  If Opendialog1.FileName= '' then 
   begin
Mediaplayer1.FileName := Opendialog1.FileName;
Mediaplayer1.Open;
Mediaplayer1.Enabled:= true;
Mediaplayer1.play;

[Reinhardtinho]

Dann schau doch mal bei den Methoden von TMediaPlayer unter Updated nach.

[Poseidon]

Zitat:

TMediaPlayer.Updated Methode

Zeigt an, dass der Media-Player die Aktualisierung beendet hat.

Klasse
TMediaPlayer

Syntax


[Delphi] protected procedure Updated();


Beschreibung
Updated bewirkt durch einen Aufruf der geerbten Methode Updated ein Neuzeichnen, bevor das Layout der Media-Player-Schaltflächen geändert wird.

Also wärend er akktualisiert das Image1.visible auf true setzen, oder?

[Poseidon]

Delphi-Quellcode:

If Mediaplayer1.Mode:= update  then
image1.Visible:= true
else
Image1.Visible:= false;

Müsste funtzen...

[Poseidon]

Tuts aber nicht :x
Fehler: "Inkompatible Typen"

[freak4fun]

Delphi-Quellcode:

If Mediaplayer1.Mode = update then
image1.Visible:= true
else
Image1.Visible:= false;

:gruebel:

Delphi-Quellcode:

image1.Visible := (Mediaplayer1.Mode = update);

[DeddyH]

Gibt es wirklich einen Mode namens update? Außerdem kann man den Code auch kürzen.

[nahpets]

Zitat:

Zitat von Poseidon

Tuts aber nicht :x
Fehler: "Inkompatible Typen"

den Mode update gibt es auch nicht, schau bitte mal in der Delphihilfe nach, dort stehen die zulässigen Werte für mode.

[Poseidon]

Und wie muss der Code dann heißen?

[Reinhardtinho]

Ich seh gerade was.

Wenn du Wait auf True gesetzt hast und die Methode Open aufrufst, wartet das Programm solange, bis Open beendet wurde und erst dann gehts weiter.

Heiß im Klartext:

1.) Image -> visible
2.) Open
3.) Image -> not visible

[Poseidon]

Du Meinst also:

Delphi-Quellcode:

Opendialog1.Execute;
  
Mediaplayer1.FileName := Opendialog1.FileName;
Image1.visible:= true;
Mediaplayer1.Open;
Visible:= false;
Mediaplayer1.Enabled:= true;
Mediaplayer1.play;