Отправлено: 14.06.12 16:26. Заголовок: Доступность серверов (аналог Ping)

Есть ли в Harbour аналог команды ping?
Собственно что нужно, есть ряд серверов, нужно проверять их доступность. Как вариант посылать периодически Ping. Если ли что то похожее в Harbour?

 Отправлено: 14.06.12 16:44. Заголовок: Это http сервер, фай..

Это http сервер, файловий, ftp, ... ?
К примеру http используя hbtip,

   oHttp := TIpClientHttp():new( "http://www." ) 
    IF ! oHttp:open() 
       ? "Connection error:", oHttp:lastErrorMessage() 
       QUIT 
    ENDIF

 Отправлено: 18.06.12 17:15. Заголовок: Увы, нет. Это может ..

Увы, нет. Это может быть сервер БД или виртуальная машина, просто нужно мониторить ее доступность.

 Отправлено: 18.06.12 17:20. Заголовок: Тогда копай в сторон..

Тогда копай в сторону hb_processRun( )

func main() 
 local str1 := space(100) 
 hb_processRun( "ping 192.168.x.x" , , @str1 ) 
 ?"str1" 
 ?str1 
 return nil

дальше разбирай str1

 Отправлено: 20.06.12 06:48. Заголовок: http://citforum.ru/n..

http://citforum.ru/nets/articles/ping/

Теперь для реализации пинга хоста мы:

создаем соединение;
вызываем ICMPSendEcho;
обрабатываем результат;
закрываем соединение.

Эти действия удобно оформить в виде процедуры:

procedure Ping (const Address, EchoString: PChar;
var PingReply: TsmICMP_Echo_Reply;
const PingTimeout: Integer = 500);
var
IPAddress: TipAddr;
ICMPPort: THandle;
begin
// Конвертация IP в понятный для API формат
IPAddress:= inet_addr (Address);
// Проверка корректности конвертации
if (IPAddress = INADDR_NONE) then
begin
raise Exception.Create ('Function call inet_addr failed. ' +
'The IP address is probably invalid.');
end;
// Открытие соединения
ICMPPort:= IcmpCreateFile ();
// Проверка правильности открытия
if (ICMPPort = INVALID_HANDLE_VALUE) then
begin
raise Exception.Create ('Function call IcmpCreateFile failed.');
end;
// Отправка запроса "пинг"
IcmpSendEcho (ICMPPort, IPAddress,
EchoString, Length (EchoString), nil,
@PingReply, SizeOf (PingReply), PingTimeout);
// Закрытие соединения
IcmpCloseHandle (ICMPPort);
end;

Теперь при использовании в коде программы конструкции:

Ping ('127.0.0.1',nil,Reply,5000);

в переменной Reply мы получим результат пинга.

 Отправлено: 21.06.12 00:37. Заголовок: еще вариант Я тут ДЛ..

еще вариант
Я тут ДЛЛку накропал размером 5кб
Вызывается так
IPAddr="192.168.0.1"
? "Ping("+IPAddr+", 1000)="
?? Str(CallDll32 ( "Ping" , "TestInternetConnection.DLL" , IPAddr, 1000 ))

IPAddr="192.168.0.178"
? "Ping("+IPAddr+", 3000)="
?? Str(CallDll32 ( "Ping" , "TestInternetConnection.DLL" , IPAddr, 3000 ))

вроде работает

функция Ping(strAddr, TimeOutMs) возвращает 0 или 1

Если кому надо - пишите - куда прислать или выложить

 Отправлено: 25.06.12 10:54. Заголовок: SADSTAR4 если можно..

SADSTAR4 если можно пришлите на ящик wolfv @ ukr.net. Большое спасибо!