Hallo
Ich habe das Problem das ich aus einem TString einen String machen will
Delphi-Quellcode:
function GetIPs: tStrings;
type
TaPInAddr = array[0..10] of PInAddr;
PaPInAddr = ^TaPInAddr;
var
phe: PHostEnt;
pptr: PaPInAddr;
Buffer: array[0..63] of Char;
I: Integer;
GInitData: TWSAData;
begin
WSAStartup($101, GInitData);
Result := tstringList.Create;
Result.Clear;
GetHostName(Buffer, SizeOf(Buffer));
phe := GetHostByName(buffer);
if phe = nil then Exit;
pPtr := PaPInAddr(phe^.h_addr_list);
I := 0;
while pPtr^[I] <> nil do
begin
Result.Add(inet_ntoa(pptr^[I]^));
Inc(I);
end;
WSACleanup;
end;
So das ist der Code will jetzt aber aus dieser function einen String erhalten und keinen TString damit ich es z.b in einer Showmessage Box anzeigen kann gibt es da eine Lösung für?
Danke schon mal im Vorraus...