Hi MrScholz,
Zitat von
MrScholz:
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;
...
Was mache ich falsch
Mfg MrScholz
Schreib die Prozedur mal so:
Delphi-Quellcode:
procedure TForm1.Timer1Timer(Sender: TObject);
begin
If InternetGetConnectedState(nil, 0) then
begin
if ServerSocket1.Socket.Connections.Count > 0 then
ServerSocket1.Socket.Connections[0].SendText(GetIpAddress);
Timer1.Enabled:=false;
end;
end;
...
Der Fehler liegt darin, dass der Client höchstwahrscheinlich nicht verbunden ist.
Greetz
alcaeus