Testar Rede com PING
Ola galera,
alguém sabe como fazer para testar a rede através do PING????
Só que eu preciso retornar as informações deste comando num programa em delphi......
na verdade preciso deixar um programa rodando o dia inteiro testando o link e no final do dia ele me mostra relatórios e gráficos......
eu preciso que retorne as informações do PING (tempo de resposta)
Alemão
alguém sabe como fazer para testar a rede através do PING????
Só que eu preciso retornar as informações deste comando num programa em delphi......
na verdade preciso deixar um programa rodando o dia inteiro testando o link e no final do dia ele me mostra relatórios e gráficos......
eu preciso que retorne as informações do PING (tempo de resposta)
Alemão
By Alemão
Curtidas 0
Respostas
Thaisandrade
10/07/2003
Alemão, esse código captura a saída de uma aplicação MS-DOS, acho que vai ajudar você.
procedure TForm1.Button1Click(Sender: TObject);
var
StartupInfo: TStartupInfo;
ProcessInformation :TProcessInformation;
rc: Boolean;
Handle :THandle;
begin
GetStartupInfo(StartupInfo);
Handle:= CreateFile(´saida.txt´,GENERIC_READ or GENERIC_WRITE, 0, nil, CREATE_ALWAYS , 0, 0);
with StartupInfo do
begin
hStdOutput := Handle;
wShowWindow := SW_SHOW;
dwFlags := STARTF_USESHOWWINDOW or STARTF_USESTDHANDLES;
end;
rc:= CreateProcess(nil,´c:\windows\system32\cmd ping 127.0.0.1´,nil, nil, True,0 , nil, nil, StartupInfo, ProcessInformation);
if rc then
begin
WaitForSingleObject(ProcessInformation.hProcess, INFINITE);
end;
CloseHandle(Handle);
ListBox1.Items.LoadFromFile(´saida.txt´);
DeleteFile(´saida.txt´);
end;
procedure TForm1.Button1Click(Sender: TObject);
var
StartupInfo: TStartupInfo;
ProcessInformation :TProcessInformation;
rc: Boolean;
Handle :THandle;
begin
GetStartupInfo(StartupInfo);
Handle:= CreateFile(´saida.txt´,GENERIC_READ or GENERIC_WRITE, 0, nil, CREATE_ALWAYS , 0, 0);
with StartupInfo do
begin
hStdOutput := Handle;
wShowWindow := SW_SHOW;
dwFlags := STARTF_USESHOWWINDOW or STARTF_USESTDHANDLES;
end;
rc:= CreateProcess(nil,´c:\windows\system32\cmd ping 127.0.0.1´,nil, nil, True,0 , nil, nil, StartupInfo, ProcessInformation);
if rc then
begin
WaitForSingleObject(ProcessInformation.hProcess, INFINITE);
end;
CloseHandle(Handle);
ListBox1.Items.LoadFromFile(´saida.txt´);
DeleteFile(´saida.txt´);
end;
GOSTEI 0
By Alemão
10/07/2003
ó..... funcionou beleza só no Windows 98....
preciso que funcione no Windows 2000 Server e no XP.....
o que tenho q mudar?????
Alemão
preciso que funcione no Windows 2000 Server e no XP.....
o que tenho q mudar?????
Alemão
GOSTEI 0