[PhoeniX]

Сразу предупреждаю: яндексил, поиск по форуму юзал.

Нужен простой алгоритм ping-а (без применения тяжеловесов-индейцев, всё на winsock), и если есть ответ от сервера - проверить, открыт ли на нём порт. В результате функция должна вернуть:
-1 - если сервер недоступен
-2 - если сервер доступен, но порт закрыт
иначе среднее из двух-трёх пингов.

То, что имею сейчас:

Код:

function Aviable(ipaddr:string;port:integer):boolean;
var
  D:WSAData;
  S:TSocket;
  A:TSockAddr;
begin
  result:=false;
  if WSAStartup($101,D)<>0 then exit;
  A.sin_family:=AF_INET;
  A.sin_addr.S_addr:=inet_addr(pchar(ipaddr));
  S:=socket(AF_INET,SOCK_STREAM,0);
  if S=INVALID_SOCKET then exit;
  A.sin_port:=htons(port);
  if connect(S,A,sizeof(A))=0 then result:=true;
  WSACleanup;
end;

выдрал из ДелфиВорлда. Но он "застревает", если нету соединения с портом. Если есть метод поставить на нето таймаут - буду признателен. Если доделаю эту с таймаутом, то пинг возможно и сам сумею встроить... Но лучше бы сразу функцию...

[PhoeniX]

И вот ещё что: ни у кого не завалялась функция преобразования адреса вида "my.site.ru" в IP-адрес, с учётом файла hosts и текущих настроек DNS на компе юзера?

====================
ЗЫ: Раздаю плюсы за любую полезную информацию.

[Ferra]

Насколько ты объяснил, ответы такие:

Как узнать IP машины по имени

Код:

uses
  WinSock;

const
  WINSOCK_VERSION = $0101;

function GetIPAddress(name: string): string;
var
  WSAData: TWSAData;
  p: PHostEnt;
begin
  WSAStartup(WINSOCK_VERSION, WSAData);
  p := GetHostByName(PChar(name));
  Result := inet_ntoa(PInAddr(p.h_addr_list^)^);
  WSACleanup;
end;

Определить, занят ли порт сокета

Код:

var SockAddrIn : TSockAddrIn;
    FSocket    : TSocket;

  ...

  If  bind(FSocket, SockAddrIn, SizeOf(SockAddrIn)) <> 0 Then
  begin
    обрабатываем WSAGetLastError
  end;

а вообще можно и через пинг.
Чтобы узнать IP сервера www.google.ru (http://www.google.ru), пишешь в командной строке:
ping www.google.ru (http://www.google.ru/)

[Ferra]

И на всякий случай, формируй запросы правильно. и ищи детально.
http://www.google.ru/search?hl=ru&q=...lr=&aq=f&o q=

[PhoeniX]

Хм... спс за первый код. а второй я чёто не разобрал... слух, я в винсоках нулевой. Можешь разъяснить, что там и куда?

[NekitoSSSS]

Internet Component Suite (ISC) тебе может помочь, там есть такой отличный компонент как TPing, скачать можно тут, в архиве есть демка по использованию. посмотришь исходничек демки и сам ответишь на все свои возникшие вопросы
----------------
офф. сайт

[PhoeniX]

Огромная спасиба))
=============
Радость была недолгой, ибо это решило дело лишь наполовину. Вопрос ещё открыт: как проверить, есть ли соединение с определённым портом на сервере?

[NekitoSSSS]

Просканировать все возможные порты в цикле на открытость.
думаю ЭТОТ исходник тебе поможет , ну или вот ЭТОТ

P.S. желательно использовать второй, он удобней сам его юзаю

[PhoeniX]

Спс, помогло. пока заюзал второй... Позже переделаю первый под себя.
Поставил плюсеги.

[NekitoSSSS]

Кстати а для чего тебе это если не секрет??

[Aless]

Для Ferra.Я прикольнее придумал слоган - нет повести печальнее на свете,чем повесть о зависшем интернете!!!