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

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

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

Сервер на TServersocket и несколько клиентов.Многопоточность (+) [D5, Win2k]

Виноградов Алексей © (2003-10-03 19:14:00)

Надо сделать так, чтобы при подключении клиента для него создавался новый поток (объект класса TThread) со своей процедурой приема данных от клиента. Мне непонятно, каким образом сделать так, чтобы для каждого клиента была своя процедура приема данных в отдельном потоке. Кто что подскажет ?

Hazard (2003-10-04 02:16:00) [1]

Должно помочь

// описание класса-наследника для процесса каждого клиента
type
TMyServerThread = class(TServerClientThread)
procedure ClientExecute; override;
end;

// процедура, описывающая работу с клиентом
procedure TMyServerThread.ClientExecute;
var
MySocket: TWinSocketStream;
dest: TFileStream;
begin
// открываем файл, в который будем записывать полученные данные
dest := TFileStream.Create("received.dat",fmOpenWrite or fmCreate);
// создаем поток для работы с сокетом
// и задаем таймаут 20 сек.
MySocket := TWinSocketStream.Create(ClientSocket, 20000);
// блок защиты от сбоев try..finally
try
// пока соединение не прервано
while (not Terminated) and ClientSocket.Connected do begin
// ждем данных из сокета
if MySocket.WaitForData(2000) then begin
// если из потока MySocket (сокет) в поток dest (файл)
// скопировано 0 байт, то выходим из цикла while
if dest.CopyFrom(MySocket,1024) = 0 then
break;
end;
end;
finally
// закрываем поток сокета
MySocket.Free;
// закрываем сокет-соединение
ClientSocket.Close;
// закрываем файл
dest.Free;
end;
end;

procedure TForm1.ServerSocket1GetThread(Sender: TObject;
ClientSocket: TServerClientWinSocket;
var SocketThread: TServerClientThread);
begin
// в обработчике события OnGetThread
// создаем новый экземпляр класса процесса
SocketThread := TMyServerThread.Create(False,ClientSocket);
end;

Виноградов Алексей (2003-10-03 20:41:00) [2]

А простейший примерчик кто-нить может предоставить новичку (kovigor@yahoo.com) ?

Polevi (2003-10-03 20:22:00) [3]

TServerSocket.OnGetThread

Наверх

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