🚀 go-pugleaf

"ANTHONY WEST" <teroni@email.uophx.edu> wrote in message 
news:487ef727$1@newsgroups.borland.com...

> I am using Borland builder 4 standard. I have downloaded
> Indy 9 source code that I am attempting to figure out how
> to use, but I do not have a clue on how to begin.

Indy does not officially support BCB 4 anymore.

> - log in to my FTP site using name and password

TIdFTP has UserName and Password properties for that.

> - download the file while showing the download progress

TIdFTP has a Get() method and OnWork... events for that.

Note - in order to use the OnWork events for a progress bar, you have to 
retreive the file's size before downloading the actual file.  You can use 
TIdFTP::Size() or TIdFTP::List() for that.

>          //  This is where I need FTP code

IdFTP1->UserName = "...";
IdFTP1->Password = "...";
IdFTP1->Host = "...";
IdFTP1->Port = ...;
try
{
    IdFTP1->Connect();
    try
    {
        IdFTP1->Get("...");
    }
    __finally
    {
        IdFTP1->Disconnect();
    }
}
catch(const Exception &e)
{
    MessageDlg("Unable to download update. " + e.Message, mtError, 
TMsgDlgButtons() << mbOK, 0);
    ShowStatusBarMessage("Failed to obtain update.");
}


Gambit 

ANTHONY WEST wrote:

>I am using Borland builder 4 standard. I have downloaded
>Indy 9 source code that I am attempting to figure out how to use,
>    if(URLDownloadToFile(0,updateLink.c_str(), fileName.c_str(),0,0))

That isn't an Indy function. It is a Win32 API function.
Microsoft also supports FTP with FtpGetFile() (no interaction)
or use the FtpOpenFile() and InternetReadFile() to report progress.
There is a fairly decent overview of the MS FTP here:
http://msdn.microsoft.com/en-us/library/aa384180(VS.85).aspx

InternetOpen()
InternetConnect() <-username and password here
FtpGetFile()
InternetCloseHandle()


if( NULL != (hInternetSession = InternetOpen(
			__argv[0],
			INTERNET_OPEN_TYPE_PRECONFIG,
			NULL, NULL, 0)) )
{
	hFTPSession = InternetConnect(
			hInternetSession,
			FtpServerURL,// ftp.MySite.com
			INTERNET_INVALID_PORT_NUMBER,
			Name,
			Password,
			INTERNET_SERVICE_FTP,
			0, (DWORD)0);
	if( NULL != hFTPSession )
	{
		bResult = FtpGetFile(
			hFTPSession,
			FromFilename,ToFilename,
		        FALSE,
		       	FILE_ATTRIBUTE_NORMAL,
			FTP_TRANSFER_TYPE_BINARY,
			0/*context*/);

		InternetCloseHandle( hFTPSession );
	};
	InternetCloseHandle( hInternetSession );
};

Thanks guys for all of your help. I was able to make it work
with the MSDN articles that Bob pointed me to. I have pasted
a basic example of what I am now able to do and it works
great. This is what I had to do to make it work with BCB 4:

- After including the wininet.h and some FTP code, I received the
"Unresolved external symbol referenced from module" error. I
could not find a wininet.lib or .obj that I could add to the
project to remove this error. I searched my hard drive and found
the wininet.dll in my windows/system32 folder. I created a lib at
the command prompt using the implib wininet.lib wininet.dll command.
I added this new wininet.lib to the project and it compiled fine. (I
also had to do this with urlmon.lib.)

- Then I added the function FtpGetFileSize to my code and received
a compiler error saying there was no such function. I examined the
wininet.lib file and found it in there. Then I examined the wininet.h
file and it was not in there. This function must be a newer one that
was not available when BCB 4 was released. So, I modified the
wininet.h file and added the FtpGetFileSize function to match the
function call prototype on MSDN. Again it compiled fine. (I also
had to modify the urlmon.h)

Whew.....what a days work this has been. Maybe this info will be
helpful to us programmers still using outdated compilers lol.

Here is my code:

