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

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

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

Sockets

POSTER © (2004-10-07 20:03:00)
уважаемые мастера. между TTcpClient и TTcpServer установлено соединение. в любой момент сервер может отправить данные клиенту. и наоборот(т.е. клиент серверу). и проблема в том, что никакое событие при получении данных клиентом не возбуждается. подскажите, плз, пути решения этой проблемы...

Verg (2004-10-08 05:08:00) [1]
И не возникнет этот OnRead никогда. Эти компоненты не используют асинхронные режимы winsock.
Для этих компонентов понятие "событие" весьма условно.
Пока сам не вызовешь Receiveln или ReceiveBuf, никакого OnRead не возникнет. Кроме твоего потока, его просто некому сформировать.

Серверная компонента сама при активизации запускает кодовый поток, который обслуживает слушающий сокет и, при возникновении нового соединения порождает новый кодовый поток для этого соединения (TClientSocketThread). Этот поток и вызывает событие OnAccept.

POSTER (2004-10-07 21:52:00) [2]
Это в Delphi 7. вот просто тестовый вариант:

сервер:
unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Sockets, StdCtrls;

type
TForm1 = class(TForm)
TcpServer1: TTcpServer;
procedure TcpServer1Accept(Sender: TObject;
ClientSocket: TCustomIpClient);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.TcpServer1Accept(Sender: TObject;
ClientSocket: TCustomIpClient);
begin
ClientSocket.Sendln('123');
end;

end.

клиент:
unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Sockets, StdCtrls;

type
TForm1 = class(TForm)
TcpClient1: TTcpClient;
Button1: TButton;
Button2: TButton;
procedure TcpClient1Receive(Sender: TObject; Buf: PAnsiChar;
var DataLen: Integer);
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.TcpClient1Receive(Sender: TObject; Buf: PAnsiChar;
var DataLen: Integer);
begin
ShowMessage(IntToStr(DataLen));
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
TcpClient1.Connect;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
TcpClient1.Disconnect;
end;

end.

и это не работает. причём OnAccept возбуждается и данные отправляются, но ничего более...

kaZaNoVa (2004-10-07 21:45:00) [3]
POSTER (07.10.04 21:41) [4]
ужас .. странно ...

POSTER (2004-10-07 21:41:00) [4]
OnReceive на клиенте не не возбуждается.

kaZaNoVa (2004-10-07 21:23:00) [5]
POSTER (07.10.04 21:17) [2]
так OnReceive?вроде и так должно работать ..
- в чём трабла ?

POSTER (2004-10-07 21:17:00) [6]
и что? должно возбуждаться OnReceive?

kaZaNoVa (2004-10-07 20:55:00) [7]
замути режим блокированного сокета . .:))))

Наверх

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