| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Что такое @Localname[1]??? в GetHostByName??? [D5, Win95/98, Win2k]
-=[SDA]=- © (2004-02-27 07:01:00)Хочу узнать 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???"
Заранее большое спасибо.... :))
-=[SDA]=- (2004-02-27 08:01:00) [1]Ваааууууу!!!..... Dr.Null
Дальнейших успехов и процветания тебе....
..... Спасибо!!! Все заработало со страшной силой!
Dr.Null (2004-02-27 07:50:00) [2]
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;
| |
