utilisation vlc app delphi

Version imprimable

18/08/2011, 16h20
rerou

utilisation vlc app delphi

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
18/08/2011, 17h03
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 ?
19/08/2011, 09h18
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
19/08/2011, 09h47
chaplin

Il y a aussi DSPack.

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

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

19/08/2011, 10h27
CapJack

Parce que c'est du C, pas du Delphi. :)
19/08/2011, 10h38
rerou

Pourtant ce sont des sources en .pas qui proviennent du projet paslibvlc
19/08/2011, 12h50
CapJack
Ouh là ! L'âge commence à se faire sentir, j'avais zappé le premier caractère de soulignement. :oops:

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:

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.
19/08/2011, 14h47
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.
29/08/2011, 12h08
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"
02/09/2011, 16h33
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:

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.
02/09/2011, 16h40
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 ! :mouarf:
02/09/2011, 17h27
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.

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

Code:

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.