Czy może mi ktoś powiedziec jak pobrać IP komputra nie wykorzystujac modułu winsock ??? Może w indy jest siakis komponent do tego celu ??
Nie chce nic sugerować ale jest tam cos takiego jak IPWatch moze to jest do tego celu ??
Za pomoc z góry dziękuje.
Pewnie, ze IPWatch.
Trzeba bylo najpierw sprawdzic. Nie trudno wstawic na forme i pokombinowac.
IPWatch.CurrentIP
[dopisane]
Mozesz jeszcze wylaczyc wlasciwosc HistoryEnabled zeby komponent nie tworzyl pliku z historia IP.
Możesz też chyba pobrać adres IP z rejestru.
Możesz też chyba pobrać adres IP z rejestru.
procedure TForm1.Button1Click(Sender: TObject);
begin
try
Reg := TRegistry.Create;
Reg.rootkey:=HKEY_LOCAL_MACHINE;
Reg.OpenKey('SYSTEM\ControlSet001\Services\{Tu musi byc twój numerek,jaki? zobacz u siebie}\Parameters\Tcpip', False);
Label1.Caption:= Reg.ReadString('DhcpIPAddress');
finally
Reg.Free;
end;
end;
end.
u mnie to jest klucz IPAdress
pod DhcpAdress mam 0.0.0.0
no i nie podaje Ip zew tylko w moim przypadku 192.168.0.1
mam Winshit XP