Oprette ClientSocket under RunTime

klap lige hesten .. Jeg er lige ved at løse dit problem ...

Jens b

:-)

Dette virker, men kun med en serversocket til at \"svare\" på connect

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Button1: TButton;
    Memo1: TMemo;
    ServerSocket1: TServerSocket;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
    CS1 : TClientSocket;
    procedure CSConnect(Sender: TObject; Socket: TCustomWinSocket);
    procedure CSConnecting(Sender: TObject; Socket: TCustomWinSocket);
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

{ TForm1 }

procedure TForm1.CSConnect(Sender: TObject; Socket: TCustomWinSocket);
begin
  Memo1.Lines.Add(\'Connect\');
end;

procedure TForm1.CSConnecting(Sender: TObject; Socket: TCustomWinSocket);
begin
  Memo1.Lines.Add(\'Connecting\');
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  CS1 := TClientSocket.Create(Self);
  CS1.OnConnecting := CSConnecting;
  CS1.OnConnect := CSConnect;
  CS1.Address := \'127.0.0.1\';
  CS1.Port := 8090;
  try
    CS1.Active := TRUE;
    except
      CS1.Free;
  end;
end;

end.

---------------------

object Form1: TForm1
  Left = 191
  Top = 107
  Width = 1088
  Height = 750
  Caption = \'Form1\'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = \'MS Sans Serif\'
  Font.Style = []
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 13
  object Button1: TButton
    Left = 100
    Top = 25
    Width = 75
    Height = 25
    Caption = \'Button1\'
    TabOrder = 0
    OnClick = Button1Click
  end
  object Memo1: TMemo
    Left = 205
    Top = 25
    Width = 291
    Height = 126
    Lines.Strings = (
      \'Memo1\')
    TabOrder = 1
  end
  object ServerSocket1: TServerSocket
    Active = True
    Port = 8090
    ServerType = stNonBlocking
    Left = 20
    Top = 35
  end
end


/Martin

Jens> det virker skide godt ;-))))))

Martin> lidt trøste point

Jeg snød og brugte en INDY fætter !

JEns B