Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

простейший пинг - как? [Win2k]

Grundic © (2004-10-22 08:57:00)
Посоветуйте, пожалуйста, может у кого уже есть заготовки - простой способ пропинговать машину в сети.

Grundic (2004-10-22 15:05:00) [1]

> Дмитрий Ботвин (22.10.04 13:05) [6]
> Попробуй вот этот. МелкоМягким его не назовёшь, но другова
> под
> рукой не нашлось. Дома есть ещё какой-то, завтра принесу...

Спасибо. Наковырял то, что мне было нужно... %)

http://www.delphimaster.ru/cgi-bin/forum.pl?id=1098380289&n=4

Anatoly Podgoretsky (2004-10-22 13:31:00) [2]
Grundic © (22.10.04 11:39) [3]
Минусы - вызывать его WinExec'ом, потом считывать выходные данные - занимает довольно большое кол-во машинного времени. Да и иногда зависает, если я пытаюсь максимально ускорить этот процесс. Кроме того - как-то неприятно зависеть от чего-то ещё, кроме Винды. :)

Не зависает, по причине, того что это внешняя программа, управление отдается сразу же. Но использовать функции из Win 3.1 как то не кошерно. В Win9x/NT есть ShellExecute/CreateProcess.

Ускорить ни как, сам вызов и так занимает микросекунды, остальное время занимает само пингование, а это до нескольки секунд и более если нет ответа.

Зависимости кроме "Винды" нет, это чисто Windows

Дмитрий Ботвин (2004-10-22 13:05:00) [3]
Попробуй вот этот. МелкоМягким его не назовёшь, но другова под
рукой не нашлось. Дома есть ещё какой-то, завтра принесу...

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
winsock, StdCtrls;

type
IPINFO = record
Ttl :char;
Tos :char;
IPFlags :char;
OptSize :char;
Options :^char;
end;

type
ICMPECHO = record
Source :longint;
Status :longint;
RTTime :longint;
DataSize:Shortint;
Reserved:Shortint;
pData :^variant;
i_ipinfo:IPINFO;
end;

TIcmpCreateFile = function():integer; {$IFDEF WIN32} stdcall; {$ENDIF}
TIcmpCloseHandle = procedure(var handle:integer);{$IFDEF WIN32} stdcall; {$ENDIF}
TIcmpSendEcho = function(var handle:integer; endereco:DWORD; buffer:variant; tam:WORD; IP:IPINFO; ICMP:ICMPECHO; tamicmp:DWORD; tempo:DWORD):DWORD;{$IFDEF WIN32} stdcall; {$ENDIF}

type
TForm1 = class(TForm)
Button1: TButton;
Button2: TButton;
Edit1: TEdit;
Memo1: TMemo;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
public

end;

var
Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);
var
wsadt : wsadata;
icmp :icmpecho;
HNDicmp : integer;
hndFile :integer;
Host :PHostEnt;
Destino :in_addr;
Endereco :^DWORD;
IP : ipinfo;
Retorno :integer;
dwRetorno :DWORD;
x :integer;

IcmpCreateFile : TIcmpCreateFile;
IcmpCloseHandle : TIcmpCloseHandle;
IcmpSendEcho : TIcmpSendEcho;

begin
if (edit1.Text = '') then begin
Application.MessageBox('Digite um HostName ou um End. IP',
'Error', MB_OK);
exit;
end;
HNDicmp := LoadLibrary('ICMP.DLL');
if (HNDicmp 0) then begin
@IcmpCreateFile := GetProcAddress(HNDicmp,'IcmpCreateFile');
@IcmpCloseHandle := GetProcAddress(HNDicmp,'IcmpCloseHandle');
@IcmpSendEcho := GetProcAddress(HNDicmp,'IcmpSendEcho');
if (@IcmpCreateFile=nil) or (@IcmpCloseHandle=nil) or (@IcmpSendEcho=nil) then begin
Application.MessageBox('Erro pegando endereços ICMP','Error', MB_OK);
FreeLibrary(HNDicmp);
end;
end;
Retorno := WSAStartup($0101,wsadt);

if (Retorno 0) then begin
Application.MessageBox('Não foi possível carregar WinSockets','WSAStartup', MB_OK);
WSACleanup();
FreeLibrary(HNDicmp);
end;

Destino.S_addr := inet_addr(Pchar(Edit1.text));
if (Destino.S_addr = 0) then begin
Host := GetHostbyName(PChar(Edit1.text));
end
else begin
Host := GetHostbyAddr(@Destino,sizeof(in_addr), AF_INET);
end;

if (host = nil) then begin
Application.MessageBox('Host não encontrado','Error', MB_OK);
WSACleanup();
FreeLibrary(HNDicmp);
exit;
end;
memo1.Lines.Add('Pinging ' + Edit1.text);

Endereco := @Host.h_addr_list;

HNDFile := IcmpCreateFile();
for x:= 0 to 4 do begin
Ip.Ttl := char(255);
Ip.Tos := char(0);
Ip.IPFlags := char(0);
Ip.OptSize := char(0);
Ip.Options := nil;

dwRetorno := IcmpSendEcho(
HNDFile,
Endereco^,
null,
0,
Ip,
Icmp,
sizeof(Icmp),
DWORD(5000));
Destino.S_addr := icmp.source;
Memo1.Lines.Add('Pingou ' + Edit1.text);
end;

IcmpCLoseHandle(HNDFile);
FreeLibrary(HNDicmp);
WSACleanup();
end;

end.

Grundic (2004-10-22 12:35:00) [4]
То-то и оно... :)))
Дмитрий, а у Вас (совершенно случайно %))))) нет исходников МелкоМягкого пинга.экзе?

Дмитрий Ботвин (2004-10-22 12:09:00) [5]
Тогда тока самому писать :-)))

Grundic (2004-10-22 11:39:00) [6]
Запуск родного пинга имеет как плюсы, так и минусы. И, как обычно :), нужны именно эти плюсы без минусов. 6)
%systemroot%\system32\ping.exe:
Плюсы - не вызывает ошибок, если кабель валяется где-то рядом (нет связи).
Минусы - вызывать его WinExec'ом, потом считывать выходные данные - занимает довольно большое кол-во машинного времени. Да и иногда зависает, если я пытаюсь максимально ускорить этот процесс. Кроме того - как-то неприятно зависеть от чего-то ещё, кроме Винды. :)

Дмитрий Ботвин (2004-10-22 11:03:00) [7]
Самый простой способ - это запустить Ping xxx.xxx.xxx.xxx c
помощью функции WinExec. Писать практически не придётся....

Rouse_ (2004-10-22 09:22:00) [8]
http://www.delphimaster.ru/articles/icmp.html

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »