Discussion :

[adelcrb]

salam

pour commencer je précise que je suis débutant en programmation et en delphi précisément... donc voila j'ai crée une petite application et je veut mètre une vidéo comment introduction avant le lancement de la vidéo pour ça j'ai utilisé le composant twindowsmediaplayer j'ai choisi ma vidéo en indiquant le chemin dans la propriété url je l'es paramétré et touts ,ça a bien fonctionné j'ai même ajouté un petit bouton pour que l’utilisateur peut la zappé ... mais quant je déplace l’application ou quant je la met sur un autre pc la vidéo ne ce lance pas.je crois ou plutôt je suis sur que c'est a cause du chemin j'ai essyé ça

if FileExists(ExePath + 'ma video.WMV') then
twindowsmediaplayer1.controls.play;

comme avec le composant Timage mais ça marche pas voila si quelqu'un peut me montré une solution pour que l’application détecte la vidéo même si je change le dossier ça serai trop gentil et je vous remercié d'avance

[tourlourou]

Bonjour,

Pour changer le fichier à lire à l'exécution, il faut utiliser :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
if FileExists(ExePath + 'ma video.WMV')
then begin
  WindowsMediaplayer1.URL := ExePath + 'ma video.WMV';
  WindowsMediaplayer1.Controls.Play;
end;

[adelcrb]

salam

merci pour la repense mais ça sort une erreur j'ai essayé de faire un exemple seul pour testé et voila le résultat :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, OleCtrls, WMPLib_TLB, StdCtrls;
 
type
  TForm1 = class(TForm)
    dedax: TWindowsMediaPlayer;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
begin
  begin
if FileExists(ExePath + 'dedax.WMV')
then begin
  dedax.URL := ExePath + 'dedax.WMV';
  dedax.Controls.Play;
     end;
  end;
end.

j'ai nommé mon composant dedax et ma vidéo aussi
voici l’erreur que ça me sort :

Build
[Error] Unit1.pas(30): Undeclared identifier: 'ExePath'
[Error] Unit1.pas(36): ';' expected but '.' found
[Error] Unit1.pas(38): Declaration expected but end of file found
[Fatal Error] Project1.dpr(5): Could not compile used unit 'Unit1.pas'

merci d'avance vraiment je suis tombez amoureux de ce forum

[Paul TOTH]

que ne comprends-tu pas des ces messages d'erreur pourtant limpides ?

[ShaiLeTroll]

Avant de lire des vidéos, faudrait avoir les bases !
Ton code est mal indenté, comment veux-tu détecter le end; manquant (ou le begin en trop selon comment on le voit)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
 
unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, OleCtrls, WMPLib_TLB, StdCtrls;
 
type
  TForm1 = class(TForm)
    dedax: TWindowsMediaPlayer;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
var
  ExePath: string;
begin
  ExePath := ExtractFilePath(Application.ExeName);
  if FileExists(ExePath + 'dedax.WMV') then 
  begin
    dedax.URL := ExePath + 'dedax.WMV';
    dedax.Controls.Play;
  end;
end;
 
end.

[adelcrb]

merci beaucoup ça ma vraiment aider en plus j'ai apris beaucoup de chose grâce a vous ShaiLeTroll et tourlourou merci encore