Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Вопрос про создание колиентского потока в TTCPServer [D6, Win2k]

ThreeDHead © (2004-01-04 23:46:00)

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

Делаю так:
// - - - - - - - - - - - - - - - - - - - - - - - -
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 15:09:00) [1]

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

Polevi (2004-01-06 14:18:00) [2]

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

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

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

Polevi (2004-01-06 09:28:00) [4]

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

ThreeDHead (2004-01-06 08:21:00) [5]

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

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »