TDosCommand Pb de récupération

**inspecteur rick** · 08/01/2009, 18h13

Bonjour

J'utilise ce composant et son évenement OnNewLine pour récupérer l'affichage de chaque ligne Dos suite à l'éxécution d'un exe.
Je ne veux pas afficher ces lignes, je ne prend que certaines parties de l'affichage de chaque ligne.
J'ai donc associé à l'évenement OnNewLine du composant une procédure qui va traiter la ligne et récupérer ce que je veux.
Il n'y a pas de problème si je veux afficher ce que j'ai récupéré sur un Mémo mais si je veux le stocker dans un string, il ne se passe rien.... Pas d'erreur, le string reste vierge..

Une idée ?
Merci

**ALWEBER** · 08/01/2009, 19h08

Peut être envoyer le Memo1.text dans le string et retirer tous les #10 et #13

**inspecteur rick** · 08/01/2009, 19h19

Oui je peux toujours faire ça, mais devoir écrire dans un memo pour balancer dans mon string, je trouve ça inutile, une perte de temps.
C'est quand même bizarre que ce composant ce comporte comme ca ?

Merci de la réponse

P.S : Euh, c'est quoi #10 et #13 ?

**popo** · 09/01/2009, 09h00

Question qui peut paraître con mais j'ai déjà eu ce problème et mis un moment avant de comprendre :
Est-ce que quelque part tu utilise ton string ? Suivant le paramétrage, il n'affecte pas de valeur à une variable si celle ci n'est pas utilisée ensuite.

Par ailleurs, un string est limité à 255 caractères. Peux être que Delphi ne veux pas mettre dans un string de 255 caractères, le contenu d'un fichier qui en fais beaucoup plus.

**inspecteur rick** · 09/01/2009, 09h04

Je demande que ce string soit affiché plus loin dans le programme
Vu que j'intercepte ligne par ligne et que je ne prend que quelques mots à chaque fois, mon string ne contient clairement pas plus de 255 caractères.

**ALWEBER** · 09/01/2009, 15h32

P.S : Euh, c'est quoi #10 et #13 ?

ce sont les caractères de retour au début de ligne et ligne suivante. ce qui fait que tout ne se voit pas dans le transfert du memo vers le string. Exemple

Code :

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

MaChaine := StringReplace (MaChaine,#13,'',rfReplaceAll])

**Cl@udius** · 09/01/2009, 15h53

Salut

Envoyé par popo

Par ailleurs, un string est limité à 255 caractères. Peux être que Delphi ne veux pas mettre dans un string de 255 caractères, le contenu d'un fichier qui en fais beaucoup plus.

Seul ShortString est limité à 255 caractères.
Une string (par défaut AnsiString, voir la directive {$H+}) est limitée à ~2^31 caractères. Donc le problème ne vient surement pas de là.

Envoyé par inspecteur rick

Il n'y a pas de problème si je veux afficher ce que j'ai récupéré sur un Mémo mais si je veux le stocker dans un string, il ne se passe rien.... Pas d'erreur, le string reste vierge..

L'évènement OnNewLine fournit le paramètre NewLine qui est de type string. Tu peux très bien l'utiliser pour effectuer ton traitement et extirper les données qui t'intéresse.

@+ Claudius

**inspecteur rick** · 09/01/2009, 16h09

Oui en effet j'arrive à traiter la chaine NewLine et "extirper" ce que je veux puisque j'arrive à affiche ces infos dans un mémo.
Mais le problème vient que je ne peut pas exporter ces infos dans un string....

**Cl@udius** · 09/01/2009, 16h11

Re,

Envoyé par inspecteur rick

Mais le problème vient que je ne peut pas exporter ces infos dans un string....

Si tu nous donnais une p'tit bout de code, on pourrait surement trouver où se trouve le problème.

@+

**inspecteur rick** · 09/01/2009, 16h22

Ok, pas de problème. Euh, je suis débutant, vous moquez pas du 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
procedure TTraitement.DosCommandNewLine(Sender: TObject; NewLine: String; OutputType: TOutputType);
var
i: integer;
ID, name: string;
begin
i:=15;
ID:=''; Name:='';
If Pos('ID',Newline) =  12 then
    begin
      while Newline[i]<>':' do begin
      ID:= ID+ Newline[i];
      inc(i);
      end;
      i:=Pos('file',Newline)+11;
      While i <> Length(NewLine) do begin
      Name:= Name+ Newline[i];
      inc(i);
      end;
Comment:=Comment +ID+ ' : ' + Name + '|';
    end;
end;

Voici la déclaration de la classe TTraitement

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
TTraitement= class(TObject)
FormattedTitle: String;
URL: String;
VideoBitrate: String;
AudioBitrate: String;
Resolution: String;
Framerate: String;
TestVideo: Boolean;
NomDuFichier: String;
Comment: String;
DosCommand : TDosCommand;
Public
constructor  Create(NomFichier: string);
destructor Destroy; override;
function ListeLanguagesAudio : String;
function ListeLangauagesSousTitre : String;
function ListeFormatAudio: String;
function Lengths: String;
function size: String;
function TitreTraduit :  String;
function TitreOriginal: String;
function VideoFormat: String;
procedure DosCommandNewLine(Sender: TObject; NewLine: String; OutputType: TOutputType);
procedure LanceMkvmerge ;
end;

**Laurent Dardenne** · 17/01/2009, 14h29

Salut,

Envoyé par inspecteur rick

Il n'y a pas de problème si je veux afficher ce que j'ai récupéré sur un Mémo mais si je veux le stocker dans un string, il ne se passe rien.... Pas d'erreur, le string reste vierge..

Si dans ton gestionnaire d'événements tu reçois bien une string non nulle, valide ta routine de parsing dans un programme de test.

Quel OS et quelle version de Delphi utilises-tu ?
Indique nous un exemple de chaîne que tu analyses.

Envoyé par inspecteur rick

je suis débutant, vous moquez pas du code....

Ce n'est pas l'objectif du forum.
Débutant, nous l'avons tous été un jour mais la pluspart l'oublie ;-)

