MAM NASTĘPUJĄCĄ PROCEDURKĘ PODAJĄCĄ IP:
procedure GetIPList(const List: TStrings);
var
WSAData: TWSAData;
HostName: array[0..255] of Char;
HostInfo: PHostEnt;
InAddr: PInAddr;
begin
List.Clear;
if WSAStartup($0101, WSAData) = 0 then
try
if gethostname(HostName, SizeOf(HostName)) = 0 then
begin
HostInfo := gethostbyname(HostName);
if HostInfo nil then
begin
InAddr := Pointer(HostInfo.h_addr_list);
if (InAddr nil) then
while InAddr^ nil do
begin
List.Add(inet_ntoa(InAddr^^));
Inc(InAddr);
end;
end;
end;
finally
WSACleanup;
end;
end;
I CHCE TEN IP WYŚWIETLIĆ W TLABEL ALE SIĘ GDZIEŚ POMYLIŁEM
jakby ktoś wiedział jeszcze jak ustawić odswierzanioe tego adresu co 1 minute?
proszę o pomoc!!!!!!!!!
procedure TForm1.FormActivate(Sender: TObject);
begin
Label17.Caption:=GetIpList;
end;