Indy: EIdNoExecuteSpecified Error

[Neutral General]

Hi,

Kann mir jemand sagen was das für ein Fehler ist? Der Quelltext von Client und Server:

Server:

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
begin
  IdTCPServer1.DefaultPort := 8000;
  IdTCPServer1.Active := true;
end;

procedure TForm1.IdTCPServer1Connect(AThread: TIdPeerThread);
begin
  ListBox1.Items.Add(AThread.Connection.Socket.Binding.PeerIP);
end;

Client:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
  IDTCPClient1.Port := 8000;
  IDTCPClient1.Host := Edit1.Text;
  IDTCPClient1.Connect();
end;

Dieser Fehler tritt beim Server auf, sobald ein Client connected.

Die Message:

Zitat:

---------------------------
Debugger Exception Notification
---------------------------
Project ServerProg.exe raised exception class EIdNoExecuteSpecified with message 'No execute handler found.'. Process stopped. Use Step or Run to continue.
---------------------------
OK Help
---------------------------

Gruß
Neutral General