Fórum Problema com Socket(Atribuindo eveto dinamicamente) #185397

unit MinhaClasse;

interface

uses ScktComp;

type
  TClasse = class
  protected
      Cli: TClientSocket; //Declara o socket (cliente)
      Serv: TServerSocket; //Declara o socket (servidor)
  public
    constructor Create;
    function connectCli(porta: integer; endereco:String; msg:String): Boolean;
    function connectServ(porta: integer): Boolean;
    procedure cliRead(Sender: TObject; Socket: TCustomWinSocket);
  end;

implementation

constructor TClasse.Create;
begin
  self.Cli := TClientSocket.Create(nil);
  self.Serv := TServerSocket.Create(nil);

// Aqui eu tentei fazer o seguinte:
// self.Cli.OnRead := cliRead(self, {aqui o programa está pedindo o parâmetro relativo ao Socket: TCustomWinSocket});
// Como eu faria isso??
// Como indicar que no evento onRead do ClientSocket ele vai ter que rodar minha procedure cliRead??
end;

function TClasse.connectCli(porta: integer; endereco, msg: String): Boolean;
begin
  if Self.Cli.Active then Self.Cli.Active := false;
  self.Cli.Port := porta;
  Self.Cli.Address := endereco;
  try
    Self.Cli.Active := true;
    if msg<>´´ then Self.Cli.Socket.SendText(msg);
    Result := true;
  except
    Result := false;
  end;
end;

function TClasse.connectServ(porta: integer): Boolean;
begin
  if self.Serv.Active then Self.Serv.Active := false;
  self.Serv.Port := porta;
  try
    self.Serv.Active := true;
    Result := true;
  except
    Result := false;
  end;
end;

procedure TClasse.cliRead(Sender: TObject; Socket: TCustomWinSocket);
begin
  //Isso aqui vai servir para controlar o evento OnRead do ClientSocket (Cli)
end;