Работа с динамическим TClientSocket

[_-Re@l-_]

Вот, динамически создаю ClientSocket..

ClientSocket:=TClientSocket.Create(Form3);
ClientSocket.Active:=False;
ClientSocket.Port:=1025;

Теперь встала проблема обработки событий....Вот так не конает...

Procedure OnCanRead(Socket:TCustomWinSocket);
Begin
      Form3.ListBox1.Items.Add(Socket.ReceiveText);
End;

procedure TForm3.FormCreate(Sender: TObject);
begin
      ClientSocket:=TClientSocket.Create(Form3);
      ClientSocket.Active:=False;
      ClientSocket.Port:=1025;
      ClientSocket.OnRead:=OnCanRead(ClientSocket.Socket);
end;

Как нужно правильно делать?

[Пепел Феникса]

нужен метод.

то есть ту самую процедуру припиши к форме

TForm3=class(TForm)
 Procedure OnCanRead(Socket:TCustomWinSocket);

/////////////////////////////////////////////////////////////////////

Procedure TForm3.OnCanRead(Socket:TCustomWinSocket);
Begin
      Form3.ListBox1.Items.Add(Socket.ReceiveText);
End;

procedure TForm3.FormCreate(Sender: TObject);
begin
      ClientSocket:=TClientSocket.Create(Form3);
      ClientSocket.Active:=False;
      ClientSocket.Port:=1025;
      ClientSocket.OnRead:=OnCanRead(ClientSocket.Socket);
end;

[_-Re@l-_]

Вот код по вашему примеру, однако всё равно не катит.

unit Unit3;

interface

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

type
  TForm3 = class(TForm)
    ListBox1: TListBox;
    Label1: TLabel;
    ListBox2: TListBox;
    Label2: TLabel;
    Memo1: TMemo;
    Label3: TLabel;
    XPManifest1: TXPManifest;
    ServerSocket1: TServerSocket;
    procedure FormCreate(Sender: TObject);
    procedure OnCanRead(Socket:TCustomWinSocket);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form3: TForm3;
  ClientSocket:TClientSocket;

implementation

{$R *.dfm}

uses Unit1,Unit2;

Procedure TForm3.OnCanRead(Socket:TCustomWinSocket);
Begin
      Form3.ListBox1.Items.Add(Socket.ReceiveText);
End;

procedure TForm3.FormCreate(Sender: TObject);
begin
      ClientSocket:=TClientSocket.Create(Form3);
      ClientSocket.Active:=False;
      ClientSocket.Port:=1025;
      ClientSocket.OnRead:=OnCanRead(ClientSocket.Socket);
end;

end.

[Аватар]

Вместо

ClientSocket.OnRead:=OnCanRead(ClientSocket.Socket);

сделать

ClientSocket.OnRead:=OnCanRead;

[_-Re@l-_]

Тем более не катит.

[Аватар]

В вашем примере вместо адреса обработчику события задается не понятно что (даже не результат функции), я предлагаю нормально задать адрес процедуры, а уж не катит почему понятия не имею, по крайней мере компилятор не будет ошибку давать. Посмотрите какие параметры должны біть у этого обработчика, может ваши не соответствуют

[Пепел Феникса]

unit Unit3;

interface

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

type
  TForm3 = class(TForm)
    ListBox1: TListBox;
    Label1: TLabel;
    ListBox2: TListBox;
    Label2: TLabel;
    Memo1: TMemo;
    Label3: TLabel;
    XPManifest1: TXPManifest;
    ServerSocket1: TServerSocket;
    procedure FormCreate(Sender: TObject);
    procedure OnCanRead(Socket:TCustomWinSocket);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form3: TForm3;
  ClientSocket:TClientSocket;

implementation

{$R *.dfm}

uses Unit1,Unit2;

Procedure TForm3.OnCanRead(Socket:TCustomWinSocket);
Begin
      Form3.ListBox1.Items.Add(Socket.ReceiveText);
End;

procedure TForm3.FormCreate(Sender: TObject);
begin
      ClientSocket:=TClientSocket.Create(Form3);
      ClientSocket.Active:=False;
      ClientSocket.Port:=1025;
      ClientSocket.OnRead:=OnCanRead;//можно попробывать поставить @ перед OnCanRead но вообще должно итак.
end;

end.

если не пашет то ошибки в студию.

[_-Re@l-_]

Опять же не пашет.
Выдаёт ошибку Incompatible types 'TObject' and 'TCustomWinSocket'.
В случае если поставить собаку, то происходит ошибка Variable required.

[Аватар]

Проверьте соответствует ли тип обрабочика ClientSocket.OnRead тому типу, который вы пытаетесь ему присвоить. Неужели необходимость глянуть в Help вызывает такие большие проблемы?

[_-Re@l-_]

Неужели необходимость глянуть в Help вызывает такие большие проблемы?

1.Как мне надоела фраза, которой орудуют новички: "ну неужели трудно в хелп залезть?".
2.Раз такой умный, так что-нибудь по делу сказал бы.
3.Проблему выявил, тему можно закрыть.
Отдельное спасибо to Пепел Феникса.