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

[generic]

geraten:

sieht so aus als ob der server keinen workprocess starten kann.
hast du am threadpool rumgedreht?
der executor sollte ein thread sein der gestartet wird, wenn ein client sich verbindet.
diesen nutzt du ja auch schon im connect erreignis "athread".

der client hat einen eigenen thread.

hoffe es hilft

[DataCool]

Hi,

ganz einfache Sache Du must beim Server das OnExecute Event definieren.

Das Onexecute tritt nach OnConnect und vor OnDisconnect mehrfach ein.

Genauer gesagt: Solange der Client verbunden ist wird das OnExecute immer wieder hintereinander aufgerufen.

Greetz DataCool