Главная страница
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.018 c
7-43924
SkySlider
2003-12-22 13:14
2004.03.14
Обращение к принтеру


1-43673
Denis_Visma
2004-03-01 15:12
2004.03.14
Взаимодействие с Винампом


1-43537
Rentgen
2004-02-28 08:44
2004.03.14
Line delete?


6-43718
Net_Prosto
2003-12-05 19:42
2004.03.14
Как разорвать соединение с интернетом?


1-43510
OlimPer
2004-02-28 21:22
2004.03.14
ListView