| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

Вопрос по Demos\Internet\NetChat\

GuAV ©   (2006-01-10 12:32:00) 

Зачем там поток TClientDataThread ?
Почему нельзя сразу в мемо ?
И почему нельзя использовать на одной машине только TTcpClient, а на другой - только TTcpServer для данной задачи ?

 // you must create your own thread to synch
 // writing to a gui component
 TClientDataThread = class(TThread)
 private
 public
   ListBuffer :TStringList;
   TargetList :TStrings;
   procedure synchAddDataToControl;
   constructor Create(CreateSuspended: Boolean);
   procedure Execute; override;
   procedure Terminate;
 end;

...

procedure TForm1.TcpServer1Accept(sender: TObject;
 ClientSocket: TCustomIpClient);
var
 s: string;
 DataThread: TClientDataThread;
begin
 // create thread
 DataThread:= TClientDataThread.Create(true);
 // set the TagetList to the gui list that you
 // with to synch with.
 DataThread.TargetList := memRecv.lines;

 // Load the Threads ListBuffer
 DataThread.ListBuffer.Add('*** Connection Accepted ***');
 DataThread.ListBuffer.Add('Remote Host: ' + ClientSocket.LookupHostName(ClientSocket.RemoteHost) +
  ' (' + ClientSocket.RemoteHost + ')');
 DataThread.ListBuffer.Add('===== Begin message =====');
 s := ClientSocket.Receiveln;
 while s <> '' do
 begin
   DataThread.ListBuffer.Add(s);
   s := ClientSocket.Receiveln;
 end;
 DataThread.ListBuffer.Add('===== End of message =====');

 // Call Resume which will execute and synch the
 // ListBuffer with the TargetList
 DataThread.Resume;

end;

---

umbra   (2006-01-10 13:42:00) [1]

как я понимаю, TcpServer1Accept вызывается, когда коннектится новый клиент. А в это время может идти обмен данными с другим клиентом. Кроме того, в этом примере свойство BlockModeсервера установлено в   bmThreadBlocking, чтобы обеспечить возможность подключения многих клиентов, и сохранить целостность их данных (т.е чтобы строки разных сообщений не перепутались)

---

GuAV   (2006-01-10 13:25:00) [2]

> может, на случай нескольких клиентов, приславших
> сообщения одновременно?

Я вот тоже так подумал но... как при этом может помочь этот TClientDataThread ? Или TcpServer1Accept вызывается не в контексте основного потока ?

Кстати, код потока:
procedure TClientDataThread.Execute;
begin
 Synchronize(synchAddDataToControl);
end;

procedure TClientDataThread.synchAddDataToControl;
begin
TargetList.AddStrings(ListBuffer);
end;

---

umbra   (2006-01-10 12:59:00) [3]

может, на случай нескольких клиентов, приславших сообщения одновременно?
поэтому и сервер нужен.

---

Наверх