Форум: "Сети";
Текущий архив: 2002.12.02;
Скачать: [xml.tar.bz2];
ВнизПочему она не понимает русских букв? Найти похожие ветки
← →
Kotka (2002-10-06 01:14) [0]Пользовался стандартной функцией, которую можно найти везде. Она определяет IP-адрес по имени:
function HostToIP(Name: string; var Ip: string): Boolean;
var
wsdata : TWSAData;
hostName : array [0..255] of char;
hostEnt : PHostEnt;
addr : PChar;
begin
WSAStartup ($0101, wsdata);
try
gethostname (hostName, sizeof (hostName));
StrPCopy(hostName, Name);
hostEnt := gethostbyname (hostName);
if Assigned (hostEnt) then
if Assigned (hostEnt^.h_addr_list) then begin
addr := hostEnt^.h_addr_list^;
if Assigned (addr) then begin
IP := Format ("%d.%d.%d.%d", [byte (addr [0]),
byte (addr [1]), byte (addr [2]), byte (addr [3])]);
Result := True;
end
else
Result := False;
end
else
Result := False
else begin
Result := False;
end;
finally
WSACleanup;
end
end;
Загвоздка в том, что, если имя компа написано русскими буквами, то она ничего не определит!!!
Как от етого избавиться, кроме как менять все имена компов в сетке?
← →
Kotka (2002-10-06 23:47) [1]Ладно, другой вопрос
ГДЕ ЖЕ ВСЕ СПЕЦИАЛИСТЫ ПО СЕТЯМ!!!
Страницы: 1 вся ветка
Форум: "Сети";
Текущий архив: 2002.12.02;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.008 c