[Borland C++ builder] Redirection sdtout

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : [Borland C++ builder] Redirection sdtout

Bruce

Music 4 your ears!

J'ai trouvé comment rediriger stdout
quasiment comme je le voulais (Je suis sous
Borland c++ 4.0)
Voilà, cela marche mais j'aimerais que cela marche légèrement différement...
En effet, lorsque je lance ma commande, je suis obligé d'attendre que cette
commande soit terminée pour que le résultat s'affiche dans mon Memo... De
plus, tous le temps de la commande, l'application est comme "bloquée",
impossible de déplacer la fenêtre par exemple...
Si qq un peu m'aider, cela serait vraiment sympa... Merci d'avance !
Voici mon code :
(précision, Rippack_RipFormBeta->Memo1 est le mémo dans lequel je sort,
filepos est ma ligne de commande)

Code :

Rippack_RipFormBeta->Memo1->Clear();
int FBreak;
HANDLE hReadPipe;
HANDLE hWritePipe;
STARTUPINFO si;
LPSECURITY_ATTRIBUTES lpsa = NULL;
if(CreatePipe(&hReadPipe,&hWritePipe,lpsa,0))
{
memset(&si, 0, sizeof(STARTUPINFO));
si.cb = sizeof(STARTUPINFO);
si.dwFlags = STARTF_USESHOWWINDOW |STARTF_USESTDHANDLES;
si.wShowWindow = SW_HIDE;
si.hStdOutput = hWritePipe;
si.hStdError = hWritePipe;
PROCESS_INFORMATION pi;
if(hWritePipe)
{
Rippack_RipFormBeta->Memo1->Lines->Add("Working..." );
Application->ProcessMessages();
if(CreateProcess(NULL,filepos.c_str(),NULL,NULL,TRUE,0,0,0,&si,&pi))
{
CloseHandle(pi.hThread);
WaitForSingleObject(pi.hProcess, 90000);
if(hReadPipe)
{
DWORD BytesRead; //unsigned long
char dest[4000];
bool RdLoopDone = false;
Rippack_RipFormBeta->Memo1->Clear();
FBreak = 1;
if(ExitCode) Screen->Cursor = crDefault;
while(!RdLoopDone)
{
memset(dest, 0, 4000);
if(ReadFile(hReadPipe, &dest, sizeof(dest), &BytesRead,
NULL))
{
Rippack_RipFormBeta->Memo1->Lines->Add(String(dest));
if(BytesRead < 4000) RdLoopDone = true;
if(FBreak > 150) RdLoopDone = true;
FBreak++;
CloseHandle(hReadPipe);
CloseHandle(hWritePipe);
CloseHandle(pi.hProcess);
}
}
}
}
}
}

[edit]--Message édité par bruce--[/edit]

---------------
A+++ Bruce - http://www.bheller.com

Publicité

JWhy

je peux plier (héhé)

oui, c'est normal... je me suis fait avoir de la meme facon...

Citation :

ReadFile returns when one of the following is true: a write operation completes on the write end of the pipe, the number of bytes requested has been read, or an error occurs.

c'est a dire que tant que tu n'ecris rien, ca ne "revient" pas et donc ton prog. est bloqué..
l'astuce (merci minicooler :jap: ) est d'utiliser l'API PeekNamedPipe pour savoir si il y a qqchose d'ecrit et si c'est le cas, utiliser ReadFile pour recuperer le contenu !

---------------
www.alliancefrancophone.org ... Home is where the heart is

Bruce

Music 4 your ears!

Heu... tu n'aurrai pas un exemple de code qq part car je suis pas encore bien pro en prog... J'ai pompé ça sur un exemple fourni avec BC++ en adaptant à mes besoins...

Merci encore !

---------------
A+++ Bruce - http://www.bheller.com

JWhy

je peux plier (héhé)

beuh... j'fais du Delphi, moi... mais je vais essayer de te trouver un bout de code relativement clair...

---------------
www.alliancefrancophone.org ... Home is where the heart is

JWhy

je peux plier (héhé)

Code :

