Текущий архив: 2004.04.25;
Скачать: CL | DM;
Вниз
Что такое @Localname[1]??? в GetHostByName??? Найти похожие ветки
← →
-=[SDA]=- © (2004-02-27 07:01) [0]Хочу узнать IP машины с которой запускается программа... Нашел в форуме след. процедурку...
var
WSAData : TWSAData;
SockAddrIn : TSockAddrIn;
Host : PHostEnt;
LocalIp : string;
begin
if WSAStartup($101, WSAData) = 0 then begin
Host := GetHostByName(@Localname[1]);
SockAddrIn.sin_addr.S_addr:= longint(plongint(Host^.h_addr_list^)^);
LocalIP := inet_ntoa(SockAddrIn.sin_addr);
WSACleanUp;
... все хорошо, НО @Localname[1] - говорит, неизвестная переменная...
Итак, уважаемые дамы и господа, внимание вопрос: Что такое @Localname[1] и почему "Error: Undeclared identifier Localname???"
Заранее большое спасибо.... :))
← →
Dr.Null (2004-02-27 07:50) [1]
var
WSAData : TWSAData;
SockAddrIn : TSockAddrIn;
Host : PHostEnt;
LocalIp : string;
Localname : array[0..31] of Char;
begin
if WSAStartup($101, WSAData) = 0 then begin
GetHostName(Localname, 32);
Host := GetHostByName(Localname);
SockAddrIn.sin_addr.S_addr:= longint(plongint(Host^.h_addr_list^)^);
LocalIP := inet_ntoa(SockAddrIn.sin_addr);
WSACleanUp;
← →
-=[SDA]=- © (2004-02-27 08:01) [2]Ваааууууу!!!..... Dr.Null
Дальнейших успехов и процветания тебе....
..... Спасибо!!! Все заработало со страшной силой!
Страницы: 1 вся ветка
Текущий архив: 2004.04.25;
Скачать: CL | DM;
Память: 0.47 MB
Время: 0.022 c
