"Remy Lebeau (TeamB)" <no.spam@no.spam.com> wrote in message
news:444d365f$1@newsgroups.borland.com...
> For example:
Small additions:
TMyNNTPThread = class(TIdPeerThread)
...
public
...
procedure Disconnect; // <-- add this
...
end;
TForm1 = class(TForm)
...
procedure IdTCPServer1Disconnect(AThread: TIdPeerThread); // <-- add
this
...
end;
...
procedure TMyNNTPThread.Disconnect;
begin
if fClient.Connected then fClient.Disconnect;
end;
procedure TForm1.IdTCPServer1Disconnect(AThread: TIdPeerThread);
begin
TMyNNTPThread(IdTCPClient1).Disconnect;
end;
Gambit
