ping

← →
syte_ser78 © (2004-04-27 14:15) [0]

Подскажите, как пропинговать (проверить, есть ли данная машина в сети)?
В смысле интересует код на делви

← →
NeyroSpace © (2004-04-27 14:22) [1]

1. raw socket и вперед мастерить ICMP пакет.
2. ICMP API, хедеры на http://www.delphi-jedi.org/

← →
NeyroSpace © (2004-04-27 14:25) [2]

3. компонентик из серии JVCL (точнее JVCL+JCL free) берется на онном же сайте.
4. примеров кода в YANDEX.ru полно

← →
Vlad Oshin © (2004-04-27 14:50) [3]

есть компоненты от piette(JVCL и есть наверное), мне пнравились

или так делал

command:="ping.exe "+ edit1.Text+" "+s+" -n 10";
para:="c:\1.txt";
SA.nLength := SizeOf(SA);
SA.lpSecurityDescriptor := nil;
SA.bInheritHandle := True;
hMyFile := CreateFile(PChar(Para), GENERIC_WRITE, FILE_SHARE_WRITE, @SA, CREATE_ALWAYS, FILE_ATTRIBUTE_NORMAL, 0);
ZeroMemory(@SI, SizeOf(SI));
SI.cb := SizeOf(Si);

SI.dwFlags := STARTF_USESHOWWINDOW or STARTF_USESTDHANDLES ;
SI.wShowWindow:=SW_HIDE;
SI.hStdOutput := hMyFile;
if CreateProcess(nil, PChar(Command), nil, nil, True, 0, nil, nil, SI, PI) then
begin
CloseHandle(PI.hThread); WaitForSingleObject(PI.hProcess, INFINITE);
CloseHandle(PI.hProcess);
end
else memo1.Lines.Add("Ошибка запуска " + Command);
CloseHandle(hMyFile);

прочитать потом из файлика результат

← →
NeyroSpace © (2004-04-27 14:58) [4]

Если я не глючу
ping.exe IP -n 10 > my.exe
и можно получить все сразу в программу как это делает фар от архиваторов, правда я так не делал ни разу

← →
syte_ser78 © (2004-04-27 15:45) [5]

Спасибо

> есть компоненты от piette(JVCL и есть наверное)

Нет, JVCL - это развитие RxLib. От Пиетти - это ICS 9Internet co,ponent suite0, действительно хорошая штука. Есть еще Indy

http://www.delphimaster.ru/articles/icmp.html

наверное, не знаю

ping Найти похожие ветки