**inspecteur rick** · 17/01/2009, 15h38

Salut et merci de répondre

J'ai donc sorti ma procédure dans un programme test que voici :

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
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
unit Principale;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, MediaInfoDll, DosCommand;
 
type
  TForm2 = class(TForm)
    Button1: TButton;
    Memo1: TMemo;
    DosCommand: TDosCommand;
    procedure Button1Click(Sender: TObject);
    procedure DosCommandNewLine(Sender: TObject; NewLine: String; OutputType: TOutputType);
  private
    { Déclarations privées }
      public
    { Déclarations publiques }
      end;
 
var
  Form2: TForm2;
  Chaine: string;
  AccesFonctionsMedia: MesFonctionMediaInfo;
 
implementation
 
{$R *.dfm}
 
procedure TForm2.Button1Click(Sender: TObject);
begin
AccesFonctionsMedia:=MesFonctionMediaInfo.create();
Chaine:='';
DosCommand:=TDosCommand.Create(nil);
DosCommand.OnNewLine:=DosCommandNewLine;
DosCommand.CommandLine :='Je met la commande';
DosCommand.Execute;
DosCommand.SendLine('Exit', True);
DosCommand.free;
ShowMessage(Chaine);
end;
 
procedure Tform2.DosCommandNewLine(Sender: TObject; NewLine: String; OutputType: TOutputType);
var
i: integer;
ID, name: string;
begin
i:=15;
ID:=''; Name:='';
If Pos('ID',Newline) =  12 then
    begin
      while Newline[i]<>':' do begin
      ID:= ID+ Newline[i];
      inc(i);
      end;
      i:=Pos('file',Newline)+11;
      While i <> Length(NewLine) do begin
      Name:= Name+ Newline[i];
      inc(i);
      end;
Chaine:=Chaine+ ID + ' : ' + Name +'|';
//Memo1.Lines.Add(ID + ' : ' + Name +'|');
    end;
end;
 
end.

Donc voilà, j'ai un avertissement à la compilation sur la non présence du composant sur la form mais vu que je le créer dynamiquement, c'est pas un problème pour l'exécution.
Donc lorsque je passe le programme pas à pas(F8) je ne vois que les variables locale donc je ne vois pas la valeur de la variable Chaine mais le programme passe bien sur l'affectation de Chaine.
Affichage correct dans le mémo mais vierge dans la string Chaine

Exemple de chaines analysées : Attachment ID 119737988: type 'image/jpeg', size 492119 bytes, file name 'Affiche du film HD.jpg'

Version Delphi : CodeGear™ Delphi® pour Microsoft® Windows™ Version 11.0.2627.5503

OS : Windows xp home.

Encore merci

**Laurent Dardenne** · 17/01/2009, 16h23

Affichage correct dans le mémo

Donc la gestion des paramètres de l'événement du composant n'est pas en cause.

Pour l'exemple de la chaîne à analyser, ton traitement est correcte. Il doit y avoir un pb de portée ou une duplication de nom de champ.
Précise Self.Comment dans TTraitement.DosCommandNewLine.

Vérifie si tu n'as pas un autre événement qui se déclencherait tout de suite après DosCommandNewLine effacant le contenu de comment...

Tu peux utiliser cette astuce de débug utilisant une console :
http://delphi.developpez.com/faq/?page=application#consoledansgui

**inspecteur rick** · 17/01/2009, 18h10

Salut

Euh, si tu regardes mon dernier poste. J'ai sorti la procedure qui pose problème dans un prog test où il n'y a qu'un bouton et un mémo.
Il n'y donc que les événements liés au bouton et à TdosCommand
La variable globale "Chaine" n'est affecté que lors de l'appel de la procédure DosCommandNewLine.

J'ai rajouté ca dans DosCommandNewLine

Code :

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

1
2
3
4
5
{$IFDEF DEBUG}
  AllocConsole;
  Chaine:=Chaine+ ID + ' : ' + Name +'|';
  WriteLn(Chaine);
{$ENDIF}

Dans la fenetre DOS, je vois bien ce que doit contenir "Chaine".
J'suis perdu là.......

Merci

**Laurent Dardenne** · 17/01/2009, 19h27

Envoyé par inspecteur rick

Euh, si tu regardes mon dernier poste. J'ai sorti la procedure qui pose problème dans un prog test où il n'y a qu'un bouton et un mémo.
Il n'y donc que les événements liés au bouton et à TdosCommand

Oui tu as raison, mais dans tous remue-méninges il y une part de déchets.

Envoyé par inspecteur rick

Dans la fenetre DOS, je vois bien ce que doit contenir "Chaine".
J'suis perdu là.......

Peut être, mais on avance

Essaie ceci dans le main:

Code :

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

1
2
3
 
ShowMessage(Chaine);
DosCommand.free;

**inspecteur rick** · 17/01/2009, 19h35

J'suis content que tu persistes, ca fait plaisir

Mais

, l'intervention (par rapport au code de départ)

Code :

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

1
2
ShowMessage(Chaine);
DosCommand.free;

ne fonctionne pas. Mon ShowMessage reste vierge....

**Laurent Dardenne** · 17/01/2009, 19h43

Envoyé par inspecteur rick

J'suis content que tu persistes, ca fait plaisir

Quitte à faire quelque chose autant le faire pleinement.
Bon là je dois installer le composant et tester ton programme.
Mais je dois remonter une sauvegarde car hier j'ai supprimé mes projets de tests sur ce compo

**inspecteur rick** · 17/01/2009, 19h48

Quitte à faire quelque chose autant le faire pleinement.

Ok, grand merci à toi

Si t'as besoin de quelque chose, dis le moi.

**Laurent Dardenne** · 17/01/2009, 20h59

Envoyé par inspecteur rick

Si t'as besoin de quelque chose, dis le moi.

Et bien pour commencer j'ai besoin d'un million d'euros.

Sinon le pb se situe dans le comportement asynchrone du composant,
" the cool thing of this component is that you do not need to wait the end of the program to get back the output. it comes line by line."

Code :

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

1
2
3
4
5
6
7
8
9
10
 
procedure TForm1.Button1Click(Sender: TObject);
begin
  Chaine:='';
  Writeln('Debut');
  DosCommand.Execute;
  DosCommand.SendLine('Exit', True);
  Writeln('Fin');
  ShowMessage(Chaine);
end;

En utilisant la console de debug on voit que les mots debut et fin sont affichés avant la première ligne retournée par une commande du Shell.
Tout comme l'appel à ShowMessage

Il faut donc mémoriser temporairement le résultat et le récupérer dans l'event OnTerminated.

**inspecteur rick** · 17/01/2009, 21h22

J'ai donc associé l'évènement Ontermined du composant à la procedure

Code :

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

1
2
3
4
procedure Tform2.DosCommandOnterminated(Sender: TObject);
begin
ShowMessage(Chaine);
end;

Et j'ai rajouté

Code :

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

DosCommand.OnTerminated:=DosCommandOnterminated;

Comme je l'ai fait pour OnNewLine mais j'ai une erreur InvalidOperation (le cadevas ne permet pas de dessiner) et l'arrêt ce fait sur TDosThread.Execute de TDosCommand.pas.
J'ai essayé 4 fois et à la cinquième, miracle j'ai l'affichage dans le showmessage.

Mais l'erreur revient après.

On progresse.

TDosCommand Pb de récupération

Composants VCL Delphi

Discussions similaires

Partager

Partager