🚀 go-pugleaf

Here is what I did in PASVReply - and it does work now:

void __fastcall TForm1::IdFTPServer1PASVReply(TIdFTPServerContext *ASender, 
AnsiString &VIP, WORD &VPort, const TIdIPVersion AIPVer)
 {
 Memo1->Lines->Add("PASV command");
 Memo1->Lines->Add("Connected from: " + ASender->Binding()->PeerIP);

 if ((ASender->Binding()->PeerIP == ASender->Binding()->IP) || 
(ASender->Binding()->PeerIP == IdIPWatch1->CurrentIP))
  {
  Memo1->Lines->Add("Connected from local computer");
  return;
  }
 if 
(ASender->Binding()->PeerIP.SubString(0,ASender->Binding()->PeerIP.LastDelimiter(".")) 
== 
IdIPWatch1->CurrentIP.SubString(0,IdIPWatch1->CurrentIP.LastDelimiter(".")))
  {
  Memo1->Lines->Add("Connected from local network");
  return;
  }
 Memo1->Lines->Add("Connected from remote network");
 PublicIP = GetPublicIP(PublicIPName);
 Memo1->Lines->Add("VIP changed from " + VIP + " to " + PublicIP);
 VIP = PublicIP;
 }

____________________________________________________________________
GetPublicIP function, pDomainName is my own DDNS name:

AnsiString __fastcall TForm1::GetPublicIP(AnsiString pDomainName)
 {
 IdDNSResolver1->Resolve(pDomainName);
 for (int n = 0; n < IdDNSResolver1->QueryResult->Count; n++)
  {
  switch (IdDNSResolver1->QueryResult->Items[n]->RecType)
   {//  TARecord, TCNRecord, THINFORecord, TMINFORecord, TMXRecord, 
TNAMERecord, TNSRecord, TPTRRecord, TRDATARecord, TSOARecord, TTextRecord, 
and TWKSRecord.
   case qtA:
    return ((TARecord*)IdDNSResolver1->QueryResult->Items[n])->IPAddress;
    break;
   }
  }
 return "";
 }


Roland