Could not bind socket address and port are already in use как исправить

unit Server;

interface

uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs, StdCtrls, IdContext, IdBaseComponent, IdComponent, IdCustomTCPServer,

  IdTCPServer, IdCmdTCPServer, IdExplicitTLSClientServerBase, IdFTPServer,

  IdIntercept, IdServerInterceptLogBase, IdServerInterceptLogFile, ShlObj;

type

  TForm1 = class(TForm)

    Memo1: TMemo;

    Button1: TButton;

    Button2: TButton;

    Edit3: TEdit;

    edit2: TEdit;

    edit1: TEdit;

    Label1: TLabel;

    Label2: TLabel;

    Label3: TLabel;

    IdFTPServer1: TIdFTPServer;

    logfile1: TIdServerInterceptLogFile;

    Label4: TLabel;

    procedure Button1Click(Sender: TObject);

    procedure Button2Click(Sender: TObject);

    procedure IdFTPServer1ChangeDirectory(ASender: TIdFTPServerContext;

      var VDirectory: string);

    procedure IdFTPServer1DeleteFile(ASender: TIdFTPServerContext;

      const APathName: string);

    procedure IdFTPServer1FileExistCheck(ASender: TIdFTPServerContext;

      const APathName: string; var VExist: Boolean);

    procedure IdFTPServer1GetFileDate(ASender: TIdFTPServerContext;

      const AFilename: string; var VFileDate: TDateTime);

    procedure IdFTPServer1GetFileSize(ASender: TIdFTPServerContext;

      const AFilename: string; var VFileSize: Int64);

    procedure IdFTPServer1MakeDirectory(ASender: TIdFTPServerContext;

      var VDirectory: string);

    procedure IdFTPServer1RetrieveFile(ASender: TIdFTPServerContext;

      const AFileName: string; var VStream: TStream);

    procedure IdFTPServer1RenameFile(ASender: TIdFTPServerContext;

      const ARenameFromFile, ARenameToFile: string);

    procedure IdFTPServer1RemoveDirectory(ASender: TIdFTPServerContext;

      var VDirectory: string);

    procedure IdFTPServer1UserLogin(ASender: TIdFTPServerContext;

      const AUsername, APassword: string; var AAuthenticated: Boolean);

    procedure IdFTPServer1StoreFile(ASender: TIdFTPServerContext;

      const AFileName: string; AAppend: Boolean; var VStream: TStream);

    procedure IdFTPServer1AfterUserLogin(ASender: TIdFTPServerContext);

    procedure IdFTPServer1Exception(AContext: TIdContext;

      AException: Exception);

    procedure IdFTPServer1Status(ASender: TObject; const AStatus: TIdStatus;

      const AStatusText: string);

    procedure IdFTPServer1Stat(ASender: TIdFTPServerContext;

      AStatusInfo: TStrings);

    procedure IdFTPServer1Execute(AContext: TIdContext);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

var

  Form1: TForm1;

  homedir: string;

implementation

{$R *.dfm}

function setSlashes(APath:String):String;

var

slash:string;

begin

slash := StringReplace(APath, ‘/’, ”, [rfReplaceAll]);

slash := StringReplace(slash, ”, ”, [rfReplaceAll]);

Result :=  slash;

end;

procedure TForm1.Button1Click(Sender: TObject);

begin

idftpserver1.DefaultPort:=strtoint(edit3.text);

idftpserver1.Active:=true;

showmessage(‘Подключено’);

end;

procedure TForm1.Button2Click(Sender: TObject);

begin

idftpserver1.Active:=false;

close;

end;

procedure TForm1.IdFTPServer1AfterUserLogin(ASender: TIdFTPServerContext);

begin

//Установить домашний каталог

homedir:=’c:’;

end;

procedure TForm1.IdFTPServer1ChangeDirectory(ASender: TIdFTPServerContext;

  var VDirectory: string);

begin

ASender.CurrentDir:= VDirectory;

end;

procedure TForm1.IdFTPServer1DeleteFile(ASender: TIdFTPServerContext;

  const APathName: string);

begin

if fileexists(APathName) then

begin

DeleteFile(APathName);

end;

end;

procedure TForm1.IdFTPServer1Exception(AContext: TIdContext;

  AException: Exception);

begin

showmessage(AException.Message);

end;

procedure TForm1.IdFTPServer1Execute(AContext: TIdContext);