procedure TProcess.ReadScreen;
var
Buffer: array[0..255] of Char;
dwLeft, dwRead : DWORD;
begin
// FillChar(Buffer, SizeOf(Buffer), 0);
dwLeft := 0;
dwRead := 0;
FLastLines := '';
PeekNamedPipe (hOutPipeRead, nil, 0, @dwRead, @dwLeft, nil);
// has anything been read?
if (dwLeft <> 0) then
begin
ReadFile(hOutPipeRead, Buffer, dwLeft, dwRead, nil);
// finish buffer to PChar
Buffer[dwRead] := #0;
// combine the buffer with the rest of the last run
FLastLines := Buffer;
FLines := FLines + Buffer ;
end;
end;

---------------
www.alliancefrancophone.org ... Home is where the heart is

Bruce

Music 4 your ears!

Heu... bon, je doit avouer avoir du mal à piger ta syntaxe... Le pascal est qd même légèrement différent...

---------------
A+++ Bruce - http://www.bheller.com

antp

Super Administrateur
Champion des excuses bidons

pour éviter que ça bloque il faut faire régulièrement des Application->ProcessMessages(); c'est-à dire juste après le memo->lines->add.
Peut-être que ça résoudra l'autre problème en même temps...

[edit]--Message édité par antp--[/edit]

---------------
mes programmes ·· les voitures dans les films ·· apprenez à écrire

Bruce

Music 4 your ears!

Pas con, je vais essayer.

---------------
A+++ Bruce - http://www.bheller.com

antp

Super Administrateur
Champion des excuses bidons

si tu le met juste après le ->add il risque de pas le faire souvent pour les longues opérations
si tu le met dans la boucle en dehors du if c'est dangereux pcq ton appli risque de prendre trop de CPU pour rafraichir... il faut tester

---------------
mes programmes ·· les voitures dans les films ·· apprenez à écrire

JWhy

je peux plier (héhé)

m'etonnerait que ca marche... c'est l'appel de l'API qui est bloquant... le ProcessMessage ne resoudra rien, je pense ...

sinon, regarde l'aide de l'API PeekNamedPipe, la declaration en C + le code Delphi devrait pouvoir t'aider a faire la conversion .

---------------
www.alliancefrancophone.org ... Home is where the heart is

Publicité

antp

Super Administrateur
Champion des excuses bidons

ha ouais c'est au WaitForSingleObject(pi.hProcess, 90000); qu'il bloque... j'avais pas vu.
le plus simple serait alors de le mettre dans un thread séparé je crois.

---------------
mes programmes ·· les voitures dans les films ·· apprenez à écrire

antp

Super Administrateur
Champion des excuses bidons

ou alors:
while(!WaitForSingleObject(pi.hProcess, 1000))
{
Application->ProcessMessages();
}

toutes les secondes il fait le processmessages.
je sais pas si c'est très bien comme solution.
et si le programme exécuté est calé il attend indéfiniment.

---------------
mes programmes ·· les voitures dans les films ·· apprenez à écrire

robripper

antp a écrit a écrit :

ha ouais c'est au WaitForSingleObject(pi.hProcess, 90000); qu'il bloque... j'avais pas vu.
le plus simple serait alors de le mettre dans un thread séparé je crois.

un thread séparé, c le truc à faire en effet...

Bruce

Music 4 your ears!

Heu... en Win32 j'ai du mal, un exemple de code ???

---------------
A+++ Bruce - http://www.bheller.com

antp

Super Administrateur
Champion des excuses bidons

pourquoi en win32 ? y a des objets pour faire des threads dans C++builder, c'est plus simple à utiliser je crois.

---------------
mes programmes ·· les voitures dans les films ·· apprenez à écrire

Bruce

Music 4 your ears!

Hummm... disons que je m'y connais mal

---------------
A+++ Bruce - http://www.bheller.com

robripper

bruce a écrit a écrit :

Hummm... disons que je m'y connais mal

DWORD threadid;
HANDLE threadhandle;

...
threadhandle = CreateThread(NULL,1024,ma_fonction,NULL,CREATE_SUSPENDED,&threadid);
...
TerminateThread(threadhandle,0);

==================

DWORD WINAPI ma_fonction(LPVOID)
{
EnterCriticalSection(&crit);

// ... travail ...

LeaveCriticalSection(&crit);
return 0;
}

antp

Super Administrateur
Champion des excuses bidons

robripper a écrit a écrit :

