Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Сети > Как узнать ip компа на котором запущенна моя прога

Автор: COOLHack 1.4.2008, 22:14

Как узнать ip компа на котором запущенна моя прога и вывести его в Edit1

Автор: former 1.4.2008, 22:18

В DRKB пользуйся.

DRKB:

Код


var
WSAData: TWSAData;
p: PHostEnt;
Name: array[0..$FF] of Char;
begin
WSAStartup($0101, WSAData);
GetHostName(name, $FF);
p := GetHostByName(Name);
showmessage(inet_ntoa(PInAddr(p.h_addr_list^)^));
WSACleanup;
end;

Автор: COOLHack 1.4.2008, 22:34

НЕ работает, компилатор выдаёт много всяких ошибок, это я пробывал ещё до того как написать на форум

Автор: CompWorm 1.4.2008, 23:08

winexec ipconfig > 1.txt smile

Автор: COOLHack 1.4.2008, 23:32

а код можешь показать? а то невкурю как сделать чтоб ip в Edit'eпоявился

Автор: Qu1nt 2.4.2008, 01:24

Цитата(COOLHack @ 1.4.2008, 21:34

)

НЕ работает, компилатор выдаёт много всяких ошибок, это я пробывал ещё до того как написать на форум

Код


uses
  WinSock;

Автор: MetalFan 2.4.2008, 12:31

Цитата(COOLHack @ 1.4.2008, 22:34

)

компилатор выдаёт много всяких ошибок

информативное заявление

Автор: Snowy 2.4.2008, 12:51

Смотри список тем внизу страницы

Автор: Exai1e 2.4.2008, 15:20

Людям с такими никами помогать не обязательно) они должны определять айпи на котором запущена их программа силой мысли

Автор: COOLHack 3.4.2008, 05:10

ШутниГ блин