Порты

[Fahman]

Как можно открыть порт который введен в edit?

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

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

[Fahman]

на роутере, возможно?

[Человек_Борща]

Если роутер предостовляет такие возможности, то возможно. Чтите документацию роутера.

[Fahman]

а что значит, сокет к нему открыть?

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

открыть порт от роутера означает проброс портов.
это UPnP, читайте в этом направлении(сначало читать, потом спрашивать если что не то)
вам нужно будет знать еще порт с какого пробрасываете.

открыть сокет на этом порту означает начать слушать этот порт и принимать данные которые ктото присылает в него.

[doktor255]

Пример открытия 514 порта на PС и его прослушка.

unit Unit1;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, IdSocketHandle, Vcl.StdCtrls,
  IdBaseComponent, IdComponent, IdUDPBase, IdUDPServer, IdGlobal;

type
  TForm1 = class(TForm)
    procedure IdUDPServer1UDPRead(AThread: TIdUDPListenerThread;
      const AData: TIdBytes; ABinding: TIdSocketHandle);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
var UDP: TIdUDPServer;
begin
UDP:= TIdUDPServer.Create;
UDP.OnUDPRead := IdUDPServer1UDPRead;
UDP.DefaultPort := 514;
UDP.Active := true;
end;

procedure TForm1.IdUDPServer1UDPRead(AThread: TIdUDPListenerThread;
  const AData: TIdBytes; ABinding: TIdSocketHandle);
var msg: string;
begin
SetString(msg,PAnsiChar(@AData[Low(AData)]),Length(AData));
ShowMessage(msg);
end;

end.

[Fahman]

[doktor255]

Выпрямляем руки, и начинаем изучать супермегапоисковик гугл. Там всё есть!!!

[raxp]

Fahman, код открытия сокета на прием-передачу UDP дейтаграмм никакого отношения к uPnP и пробросу (открытию) портов на роутере не имеет.

в помощь