🚀 go-pugleaf

Well, I rewrote all my code using straight Win32 API functions 
(InternetOpen, InternetConnect, and FtpPutFile) and it's still going slow. 
Internet Explorer must use some other protocol to make it go so fast. 

"Blake Young" <blakeyoung@mail.utexas.edu> wrote in message
news:42e17c71$1@newsgroups.borland.com...

> Well, I rewrote all my code using straight Win32 API functions
> (InternetOpen, InternetConnect, and FtpPutFile) and it's still
> going slow. Internet Explorer must use some other protocol to
> make it go so fast.

Without seeing your actual code, I would suspect that your own code is the
bottleneck, especially since you get the same slowness using two different
libraries.  Or maybe your connection is just slow in general, or your
machine is busy doing other things at the time, etc.


Gambit

Here is a complete program example showing my problem.  I've noticed that as 
soon as the Put() command is executed, my program appears to stop 
responding.  In other words, I can't move the window around, the button on 
the form disappears, and if I move another window over my program, my 
program window will not be redrawn after the other window is moved out of 
the way.  In addition, the upload is again going at a nearly imperceptable 
pace.  I thought that moving the upload code to its own thread might help, 
but it did not.  I looked at the CPU usage and it remained at 0% for my 
program, even though the CPU usage for ALL open programs was only at about 
3% (i.e. my system isn't bogged).  Furthermore, I can log into the FTP 
account via Internet Explorer and upload files at a fast pace, so the 
program appears to be somewhere inside my code.  Again, this is MY ENTIRE 
PROGRAM!  This is not a snippet from a larger piece of code.  It's seems 
very small and trivial, so I don't know what in the world could be the 
problem.  Compiling it only involves adding a button, a memo, an open 
dialog, and a TIdFTP component to a default New Application.


//---------------------------------------------------------------------------

#include <vcl.h>
#pragma hdrstop

#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
    : TForm(Owner)
{
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Button1Click(TObject *Sender)
{
    if (!OpenDialog1->Execute())
        return;

    AnsiString LocalFileName = OpenDialog1->FileName;
    AnsiString RemoteFileName = ExtractFileName(OpenDialog1->FileName);

    Memo1->Lines->Add("Connecting to ftp.tripod.com...");

    if (IdFTP1->Connected())
        IdFTP1->Disconnect();

    IdFTP1->Host = "ftp.tripod.com";
    IdFTP1->Port = 21;
    IdFTP1->User = "winboxer";
    IdFTP1->Password = "CENSORED";
    IdFTP1->Connect();

    Memo1->Lines->Add("Uploading selected file...");

    try
    {
        IdFTP1->Put(LocalFileName, RemoteFileName, false);
    }
    catch (Exception &e)
    {
        Application->ShowException(&e);
        IdFTP1->Disconnect();
        return;
    }

    Memo1->Lines->Add("File uploaded.  Disconnecting...");
    IdFTP1->Disconnect();
}
//---------------------------------------------------------------------------


Thanks
Blake 

"Blake Young" <blakeyoung@mail.utexas.edu> wrote in message
news:42e285f7$1@newsgroups.borland.com...

> Here is a complete program example showing my problem.  I've
> noticed that as soon as the Put() command is executed, my program
> appears to stop responding.

Indy is a blocking library.  Its operations do not return control to the
caller until the operations finish.  You are calling Put() in the context of
the main VCL thread.  That is why everything is frozen while Put() does its
work.  You need to either place a TIdAntiFreeze on the form, or else move
the TIdFTP to its own worker thread.


Gambit