Оригинальный DVD-ROM: eXeL@B DVD !
eXeL@B ВИДЕОКУРС !

ВИДЕОКУРС ВЗЛОМ
выпущен 8 мая!


УЗНАТЬ БОЛЬШЕ >>
Домой | Статьи | RAR-cтатьи | FAQ | Форум | Скачать | Видеокурс
Новичку | Ссылки | Программирование | Интервью | Архив | Связь

БОЛЬШОЙ FAQ ПО DELPHI



Как проверить активно ли интернет соединение (как пинговать узел?) ?

Попробуй пинговать какой-нить www.microsoft.com. Hадеюсь, узла с таким
именем нет в вашей локальной сети.

function TMailer.PingHost(HostName: String): boolean;
var
H: PHostEnt;
WSDATA: WSADATA;
I,AutoConnectState: Integer;
begin
Result := False;
With TRegistry.Create do
try
{ Отключам автоматическое подключение через модем }
OpenKey('\SOFTWARE\Microsoft\Windows\CurrentVersion\Internet Settings', False);
ReadBinaryData('EnableAutodial', AutoConnectState, SizeOf(AutoConnectState));
I := 0;
WriteBinaryData('EnableAutodial', I, SizeOf(I));
{ Загружаем библиотеку WinSock }
if WSAStartup(MAKEWORD(1, 0), WSDATA) <> 0 then
begin
{ ошибка получилась :-( }
Exit;
end;
H := GetHostByName(PChar(HostName));
Result := H <> nil;
finally
WriteBinaryData('EnableAutodial', AutoConnectState, SizeOf(AutoConnectState));
WSACleanup;
Free;
end;
end;



<< ВЕРНУТЬСЯ В ОГЛАВЛЕНИЕ



Материалы находятся на сайте https://exelab.ru/pro/



Оригинальный DVD-ROM: eXeL@B DVD !


Вы находитесь на EXELAB.rU
Проект ReactOS