DWORD threadid;
HANDLE threadhandle;

...
threadhandle = CreateThread(NULL,1024,ma_fonction,NULL,CREATE_SUSPENDED,&threadid);
...
TerminateThread(threadhandle,0);

y a aussi la classe TThread.
Moi j'utiliserais celle-ci, ça a l'air plus simple

[edit]--Message édité par antp--[/edit]

---------------
mes programmes ·· les voitures dans les films ·· apprenez à écrire

Bruce

Music 4 your ears!

Hu ? :??:

---------------
A+++ Bruce - http://www.bheller.com

robripper

Tu peux aussi modifier les priorités ...

SetThreadPriority(threadhandle,THREAD_PRIORITY_NORMAL);

antp

Super Administrateur
Champion des excuses bidons

bruce a écrit a écrit :

Hu ? :??:

prend l'aide de Builder à "TThread" je crois que c'est ce qu'il y aura de plus facile pour commencer...
sinon dans les exemples fournis il doit bien y en avoir un qui fait ça...

---------------
mes programmes ·· les voitures dans les films ·· apprenez à écrire

robripper

Franchement moi j'utiliserais l'API c'est bien plus simple, je viens de jetter un oeil dans c++ builder
Attention, bientôt il va te faire utiliser Delphi, je connais bien antp :hap: :hap:

antp

Super Administrateur
Champion des excuses bidons

robripper a écrit a écrit :

Franchement moi j'utiliserais l'API c'est bien plus simple, je viens de jetter un oeil dans c++ builder

Attention, bientôt il va te faire utiliser Delphi, je connais bien antp :hap:

ok pour l'API
avec Delphi le .exe serait moins gros

---------------
mes programmes ·· les voitures dans les films ·· apprenez à écrire

robripper

Tu crées juste un thread, tu lui passes ta fonction en param (cell qui va faire tout le travail)... etc

En plus ici t'es pas obligé de section critique donc ...

DWORD WINAPI ma_fonction(LPVOID)
{

// ... rippage, normalisation, etc etc ... :sol:

return 0;
}

Bruce

Music 4 your ears!

Honettement je suis un peu paumé, je vois pas trop ou vous voulez en venir (il faut dire que jes thread et moi... ).

---------------
A+++ Bruce - http://www.bheller.com

JWhy

je peux plier (héhé)

oui... je vois pas pourquoi vous lui parlez de threads ...

comme je te disais, le probleme vient de ReadFile qui est bloquant tant que rien n'est ecrit dans ton stdout... c'est a dire que si tu as un prog qui va ecrire un truc, attendre 5 secondes, ecrire un autre truc, readfile va bloquer ton appli pendant les 5 secondes ou le prog. n'ecrit rien dans le stdout...

il faut que tu remplaces le ReadFile bloquant:

Citation :

if(ReadFile(hReadPipe, &dest, sizeof(dest), &BytesRead, NULL)) {
[...]
}

par un test pour savoir si il y a qqchose a lire et ensuite, si il y a qqchose, le lire (qui ne sera pas bloquant puisque tu vas lire exactement ce qu'il y a):

Citation :

PeekNamedPipe (hOutPipeRead, nil, 0, @dwRead, @dwLeft, nil);

// has anything been read?
if (dwLeft <> 0) then
begin
ReadFile(hOutPipeRead, Buffer, dwLeft, dwRead, nil);
[...]
end;

---------------
www.alliancefrancophone.org ... Home is where the heart is

Bruce

Music 4 your ears!

un cht'i up car bon... je suis tj bloqué...

---------------
A+++ Bruce - http://www.bheller.com

Publicité

FORUM HardWare.fr

Programmation

[Borland C++ builder] Redirection sdtout

Sujets relatifs
Se connecter à un serveur MySQL a partir de Borland C++	Redirection en php
passer des parametre avec borland c++ builder 5	[Borland C++ 5.01] comment effacer un fichier ?
[C++ BORLAND] : cube	[Javascript]= cibler deux frames avec un menu de redirection
C++ et Borland : OWL	Bonne redirection... j'en connais pas !
<meta> de redirection mais en page pleine comment ?
Plus de sujets relatifs à : [Borland C++ builder] Redirection sdtout

Page générée en 0.096 secondes