🚀 go-pugleaf

"Hugo Dias" <synchron@nospam.synchron-systems.com> wrote in message
news:40f44d50$1@newsgroups.borland.com...

> I now know that i can solve problem on the client.
>
> I need that the PORT command will be
> allways : x,x,x,x,207,19 (port 53011)
>
> To do this i've altered the Indy TIdSimpleServer.pas
> Source code to allways use this port.

A better solution would be to update TIdFTP to allow assigning custom values
to the TIdSimpleServer's Port property when issuing sPORT commands.
TIdSimpleServer is used in other places of Indy, so you should not mess with
it.  For example (untested):

    TIdFTP = class(TIdTCPClient)
    protected
        //...
        FDefaultDataPort: Integer;
        //...
    published
        //...
        property DefaultDataPort: Integer read FDefaultDataPort write
FDefaultDataPort default 0;
        //...
    end;

    constructor TIdFTP.Create(AOwner: TComponent);
    begin
        //...
        FDefaultDataPort := 0;
    end;

    procedure TIdFTP.InternalGet(const ACommand: string; ADest: TStream;
AResume: Boolean = false);
    begin
        //...
        FDataChannel := TIdSimpleServer.Create(nil); try
            with TIdSimpleServer(FDataChannel) do begin
                //...
                BoundIP := (Self.IOHandler as
TIdIOHandlerSocket).Binding.IP;
                BoundPort := Self.DefaultDataPort;    // <-- here
                BeginListen;
                //...
            end;
        //...
    end;

    procedure TIdFTP.InternalPut(const ACommand: string; ASource: TStream;
AFromBeginning: Boolean = true);
    begin
        //...
        FDataChannel := TIdSimpleServer.Create(nil); try
            with TIdSimpleServer(FDataChannel) do begin
                //...
                BoundIP := (Self.IOHandler as
TIdIOHandlerSocket).Binding.IP;
                BoundPort := Self.DefaultDataPort;    // <-- here
                BeginListen;
                //...
            end;
        //...
    end;

> I no this is not a good solution. If you have any idea
> how i can force the TIdFTP to use port 53011 without
> change Indy source i would apreciate.

Currently, it is not possible without changing Indy's source code.  However,
you simply chose the wrong place to modify, that's all.

Either way, that does not address the original problem that exists in
TIdFTPServer.  That will have to be fixed.


Gambit