отправка файла через TcpServer/TcpClient

[Alexandr555]

сервер

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Sockets, StdCtrls;
 
type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Button1: TButton;
    TcpServer1: TTcpServer;

    procedure TcpServer1Accept(Sender: TObject;
      ClientSocket: TCustomIpClient);
    procedure Button1Click(Sender: TObject);

  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation

{$R *.dfm}
 
 
procedure TForm1.TcpServer1Accept(Sender: TObject;
  ClientSocket: TCustomIpClient);
var
  stream: TMemoryStream;
  msg: string;
  sz: integer;
begin
  if ClientSocket.Connect then
  begin
    msg := ClientSocket.Receiveln;
      stream := TMemoryStream.Create;
      sz := StrToInt(msg);
      stream.SetSize(sz);
      ClientSocket.Sendln('ok');

      ClientSocket.ReceiveBuf(stream.Memory^, sz);
      stream.SaveToFile('otchet.txt');
      stream.Free;
    end;

    ClientSocket.Disconnect;
  end;
procedure TForm1.Button1Click(Sender: TObject);
begin
TcpServer1.LocalHost:=edit1.Text;
TcpServer1.Open;
end;

end.

клиент

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Sockets;
 
type
  TForm1 = class(TForm)



    Button1: TButton;
    Edit1: TEdit;
    TcpClient1: TTcpClient;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation

{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
var
  stream: TMemoryStream;
  msg: string;
begin
  tcpClient1.Remotehost:=edit1.Text;
  tcpClient1.Active := true;

  if TcpClient1.Connect then
  begin
    stream := TMemoryStream.Create;
    stream.LoadFromFile('otchet.txt');
    TcpClient1.Sendln(IntToStr(stream.Size));
    if TcpClient1.Receiveln = 'ok' then
      TcpClient1.SendBuf(stream.Memory^, stream.Size);
    tcpClient1.Active := false;
    TcpClient1.Disconnect;
  end
  else showmessage('Error connecting');
end;


end.

локально на одном пк все работает если ставить 127.0.0.1
а вот по инету уже не работает, не работает и тогда если у клиента, что запускаю на этом же пк, мой айпи.
срабатывает showmessage('Error connecting');
в чем дело вот?

object TcpServer1: TTcpServer
bmBlocking
LocalPort = '9999'
OnAccept = TcpServer1Accept


object TcpClient1: TTcpClient
bmThreadBlocking
RemotePort = '9999'

в брандмауэре все разрешено

может ли быть дело где то тут?
WAN Settings

http://s57.radikal.ru/i155/1112/52/ac6aa96d2679.png

[Пепел Феникса]

а доступ то есть извне к вашему компу?

[Alexandr555]

тобишь извне?

[Пепел Феникса]

из интернета к серверу есть доступ?
если нет, то откуда у программы он может взяться?

[Alexandr555]

есть, делаю это на одном пк, за которым щас и пишу собственно, кроме проверки когда клиент с другого пк запускал чтобы подключиться

[Пепел Феникса]

как вы проверили доступ из интернета?

[Alexandr555]

а собственно говоря не знаю

вот еще что в настройках NAT

http://s017.radikal.ru/i432/1112/9b/8204222a0af7.png

[Alexandr555]

нашел что доступ вроде бы тут давать
http://s017.radikal.ru/i419/1112/cd/93e510b3e526.png
но почему то безрезультатно

[Slym]

IP адрес на WAN маршрутизатора какой?

[Alexandr555]

http://s017.radikal.ru/i405/1112/43/0926a3baab12.png
вот поставил 80.234.118.3
не помогло