Discussion :

[rerou]

Bonjour,

J'espère ne pas mettre tromper de forum, je souhaiterais lire une vidéo transmise par udp via vlc qui serait "commandé" par mon app delphi.
J'ai trouvé certaines choses telles que ffmpeg et paslibvlc mais ffmpeg est en c et paslibvlc a l'air de fonctionner pour des versions plus récentes que mon delphi (je suis sos delphi 5).
Si quelqu'un en sait plus ?

Merci d'avance,

rerou

[ShaiLeTroll]

VLC et Delphi, c'est la mode ce mois :
Enregistrer flux RTSP ?
Comment utiliser correctement l'ActiveX VLC ?

Tu peux chercher VLC sur le forum, tu verras bcp de sujet dans le section Delphi, la plupart ayant une solution fournie par Paul TOTH et sa VLCLib.pas, est-ce cette Lib, il ne semble pas nécessiter plus que Delphi 5

Quelles sont les erreurs de compilation ?

[rerou]

Ce que j'avais trouvé c'était pasLibVLC, je ne sais pas si c'est la même chose mais bon j'ai enfin trouvé quelques trucs comme notamment comment installer l'ActiveX dans delphi. Dans les 2 bibliothèques que j'ai trouvé aucune ne précisait la démarche à suivre.
Je pense pouvoir me dépatouiller seul à partir de maintenant.

Merci bien,

rerou

[chaplin]

Il y a aussi DSPack.

[rerou]

question bête : pourquoi un truc comme ça plante?

Code :

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

1
2
3
4
5
6
7
 
libvlc_track_type_t = (
    libvlc_track_unknown = -1,
    libvlc_track_audio   = 0,
    libvlc_track_video   = 1,
    libvlc_track_text    = 2
);

Impossible de recompiler un code qui devrait normalement marcher

[CapJack]

Parce que c'est du C, pas du Delphi.

[rerou]

Pourtant ce sont des sources en .pas qui proviennent du projet paslibvlc

[CapJack]

Ouh là ! L'âge commence à se faire sentir, j'avais zappé le premier caractère de soulignement.

En fait c'est bien une déclaration de type valide en langage Delphi, je viens de tester, ça passe (Delphi 2009). Du coup, je ne vois pas bien où est le problème.

Code :

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

1
2
3
4
5
6
7
type
  libvlc_track_type_t = (
    libvlc_track_unknown = -1,
    libvlc_track_audio   = 0,
    libvlc_track_video   = 1,
    libvlc_track_text    = 2
);

se compile sans erreur.

[rerou]

Quand j'essaie de compiler il me dit qu'il "," et qu'il trouve "=" donc je sais pas, là je suis en train d'explorer les possibilités de la bibliothèque DSPack qui est plutôt riche.
Le problème sur ce sujet c'est qu'il y a soit trop, soit pas assez de docs. Il y a plein de bibli intéressantes mais aucune n'est expliquée profondément alors c'est pas évident.

[ShaiLeTroll]

Déjà, une énumération en Delphi, cela peut-il avoir des valeurs négatives ?
Est-ce que Delphi 5 autorisait la modification des valeurs d'une énumération ?
Il est possible que cela soit apparu qu'en 6 ou 7

Si oui, il sera probablement impossible d'utiliser dans un "set of"

[rerou]

Bon le topic est parti hors-sujet, pour ceux que ça intéresse, voici ce que j'ai trouvé.

Pour ouvrir vlc depuis votre application delphi, il faut utiliser ShellExecute (en incluant ShellApi dans le uses).

Code :

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

ShellExecute(0, 'OPEN', 'vlc.exe', ParametresString, 'C:\ProgramFiles\VideoLAN\VLC\', SW_SHOW);

A adapter selon vos besoins. Il suffit alors de mettre dans ParametresString les arguments nécessaires pour ouvrir le flux UDP mais je ne l'ai pas encore trouvé.

Pour schématiser, ShellExecute va vous permettre de simuler une ligne de commande.

[ShaiLeTroll]

Rerou, ShellExecute n'a rien d’innovant, c'est en plus dans la FAQ : Comment exécuter une application extérieure ? mais c'est gentil de nous l'expliquer !

[rerou]

C'était surtout dans le sens où on est parti dans les plugins ActiveX, les bibli, ... alors qu'en fait un simple ShellExecute et c'est bon.
Après je l'ai expliqué surtout si quelqu'un cherche la meme chose que moi et ne connait la syntaxe.

[rerou]

Par contre je souhaiterais avoir votre avis en ce qui concerne la propreté de ce bout de code.

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
KillProcess('vlc.exe');
 
function KillProcess(const ProcessName : string) : boolean;
var ProcessEntry32 : TProcessEntry32;
    HSnapShot : THandle;
    HProcess : THandle;
begin
  Result := False;
 
  HSnapShot := CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0);
  if HSnapShot = 0 then exit;
 
  ProcessEntry32.dwSize := sizeof(ProcessEntry32);
  if Process32First(HSnapShot, ProcessEntry32) then
  repeat
    if CompareText(ProcessEntry32.szExeFile, ProcessName) = 0 then
    begin
      HProcess := OpenProcess(PROCESS_TERMINATE, False, ProcessEntry32.th32ProcessID);
      if HProcess <> 0 then
      begin
        Result := TerminateProcess(HProcess, 0);
        CloseHandle(HProcess);
      end;
      Break;
    end;
  until not Process32Next(HSnapShot, ProcessEntry32);
 
  CloseHandle(HSnapshot);
end;

A utiliser en incluant "TlHelp32"

Le process est bien tué mais j'ai l'impression qu'il y a des "résidus" en mémoire.