Autre Truc bizarre ! [Newby]

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : Autre Truc bizarre ! [Newby]

Kyle_Katarn

Pourquoi est ce que la fonction suivante

Code :

function IsOnline(koi:string):boolean;
var
ShExecInfo : SHELLEXECUTEINFO;
params:string;
outchem:string;
begin
outchem:='c:\test.txt';
params:= koi + ' -l 1 -n 1 > ' + outchem;
ShExecInfo.cbSize := sizeof(SHELLEXECUTEINFO);
ShExecInfo.fMask := SEE_MASK_NOCLOSEPROCESS;
ShExecInfo.lpVerb := nil;
ShExecInfo.lpFile := PChar('ping.exe');
ShExecInfo.lpParameters := PChar(params);
ShExecInfo.lpDirectory := nil;
ShExecInfo.nShow := SW_HIDE;
ShellExecuteEx(@ShExecInfo);
while (WaitForSingleObject(ShExecInfo.hProcess,0)=WAIT_TIMEOUT) do
application.ProcessMessages;
IsOnline:=true;
end;

Ne me crée elle pas le fichier 'c:\test.txt' en y exportant le résultat de "ping" ? (alors que sous DOS ça marche sans pb...)

Message édité par Kyle_Katarn le 14-04-2003 à 20:03:21

Publicité

antp

Super Administrateur
Champion des excuses bidons

je ne pense pas que le ">" pour faire une redirection fonctionne avec un ShellExecute...

Si c'est juste pour voir si un serveur répond y a probablement plus propre par ex le compo TIdIcmpClient dans la palette Indy Client, je crois.

Message édité par antp le 14-04-2003 à 17:52:07

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

Kyle_Katarn

C'est marrant que ça marche pas...

Ok pour le compo, je débute donc je suis reconnaissant pour ce genre de conseil de modo avisé ;-)

Kyle_Katarn

J'utilise maintenant le code suivant, où ping est le composant que tu m'as indiqué.

Quand je "pingue" une machine qui n'est pas connectée, je me paye une exception EIdSocketError qui me dit que l'hôte n'est pas trouvé. Pourquoi le try...except suivant ne résoud pas le problème ?

Code :

function IsOnline(koi:string):boolean;
begin
Form1.ping.Host:=koi;
Form1.ping.ReceiveTimeout:=500;
try
Form1.ping.Ping;
IsOnline:=(Form1.ping.ReplyStatus.ReplyStatusType=rsEcho);
except
on EIdSocketError do IsOnline:=false;
end;
end;

antp

Super Administrateur
Champion des excuses bidons

Peut-être parce que la fonction Ping n'est pas bloquante ? Y a pas on OnError pour lequel il faut mettre le code à 0 si on ne veut pas que l'erreur survienne ? J'ai pas la doc d'Indy sous la main.

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

Kyle_Katarn

merci, je vais regarder de ce coté !

Ciler

antp a écrit :

Je confirme, le > est une commande specifique au dos, et ne peut donc etre utilisee dans du delphi ou autre language de prog d'ailleurs.

Kyle_Katarn

même en tant que paramètre ? bizarre.

antp

Super Administrateur
Champion des excuses bidons

y a moyen, suffit d'exécuter

cmd /c ping ip > fichier
sous NT

command /c ping ip > fichier
sous 9x

Mais bon passer par ping pour voir si un serveur est online c'est pas ce qu'il y a de mieux

Message édité par antp le 17-04-2003 à 14:30:45

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

Kyle_Katarn

Finalement j'ai adopté l'ICMP plus "propre" comme méthode ;-)

FORUM HardWare.fr

Programmation

Delphi/Pascal

Autre Truc bizarre ! [Newby]

Sujets relatifs
PHP Objet : Un truc bizard	Petit truc à la con sur VB
problème bizarre: connexion base mysql	[JS] Pb bizarre
[newby inside] -> transformer application en applet	gros truc de n00b mais moi je c'est pas le faire :)
filesize() ? comprends pas un truc	Probleme bizarre avec php myadmin
un ptit truc tout con mais qui plante, pourquoi ?(pointeur)	problème bizarre (avec getline length() et cout)
Plus de sujets relatifs à : Autre Truc bizarre ! [Newby]

Page générée en 0.073 secondes