begin

logfile1.DoLogWriteString(AContext.Connection.IOHandler.AllData);

end;

procedure TForm1.IdFTPServer1FileExistCheck(ASender: TIdFTPServerContext;

  const APathName: string; var VExist: Boolean);

begin

if fileexists(APathName) then

begin

VExist:=true;

end

else

begin

VExist:=False;

end;

end;

procedure TForm1.IdFTPServer1GetFileDate(ASender: TIdFTPServerContext;

  const AFilename: string; var VFileDate: TDateTime);

var

  fdate:tdatetime;

begin

//Поставить дату файла в переменную

fdate:= FileAge(AFilename);

 if  not (fdate=-1) then  begin

VFileDate:=fdate;

end;

end;

procedure TForm1.IdFTPServer1GetFileSize(ASender: TIdFTPServerContext;

  const AFilename: string; var VFileSize: Int64);

Var

  LFile : String;

  rec:tsearchrec;

  ASize: Int64 ;

begin

 LFile := setslashes(homedir + AFilename );

try

if FindFirst(Lfile, faAnyFile, rec) = 0 then  repeat

             Asize:=rec.Size;

             until FindNext(rec) <> 0;

        finally

            FindClose(rec);

end;

if Asize > 1 then

VFileSize:= Asize

else

VFilesize:=0;

end;

procedure TForm1.IdFTPServer1MakeDirectory(ASender: TIdFTPServerContext;

  var VDirectory: string);

var

ldir:string;

begin

ldir:= setslashes(homedir + VDirectory);

if not DirectoryExists(ldir) then

if not CreateDir(ldir) then

raise Exception.Create(‘Невозможно создать ‘+ldir);

end;

procedure TForm1.IdFTPServer1RemoveDirectory(ASender: TIdFTPServerContext;

  var VDirectory: string);

Var

LFile : String;

begin

LFile := setslashes(homedir + VDirectory);

if directoryexists(LFile) then begin

RemoveDir(LFile);

end

else

begin

Raise Exception.Create(‘Не удается удалить каталог’);

   end;

end;

procedure TForm1.IdFTPServer1RenameFile(ASender: TIdFTPServerContext;

  const ARenameFromFile, ARenameToFile: string);

begin

if not Renamefile(ARenameFromFile,ARenameToFile) then

begin

   Raise Exception.Create(‘Не удается переименовать файл ‘);

end;

end;

procedure TForm1.IdFTPServer1RetrieveFile(ASender: TIdFTPServerContext;

  const AFileName: string; var VStream: TStream);

begin

VStream := TFileStream.Create(setSlashes

(homedir+AFilename),fmOpenRead);

end;

procedure TForm1.IdFTPServer1Stat(ASender: TIdFTPServerContext;

  AStatusInfo: TStrings);

var

i:integer;

begin

for i:= 0 to astatusinfo.Count-1 do

begin

memo1.Lines.Add(astatusinfo.Strings[i]);

end;

end;

procedure TForm1.IdFTPServer1Status(ASender: TObject; const AStatus: TIdStatus;

  const AStatusText: string);

begin

memo1.lines.add(Astatustext);

end;

procedure TForm1.IdFTPServer1StoreFile(ASender: TIdFTPServerContext;

  const AFileName: string; AAppend: Boolean; var VStream: TStream);

begin

if not Aappend then

VStream := TFileStream.Create(AFileName,fmCreate)

else

      VStream := TFileStream.Create(AFileName,fmOpenWrite)

end;

procedure TForm1.IdFTPServer1UserLogin(ASender: TIdFTPServerContext;

  const AUsername, APassword: string; var AAuthenticated: Boolean);

begin

if (AUsername = edit1.Text) and (APassword = edit2.Text) then

begin

AAuthenticated:=True

end

else

begin

AAuthenticated := False;

end;

end;

end.

This error is caused by the add-on.

For example, if you launch two clients on the same machine (probably if you are using Password Depot on a terminal server) and receive this error, you must assign to users different port numbers in order to correctly communicate with the browser add-on:

To do so, open the program options by going to Edit -> Options -> Browsers and change the value of the WebSockets port. The same value must then also be set in the browser add-on (within the browser itself).

For more information, please click here.

If you use a terminal server, we also recommend taking into consideration the following:

Using Password Depot on a Terminal Server