🚀 go-pugleaf

Hi Hans...

now it should be clear enough (see snip on the bottom)..

OK, following worked / failed...

- InternetOpen = passed !
- InternetConnect = failed !
- FtpGetFile = of course also: failed !
- InternetCloseHandle = passed !

the strange thing is that anything inside the InternetConnect structure
is OK ! host, user, password...

Instead of using the IP ("83.133.48.22", ) i tried to use the
host: "ftp.halvani.de" but, it's also not working..

Hans can you explain me how and where to use:

InternetGetLastResponseInfo( )

maybe this could help me further..


Oren

/*******************************************************/
void __fastcall TfrmMainUnit::Button1Click(TObject *Sender)
{
   String user = "xxx", pass = "xxx"; // sorry, must hide :-)

   HINTERNET handle_Session = InternetOpen("My App",
                                            0,
                                            0,
                                            NULL,
                                            INTERNET_FLAG_ASYNC),

             handle_Connect = InternetConnect(handle_Session,
                                            "83.133.48.22",
                                            INTERNET_DEFAULT_FTP_PORT,
                                            user.c_str(),
                                            pass.c_str(),
                                            INTERNET_SERVICE_FTP,
                                            0,
                                            INTERNET_FLAG_CACHE_ASYNC);

  if(handle_Session) ShowMessage("Open Session = successfully !");
  else ShowMessage("Open Session = failed !");

  if(handle_Connect) ShowMessage("Connection = successfully !");
  else ShowMessage("Connection = failed !");


   if(FtpGetFile(handle_Connect, "ftp://ftp.halvani.de/index.php",
"C:\\down\\index(from_remote).php",
                 true, FILE_ATTRIBUTE_NORMAL, FTP_TRANSFER_TYPE_ASCII, 0))
   {
      ShowMessage("Download of File = successfully !");
      if(InternetCloseHandle(handle_Session)) ShowMessage("Closing Session =
successfully !");
      else ShowMessage("Closing Session = failed !");
   }
   else
   {
      ShowMessage("Sorry, couldn't connect..");
      if(InternetCloseHandle(handle_Session)) ShowMessage("Closing Session =
successfully !");
      else ShowMessage("Closing Session = failed !");
   }
}