Как открыть порт?

[Анатолий74Rfckb]

Ни знаю как открыть порт. Написал прогу на сокетах. Проверил сканером портов, порт каторый я выбрал оказался закрытым, как сделать так чтобы его открыть?

[AVer]

ServerSocket1.Enabled:=True;

[Анатолий74Rfckb]

у меня код вроде нармально пашет проверял по локальной сетке, а вот в интернете клиент он не может найти сервер
код сервера:
unit Unit1;

interface

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

type
TForm1 = class(TForm)
ServerSocket1: TServerSocket;
Memo1: TMemo;
Memo2: TMemo;
StatusBar1: TStatusBar;
Button1: TButton;
procedure Memo1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
procedure Button1Click(Sender: TObject);
procedure ServerSocket1ClientConnect(Sender: TObject;
Socket: TCustomWinSocket);
procedure ServerSocket1Accept(Sender: TObject;
Socket: TCustomWinSocket);
procedure ServerSocket1ClientDisconnect(Sende r: TObject;
Socket: TCustomWinSocket);
procedure ServerSocket1ClientRead(Sender: TObject;
Socket: TCustomWinSocket);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Memo1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
IF Key = VK_Return then
ServerSocket1.Socket.Connections[0].SendText(Memo1.Lines[Memo1.Lines.count - 1])

end;

procedure TForm1.Button1Click(Sender: TObject);
begin
ServerSocket1.Active:=true;
StatusBar1.Panels[0].Text:='Прослушивание';

end;

procedure TForm1.ServerSocket1ClientConnect(S ender: TObject;
Socket: TCustomWinSocket);
begin
Memo2.Lines.Add('Подлючение ОК');
end;

procedure TForm1.ServerSocket1Accept(Sender: TObject;
Socket: TCustomWinSocket);
begin
Memo2.Lines.Add('Готов к работе');
StatusBar1.Panels[0].Text:='Соединено с:'+Socket.RemoteAddress;

end;

procedure TForm1.ServerSocket1ClientDisconnec t(Sender: TObject;
Socket: TCustomWinSocket);
begin
StatusBar1.Panels[0].Text:='Прослушивание соединения...';
end;

procedure TForm1.ServerSocket1ClientRead(Send er: TObject;
Socket: TCustomWinSocket);
begin
Memo2.Lines.Add('Получен текст:'+Socket.ReceiveText);
end;

end.


код клиента:
unit Unit2;

interface

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

type
TForm2 = class(TForm)
ClientSocket1: TClientSocket;
Memo1: TMemo;
Memo2: TMemo;
StatusBar1: TStatusBar;
Button1: TButton;
Button2: TButton;
procedure Memo1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure ClientSocket1Connect(Sender: TObject;
Socket: TCustomWinSocket);
procedure ClientSocket1Disconnect(Sender: TObject;
Socket: TCustomWinSocket);
procedure ClientSocket1Read(Sender: TObject; Socket: TCustomWinSocket);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form2: TForm2;

implementation

{$R *.dfm}

procedure TForm2.Memo1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
IF Key = VK_Return then
ClientSocket1.Socket.SendText(Memo1 .Lines[Memo1.Lines.Count - 1]);

end;

procedure TForm2.Button1Click(Sender: TObject);
Var Server: String;
begin
IF ClientSocket1.Active then ClientSocket1.Active:=false;
IF InputQuery('Установить связь с', 'Псевдоним IP-адреса:',Server) then
IF Length(Server)>0 then
With ClientSocket1 do
begin
Host:=Server;
Active:=True;
end;

end;

procedure TForm2.Button2Click(Sender: TObject);
begin
ClientSocket1.Active:=False;
end;

procedure TForm2.ClientSocket1Connect(Sender: TObject;
Socket: TCustomWinSocket);
begin
StatusBar1.Panels[0].Text:='Соединенно с адрессом:'+Socket.RemoteHost;

end;

procedure TForm2.ClientSocket1Disconnect(Send er: TObject;
Socket: TCustomWinSocket);
begin
StatusBar1.Panels[0].Text:='Соединение закрыто';
end;

procedure TForm2.ClientSocket1Read(Sender: TObject;
Socket: TCustomWinSocket);
begin
Memo2.Lines.Add('Получен текст:'+Socket.ReceiveText);
end;

end.

[Romanus]

Друг возможно ты используешь зарезирвированный порт в целях тестирования используй порт 6000.

[Анатолий74Rfckb]

Попробовал использовать порт 6000 не помогло всё также

[Romanus]

Да внатуре вчера попробовал через инет не работает. Ладно будем исправлять. Как сделаю выкину дему