Hallo zusammen,
erstmal "Sorry" für diese kuriose Überschrift aber mir viel nichts besseres ein. Nun zu meinem Problem.
Ich frage in einer Prozedur alle lokalen
IP´s ab. Diese
IP´s möchte ich aber auch in einer Datenbank speichern, dazu wollte ich mal Testweise diese
Ip´s in verschiedenen Labels anzeigen lassen. Dies klappt aber nicht so recht, da mir auch der logische Ansatz dazu fehlt, wie dies zu bewerkstelligen ist. Hier mal der Ursprüngliche Code der Prozedur:
Delphi-Quellcode:
function GetLocalIPs(
const aItems:TStrings):Boolean;
type PPInAddr= ^PInAddr;
var wsaData: TWSAData;
HostInfo: PHostEnt;
HostName:
Array[0..255]
of Char;
Addr: PPInAddr;
begin
Result:=False;
//Lines.Clear;
if WSAStartup($0102, wsaData)=0
then
try
if gethostname(HostName, SizeOf(HostName)) = 0
then
Begin
HostInfo:= gethostbyname(HostName);
if HostInfo<>
nil then Begin
Addr:=Pointer(HostInfo^.h_addr_list);
if (Addr<>
nil)
AND (Addr^<>
nil)
then
Repeat
aItems.Add('
IP: '+StrPas(inet_ntoa(Addr^^)));
inc(Addr);
Until Addr^=nil;
end;
end;
Result:=True;
finally
WSACleanup;
end;
end;
Aufruf mit:
GetLocalIPs(listbox1.Items)
Wie bekomme ich nun die
Ip´s einzeln angezeigt?? Ich hoffe ich konnte mein Problem verständlich erklären.
Danke
Ati