Habe ich gemacht Danke für das Tutorial und habes jetzt auch geschaft aber jetzt bekomme ich immer den Fehler List Index out of bounds(0) be diesem Code:
Delphi-Quellcode:
procedure TForm1.Timer1Timer(Sender: TObject);
begin
If InternetGetConnectedState(nil, 0) then
begin
ServerSocket1.Socket.Connections[0].SendText(GetIpAddress);
Timer1.Enabled:=false;
end;
end;
function GetIpAddress: string;
var phoste: PHostEnt;
Buffer: array [0..100] of char;
WSAData: TWSADATA;
begin
result:='';
if WSAStartup($0101, WSAData) <> 0 then exit;
GetHostName(Buffer,Sizeof(Buffer));
phoste:=GetHostByName(buffer);
if phoste = nil then result:='127.0.0.1'
else result:=StrPas(inet_ntoa(PInAddr(phoste^.h_addr_list^)^));
WSACleanup;
end;
Was mache ich falsch
Mfg MrScholz