[Selw77]

Доброго времени суток!
Хотелось бы узнать, компоненты TCPClient и TCPServer работают через интернет?у сервера и у клиента IP динамические.
У меня не работает, скажи пожалуйста, что я делаю не так.
Заранее спасибо.

Клиент:

Код:

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    TcpClient1: TTcpClient;
    LabeledEdit1: TLabeledEdit;
    LabeledEdit2: TLabeledEdit;
    Button1: TButton;
    Button2: TButton;
    Memo1: TMemo;
 
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
  TcpClient1.RemoteHost := LabeledEdit1.Text;
  TcpClient1.RemotePort := LabeledEdit2.Text;
  TcpClient1.Active := true;
  TcpClient1.Connect;

  end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  TcpClient1.Sendln(Memo1.Text);
end;

end.

Сервер:

Код:

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    TcpServer1: TTcpServer;
    Memo1: TMemo;
    procedure TcpServer1Accept(Sender: TObject;
      ClientSocket: TCustomIpClient);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.TcpServer1Accept(Sender: TObject;
  ClientSocket: TCustomIpClient);
begin
  Memo1.Text := ClientSocket.Receiveln;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin

end;

end.