Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.03.14;
Скачать: CL | DM;

Вниз

Вопрос про создание колиентского потока в 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).



Страницы: 1 вся ветка

Текущий архив: 2004.03.14;
Скачать: CL | DM;

Наверх




Память: 0.48 MB
Время: 0.017 c
1-43486
Alexis
2004-02-29 12:10
2004.03.14
динамический Buffer


14-43866
Verg
2004-02-21 12:43
2004.03.14
Machine Head - это драйв!


1-43431
Layner
2004-03-01 09:50
2004.03.14
Как редактировать строки в ListView?


1-43512
Алексей
2004-01-23 13:21
2004.03.14
вопрос по EditChange


1-43584
Kraft
2004-02-25 14:49
2004.03.14
Как запретить горячие клавиши