Sobald ich das Serverprogramm beende bekomme ich die Fehlermeldung :
Benachrichtigung über Debugger-
Exception
-----------------------------------------------------------------------------------------
Im Projekt LAN-RPG.exe ist eine
Exception der Klasse EIDClosedSocket aufgetreten. Meldung :
'Disconnected.'. Prozess wurde angehalten. Mit Einzelne Anweisung oder Start fortsetzen.
-----------------------------------------------------------------------------------------
OK HELP
-----------------------------------------------------------------------------------------
Das ist der Server :
Delphi-Quellcode:
procedure TForm1.FormCreate(Sender: TObject);
begin
IDTCPServer1.Active := true;
end;
procedure TForm1.IdTCPServer1Execute(AThread: TIdPeerThread);
var data : String;
Order: Integer;
begin
with AThread.Connection do begin
Caption := readln;
Order := StrToInt(copy(Readln,1,pos('/',Readln)));
end;
end;
Client :
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
begin
if IDTCPClient1.Connected = false then begin
IDTCPCLient1.Host := 'MICHI';
IDTCPClient1.Connect();
end;
IDTCPClient1.WriteLn(IntToStr(LAN_CREATE) + '/' + Edit1.Text + '/' + Edit2.Text);
end;