Скачать: 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 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.019 c