| Автор
| Сообщение |
|
|
|
Цитата |
|
| Ktf спасибо большое наконецто разобрался |
|
| В начало |
|
 |
|
|
 |
|
|
|
Цитата |
|
Бросаю полный код чтоп ламеры, новечки и такие как я не мучились есле тоже самое понадобица.
| Код: |
USES Winsock
procedure TForm1.Button1Click(Sender: TObject);
type
TaPInAddr = Array[0..63] of PInAddr;
PaPInAddr = ^TaPInAddr;
var
phe: PHostEnt;
pptr: PaPInAddr;
Buffer: Array[0..100] of Char;
I: Integer;
GInitData: TWSAData;
begin
//Инициализация сокетов
WSAstartup($101, GInitData);
//Получаем имя локального компьютера (хоста)
Buffer:='forum.chertenok.ru';
//Получаем указатель на хост
phe := GetHostByName(buffer);
if phe = nil then Exit;
//Получаем указатель на массив адресов.
pPtr := PaPInAddr(phe^.h_addr_list);
I := 0;
//Перечисляем все адреса
while pPtr^[I] <> nil do
begin
//Вывести адрес
edit1.Text :=inet_ntoa (pptr^[I]^) ;
Inc(I);
end;
//Закрываем сокет
WSACleanup;
end;
|
|
|
| В начало |
|
|
|
