Проблема с ClientSocket в консольном приложении

[prod87]

Есть 2 вопроса:


1. Из консольного приложения отправить текст при помощи ClientSocket

При подключении выдает ошибку

Asynchronous socket error 10053

Программа, которая отправляет:

program Project2;

{$APPTYPE CONSOLE}

uses
  SysUtils, ScktComp;


var Socket:TclientSocket;
begin
Socket:=TClientSocket.Create(nil);
Socket.Address:='127.0.0.1';
Socket.Port:=27015;
Socket.Active:=true;
Socket.Socket.SendText('lalalala');
end.

Программа которая принимает

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    ServerSocket1: TServerSocket;
    memo1: TMemo;
    ClientSocket1: TClientSocket;
    Button1: TButton;
    Button2: TButton;
    procedure ServerSocket1ClientRead(Sender: TObject;
      Socket: TCustomWinSocket);
    procedure ServerSocket1ClientConnect(Sender: TObject;
      Socket: TCustomWinSocket);
    procedure ServerSocket1ClientDisconnect(Sender: TObject;
      Socket: TCustomWinSocket);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.ServerSocket1ClientRead(Sender: TObject;
  Socket: TCustomWinSocket);
begin
memo1.Lines.Add(ServerSocket1.Socket.Connections[0].ReceiveText);
end;

procedure TForm1.ServerSocket1ClientConnect(Sender: TObject;
  Socket: TCustomWinSocket);
begin
memo1.Lines.Add('connected');
end;

procedure TForm1.ServerSocket1ClientDisconnect(Sender: TObject;
  Socket: TCustomWinSocket);
begin
memo1.Lines.Add('Diconnected');
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
ClientSocket1.Address:='127.0.0.1';
ClientSocket1.Port:=27015;
ClientSocket1.Active:=True;

end;

procedure TForm1.Button2Click(Sender: TObject);
begin
ClientSocket1.Socket.SendText('aaa');
end;

end.

п.с. не обращайте внимания на сокет клиент в программме, которая принимает. Просто тестировал с помощью него, все ли я правильно делаю.
При запуске принимающей программы сокет уже активен.


2. Как написать в консольной программе процедуру OnRead?

Заранее спасибо!

[Ca5per]

Создаем класс.

type
TMyClass = class
procedure ClientSocketRead(Sender: TObject; Socket: TCustomWinSocket);

Обрабатываем процедуру.

procedure TMyClass.ClientSocketRead(Sender: TObject; Socket: TCustomWinSocket);
begin
..... Socket.ReceiveText;
end;

Создаем это класс.

var
MyClass : TMyClass;
begin
MyClass:=TMyClass.Create;

И назначаем процедуру OnRead компонента, процедуре OnRead класса.

ClientSocket.OnRead:=MyClass.ClientSocketRead;

Удачи