Вопрос про создание колиентского потока в TTCPServer

← →
ThreeDHead (2004-01-04 23:46) [0]

Как создать поток клиента при подключении оного ?
Что не так сделано в первом примере ?

Делаю так:
// - - - - - - - - - - - - - - - - - - - - - - - -
Type
TMyClientSocketThread = Class(TClientSocketThread)
protected
procedure Execute; override;
end;

procedure TMyClientSocketThread.Execute;
begin
While (not Terminated) and
(Clientsocket.Connected) // Но здесь ClientSocket = nil - почему ?!?!?!
do
begin
...
end;
end;

procedure TForm1.TcpServer1GetThread(Sender: TObject;
var ClientSocketThread: TClientSocketThread);
begin
ClientSocketThread:= TMyClientSocketThread.Create(TcpServer1.ServerSocketThread);
end;
// - - - - - - - - - - - - - - - - - - - - - - - -

С сокетами вот так работает:
// - - - - - - - - - - - - - - - - - - - - - - - -
Type
TMyServerClientThread= Class(TServerClientThread)
protected
procedure ClientExecute; override;
end;

procedure TMyServerClientThread.ClientExecute;
begin
While (not Terminated) and
(Clientsocket.Connected) // А здесь ClientSocket <> nil - всё в порядке !
do
begin
...
end;
end;

procedure TForm1.ServerSocketGetThread(Sender: TObject;
ClientSocket: TServerClientWinSocket;
var SocketThread: TServerClientThread);
begin
SocketThread:= TMyServerClientThread.Create(False, ClientSocket);
end;
// - - - - - - - - - - - - - - - - - - - - - - - -

← →
ThreeDHead (2004-01-06 08:21) [1]

Ну что-ж совсем никто TTCPServer не использует ?

← →
Polevi (2004-01-06 09:28) [2]

иногда помогает анализ исходного текста компонента, если оного нет - лучше такой компонент не использовать, IMHO

← →
ThreeDHead (2004-01-06 13:02) [3]

Да блин, пол Интернета перерыл, никто не знает как его использовать... :(

← →
Polevi (2004-01-06 14:18) [4]

ну и ты не используй :)

← →
ThreeDHead (2004-01-06 15:09) [5]

Ну ведь надо все-таки по полочкам всё разложить. В конце-концов в стандартную комплектацию Дельфей входит.
Хочется знать в чем их отличие (TServerSocket и TTCPServer).

Вопрос про создание колиентского потока в TTCPServer Найти похожие ветки