++++++++++++++++++++++++++++++
Destino.S_addr := inet_addr(Pchar(Edit1.text));
if (Destino.S_addr = 0) then begin
Host := GetHostbyName(PChar(Edit1.text)) //здесь IP ввожу;
end
else begin
Host := GetHostbyAddr(@Destino,sizeof(in_addr), AF_INET);
end; if (host = nil) then begin memo1.lines.add:='IP Не_OK'
exit;
+++++++++++++++++++++++++++++++++++++
Что может быть не так ???????????
Сообщение отредактировал CPU: 11 September 2005 - 01:21