#include "urlmon.h"//for http - modified for BCB 4
#include "wininet.h"//for ftp - modified for BCB 4

  int i, latestVersion, percent;
  unsigned long int fileSizeBytes, totalBytesRead, bytesRead;
  unsigned char buffer[9999];
  AnsiString versionFileName, updateURLLink, thisVersion;
  AnsiString updateFTPFileName, updateDownloadName;
  ifstream in;
  ofstream out;
  HINTERNET hInternetSession, hFTPSession, hFTPOpenFile;


    Screen->Cursor = crAppStart;
    ShowStatusBarMessage("Connecting to update server...");
    updateURLLink =
                http://www.aswsoftware.com/products/bibleart/
                "currentVersion.upd";
    versionFileName = MainMenuForm->DirLbl->Caption +
                                  "LatestVersion.upd";
    updateFTPFileName = "htdocs/temp/100_5730.JPG";
    updateDownloadName = "test.JPG";

    if(URLDownloadToFile(0,updateURLLink.c_str(),
versionFileName.c_str(),0,0))
    {
      MessageDlg("Unable to connect to update server.",
                 mtError, TMsgDlgButtons() << mbOK, 0);
   ShowStatusBarMessage("Failed to obtain update information.");
    }
    else
    {
  ShowStatusBarMessage("Getting latest version information from
  server...");
      in.open(versionFileName.c_str());
      if (in.fail())
      {
        MessageDlg("Error obtaining update information.", mtError,
                   TMsgDlgButtons() << mbOK, 0);
      }
      else
      {
        in >> latestVersion;
        in.close();

        thisVersion = MainMenuForm->VersionLbl->Caption;
        for (i = 1; i <= thisVersion.Length(); i++)
        {
          if (thisVersion[i] == '.')
            thisVersion.Delete(i, 1);
        }
        if (thisVersion.ToInt() >= latestVersion)
        {
 ShowStatusBarMessage("No updates are available at this time.");
 ShowMessage ("There is not an update available at this time.");
        }
        else
        {
 ShowStatusBarMessage("An update is available.");
 ShowMessage ("There is an update available.");

   out.open(updateDownloadName.c_str(), ios::out|ios::binary);
          if (out.fail())
          {
 MessageDlg("Unable to open the destination file for writing.\n"
           "Please make sure the disk is accessible and that\n"
           "the file has read/write access.",
            mtError, TMsgDlgButtons() << mbOK, 0);
            return;
          }

          if (NULL != (hInternetSession = InternetOpen(__argv[0],
                       INTERNET_OPEN_TYPE_PRECONFIG,
                       NULL, NULL, 0)) )
          {
            hFTPSession = InternetConnect(hInternetSession,
                       "ftp.powweb.com",
                        INTERNET_INVALID_PORT_NUMBER,
                        "myUserName", "myPassword",
                        INTERNET_SERVICE_FTP, 0,
                         (DWORD)0);
            if( NULL != hFTPSession )
            {
              hFTPOpenFile = FtpOpenFile(hFTPSession,
                          updateFTPFileName.c_str(),
                          GENERIC_READ,
                           FTP_TRANSFER_TYPE_BINARY, 0);

              fileSizeBytes = FtpGetFileSize(hFTPOpenFile, NULL);

              if(fileSizeBytes > 0)
              {
                ShowStatusBarMessage("0% - downloading update...");
                totalBytesRead = 0;
                int i = 0;
                while(totalBytesRead < fileSizeBytes)
                {
                  //get some file bytes from ftp site
                  InternetReadFile(hFTPOpenFile, buffer, 9999,
                                   &bytesRead);
                  //write some bytes to the output file.
                  out.write(reinterpret_cast<char*>(buffer),
                            sizeof(char) * bytesRead);

                  totalBytesRead += bytesRead;
                  i++;
                  if (i % 5 == 0)
                  {
                    percent = (totalBytesRead/(double)fileSizeBytes) * 100.;
                    ShowStatusBarMessage(IntToStr(percent) +
                                         "% - downloading update...");
                    Application->ProcessMessages();
                  }
                }
                ShowStatusBarMessage("100% - download complete.");
              }
              else
             {
                ShowMessage ("Error downloading update: "
                                        "File size is zero or
unavailable.");
              }
              InternetCloseHandle( hFTPOpenFile );
              InternetCloseHandle( hFTPSession );
            }
            else
            {
              ShowMessage ("Error connecting to download server.");
            }
            InternetCloseHandle( hInternetSession );
          }
          else
          {
            ShowMessage ("Error opening the internet.");
          }
          out.close();
        }
      }
    }
    Screen->Cursor = crDefault;
--
Anthony West

"ANTHONY WEST" <teroni@email.uophx.edu> wrote in message 
news:48804143$1@newsgroups.borland.com...

> - After including the wininet.h and some FTP code, I
> received the "Unresolved external symbol referenced
> from module" error.

You need to add wininet.lib to your project.

> I could not find a wininet.lib or .obj that I could add
> to the project to remove this error.

It should be in the $(BCB)\lib or $(BCB)\lib\psdk folder.

> I searched my hard drive and found the wininet.dll in my
> windows/system32 folder. I created a lib at the command
> prompt using the implib wininet.lib wininet.dll command.
> I added this new wininet.lib to the project and it compiled fine. (I
> also had to do this with urlmon.lib.)

BCB should have its own copy of that file as well.

> - Then I added the function FtpGetFileSize to my code and
> received a compiler error saying there was no such function.
> I examined the wininet.lib file and found it in there. Then I
> examined the wininet.h file and it was not in there.

Download a newer copy of the WinInet API headers from Microsoft.  Or get the 
Borland Platform SDK from http://bccsdk.sourceforge.net.

> This function must be a newer one that was not available when
> BCB 4 was released.

Correct.


Gambit 

> It should be in the $(BCB)\lib or $(BCB)\lib\psdk folder.

Wininet.lib is not anywhere in BCB 4 standard.
Here is a list of all wininet files according to windows search:

wininet.h
wininet.hpp
wininet.dcu //a delphi object file?
wininet.pas

> BCB should have its own copy of that file as well.

Here is a list of all urlmon files:

urlmon.h
urlmon.hpp
urlmon.dcu // another delphi object file?
urlmon.pas

That is all BCB 4 standard contains. I am not sure
what the .dcu files are for. They don't work when
attempting to add them as an object file, but they are
in the Lib\Object\ directory.

> Download a newer copy of the WinInet API headers from Microsoft.
> Or get the Borland Platform SDK from http://bccsdk.sourceforge.net.

That would have saved me a lot of time lol. I downloaded it and that has
everything that I have been missing on several projects that I have had
to improvise on.

Thank you very much for that information.

--
Anthony West