Главная страница
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
4-43971
andruxin
2003-12-29 17:34
2004.03.14
как задать название приложение в taskbare


3-43380
Delphi5.01
2004-02-14 11:17
2004.03.14
Windows98/2000 дает ошибку,мол не могу создать Delphi Tabase Engi


4-43969
Grinder
2004-01-08 14:55
2004.03.14
Экстракт иконки


3-43257
Sam Stone
2004-02-13 09:41
2004.03.14
Типы данных


1-43428
Unforseen
2004-02-29 14:41
2004.03.14
DLL -> OBJ