Мне нужно, чтобы был один сервер и несколько клиентов, все они стучались бы в один сокет, при этом каждый обрабатывался в отдельном потоке, информацию по этому поводу я нашел в FAQе, но там написано про Сервер, как настроить клиент (TClientSocket)?
Для начала я пытаюсь отправить сообщение от клиента с помощью sendText, если сервер в режиме nonBlocking то все работает, а в режиме с потоками ничего не работает, вот код потока (взят из фака)
| Код |
unit Unit2;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ScktComp, StdCtrls;
type
EServerThread = class( Exception );
// serverthread это потомок TServerClientThread
TServerThread = class( TServerClientThread )
private
fSocketStream : TWinSocketStream;
public
procedure ClientExecute; override;
// ClientExecute отменяет
// TServerClientThread.ClientExecute
// и содержит код, который
// выполняется при старте потока
end;
implementation
uses unit1;
procedure TServerThread.ClientExecute;
begin
inherited FreeOnTerminate := TRUE;
try
fSocketStream := TWinSocketStream.Create( ClientSocket,
100000 );
// 100000 - это таймаут в миллисекундах.
try
while ( not Terminated ) and ( ClientSocket.Connected ) do
try
if ( not Terminated ) and
( not fSocketStream.WaitForData( 1000000 ) ) then
begin
Form1.Memo1.Lines.Add(Form1.ServerSocket1.Socket.ReceiveText);
end;
except on e:exception do
begin
Form1.Memo1.Lines.Add('Error');
// Если произошла ошибка, то закрываем сокет и выходим
ClientSocket.Close;
Terminate;
end;
end;
finally
fSocketStream.Free;
end;
except on e:exception do
begin
// Если произошла ошибка, то закрываем сокет и выходим
ClientSocket.Close;
Terminate;
end;
end;
end;
end.
|
однако в мемо ничего не выводится, точнее выводится, но только строка по событию OnDisconnect, тоесть событие OnConnect даже не срабатывает...
Может я что-то делаю не так?
Код основной программы
| Код |
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ScktComp, StdCtrls, unit2;
type
TForm1 = class(TForm)
ServerSocket1: TServerSocket;
Memo1: TMemo;
procedure ServerSocket1GetThread(Sender: TObject;
ClientSocket: TServerClientWinSocket;
var SocketThread: TServerClientThread);
procedure ServerSocket1ClientConnect(Sender: TObject;
Socket: TCustomWinSocket);
procedure ServerSocket1ClientDisconnect(Sender: TObject;
Socket: TCustomWinSocket);
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject);
begin
Form1.ServerSocket1.Open;
end;
procedure TForm1.ServerSocket1ClientConnect(Sender: TObject;
Socket: TCustomWinSocket);
begin
Form1.Memo1.Lines.Add('conn');
end;
procedure TForm1.ServerSocket1ClientDisconnect(Sender: TObject;
Socket: TCustomWinSocket);
begin
Form1.Memo1.Lines.Add('disconn');
end;
procedure TForm1.ServerSocket1GetThread(Sender: TObject;
ClientSocket: TServerClientWinSocket; var SocketThread: TServerClientThread);
begin
SocketThread := TServerThread.Create( FALSE, ClientSocket );
end;
end.
|
Перерыл весь поиск и FAQ, но везде написано одно и то же....и в общем ничего толкового...
Заранее спасибо... |
)
).