Dynamisk datastruktur af ClientSocket

Der gives kun point til svar der kan bruges in real life ;-))

bruger du Indy ?

Jens B

Nej bare en almindelig ClientSocket, jeg skal køre unBlocked så Indy synes jeg ikke er anvendeligt

Så pak dit Indy ind i Tråde !

Jens> Jeg kender ikke min ATerminator derfor synes jeg det er et problem

Jens> Jeg skal også sende fra min Server ud igennem Client, kan heller ikke lige se konstruktionen på tråden for mig

Den Speedtest jeg lavede til TDC den virker på den måde ... Og den er lavedet på Indy !

Jens B

Jens> Selvfølgelig kan det lade sig gøre.....bare lige hvordan ;-(

Kan der ikke laves noget i denne stil ?
type
    ClientRec = record
    Client: TClientSocket;
    Host: String;
    Port: Integer;
    Handle: Integer;
  end;

var
  ClientArray: array[1..5] of ClientRec;

men hvordan får jeg den connected til host + port ?
og hvordan får jeg fat i dens event ??

Connecte kan jeg fint:
procedure TForm1.Button4Click(Sender: TObject);
begin
  if ClientArray[1].Client = nil then
  begin
    ClientArray[1].Client := TClientSocket.Create(self);
    ClientArray[1].Host := 'localhost';
    ClientArray[1].Port := 800;
    ClientArray[1].Client.Host := ClientArray[1].Host;
    ClientArray[1].Client.Port := ClientArray[1].Port;
    ClientArray[1].Client.Active := True;
  end;
end;

Men hvordan får jeg fat i OnRead og OnWrite event ?

Koden er her hvis andre skulle mangle ;-)

Princip: Når en client connecter sig til serveren oprettes en linie ud (Client) som har den indgående clients Socket.SocketHandle i dens Tag nr

unit uClientArray;

interface

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

type
  TForm1 = class(TForm)
    ssRelae: TServerSocket;
    ssDummy: TServerSocket;
    Memo1: TMemo;
    Memo2: TMemo;
    Button1: TButton;
    procedure ssRelaeClientConnect(Sender: TObject;
      Socket: TCustomWinSocket);
    procedure ssRelaeClientDisconnect(Sender: TObject;
      Socket: TCustomWinSocket);
    procedure csOutConnect(Sender: TObject; Socket: TCustomWinSocket);
    procedure csOutRead(Sender: TObject; Socket: TCustomWinSocket);
    procedure csOutDisconnect(Sender: TObject; Socket: TCustomWinSocket);
    procedure ssRelaeClientRead(Sender: TObject; Socket: TCustomWinSocket);
    procedure ssDummyClientRead(Sender: TObject; Socket: TCustomWinSocket);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
   
  end;


var
  Form1: TForm1;
 

implementation

{$R *.dfm}

procedure TForm1.ssRelaeClientConnect(Sender: TObject;
  Socket: TCustomWinSocket);
var
  HandleIn: Integer;
begin
  HandleIn := Socket.SocketHandle;
  //Memo1.Lines.Add('connect from: '+IntToStr(HandleIn));
  with TClientSocket.Create(Form1) do
  begin
    Host := 'localhost';
    Port := 801;
    Tag := HandleIn;
    OnConnect := csOutConnect;
    OnRead := csOutRead;
    OnDisconnect := csOutDisconnect;
    Active := True;
  // ShowMessage('csOut created: '+IntToStr(Tag) );
  end;
end;

procedure TForm1.ssRelaeClientDisconnect(Sender: TObject;
  Socket: TCustomWinSocket);
var
  i, HandelIn : integer;
  cs: TClientSocket;
begin
  HandelIn := Socket.SocketHandle;
  Memo1.Lines.Add('disconnect from: '+IntToStr(HandelIn));
  for i := 0 to ComponentCount-1 do
  begin
    if (Components[i] is TClientSocket) then
    begin
      cs := (Components[i] as TClientSocket);
      if cs.Tag = HandelIn then
        cs.Active := False

    end;
  end;
end;

procedure TForm1.csOutConnect(Sender: TObject; Socket: TCustomWinSocket);
var
  cs : TClientSocket;
begin
  if (Sender is TClientSocket) then
  begin
    cs := (Sender as TClientSocket);
    Memo1.Lines.Add('Connect from: '+IntToStr(cs.Tag));
  end;
end;

procedure TForm1.csOutRead(Sender: TObject; Socket: TCustomWinSocket);
var
  i, HandelIn : Integer;
  cs : TClientSocket;
begin
  if (Sender is TClientSocket) then
  begin
    cs := (Sender as TClientSocket);
    for i := 0 to ssRelae.Socket.ActiveConnections -1 do
      if cs.Tag = ssRelae.Socket.Connections[i].SocketHandle then
        ssRelae.Socket.Connections[i].SendText(Socket.ReceiveText);
  end;
end;


procedure TForm1.csOutDisconnect(Sender: TObject;
  Socket: TCustomWinSocket);
var
  cs : TClientSocket;
begin
  if (Sender is TClientSocket) then
  begin
    cs := (Sender as TClientSocket);
    //ShowMessage('On disconnect'+IntToStr(cs.Tag));
    //HUSK DU MANGLER METODE TIL AT FREE MED
  end;
end;

procedure TForm1.ssRelaeClientRead(Sender: TObject;
  Socket: TCustomWinSocket);
var
  i, HandelIn : integer;
  inText : String;
  cs: TClientSocket;
begin
  HandelIn := Socket.SocketHandle;
  InText := Socket.ReceiveText;
  Memo1.Lines.Add(IntToStr(HandelIn) + ' Mesage: '+inText);
  for i := 0 to ComponentCount-1 do
  begin
    if (Components[i] is TClientSocket) then
    begin
      cs := (Components[i] as TClientSocket);
      if cs.Tag = HandelIn then
        cs.Socket.SendText(inText)
    end;
  end;
end;

procedure TForm1.ssDummyClientRead(Sender: TObject;
  Socket: TCustomWinSocket);
var
  inStr : String;
  i, Con : Integer;
begin
  Con := Socket.SocketHandle;
  inStr := Socket.ReceiveText;
  Memo2.Lines.Add(inStr);
  for i := 0 to ssDummy.Socket.ActiveConnections - 1 do
    if Con = ssDummy.Socket.Connections[i].SocketHandle then
      ssDummy.Socket.Connections[i].SendText(inStr);
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  i : integer;
  cs : TClientSocket;
begin
  for i := 0 to ComponentCount-1 do
  begin
    if (Components[i] is TClientSocket) then
      if not (Components[i] as TClientSocket).Active then
        (Components[i] as TClientSocket).Free;
  end;
end;