Question about TIdFTP.SendPassive

Giganews Newsgroups
Subject: Question about TIdFTP.SendPassive
Posted by:  Tobias Giesen (tobi…@tgtools.de)
Date: Fri, 21 Jul 2006

Hi,

I changed this function in the following way, and I have much fewer problems
with passive mode and firewalls now. Does it make sense officially though?

procedure TIdFTP.SendPassive(var VIP: string; var VPort: integer);
begin
  SendInternalPassive('PASV', VIP, VPort); {do not localize}
  VIP:=(IOHandler as TIdIOHandlerSocket).Binding.PeerIP;
end;

Cheers,
Tobias

Replies