🚀 go-pugleaf

"Remy Lebeau (TeamB)" <no.spam@no.spam.com> wrote in message 
news:44dbcbbb$1@newsgroups.borland.com...
>
> "Skaarak" <skaarak@NOakamailSPAM.com> wrote in message
> news:44dbb9a3$1@newsgroups.borland.com...
>
>> Still in the debugger, and even hitting 'Run' after closing the dialog 
>> box
>> (not an exception box, a program pop-up) does not cause it to continue.
>
> There are no popup messages in Indy.  "Connection Closed Gracefully" is an
> exception message.  If you are not seeing the debugger display an 
> exception
> popup for it, then your program has to be showing its own popup message,
> such as in an exception handler.  Or you are not catching any exceptions 
> and
> they are falling through to the VCL's default handler.
>
> Please show your actual code.  List() should not be throwing an 
> "Connection
> Closed Gracefully" exception, even with the ReadStream() fix applied.

Below are the "basics".  FTP2 is the TldFTP program. It calls the 
parsedirectory
function and that's what fails.  I've included the FormCreate function as 
well
so you can see what's in it.  The SaveLoad() just reads values from regestry
and puts them into a couple of edit boxes (unrelaed).
Stepping through the code I get to this line FTP2->List(RawDir->Items,"*", 
true);
int the ParseDirectory function before it fails and throws the Dialog Box.
-Cory

//---------------------------------------------------------------------------
void __fastcall TForm1::ConnectClick(TObject *Sender)
{
    int i;
    TStringList *names;
    if (!FTP2->Connected()) {
        FTP2->Host = Server->Text;
        FTP2->Username = UserName->Text;
        FTP2->Password = AdminForm->Decode(Password->Text);
        FTP2->Connect(true, 5000);

        if (FTP2->Connected()) {
            names = new TStringList ();
            FTP2->ChangeDir("AddOns");
            ParseDirectory (names, NULL, NULL, true);
            RemoteDir->Items = names;
            delete names;
        }
    }
}

//---------------------------------------------------------------------------
void __fastcall TForm1::ParseDirectory(TStringList *name, TStringList 
*directory, TStringList *size, bool dironly)
{
    int i;
    bool dir;
    AnsiString temp;
    RawDir->Clear();
    FTP2->List(RawDir->Items,"*", true);
    for (i=0; i<RawDir->Count; i++) {
        dir = false;
        temp = RawDir->Items->Strings[i].SubString(0,10);    //directory //0 
based I think (Index , COunt)
        if (temp.c_str()[0] == 'd' || temp.c_str()[0] == 'D') {
            dir = true;
        }
        if (directory != NULL) {
            if (dir || (!dironly)) {
                directory->Add(temp);
            }
        }
        temp = RawDir->Items->Strings[i].SubString(11,16);    //Unknown
        temp = RawDir->Items->Strings[i].SubString(27,16);    //Size
        if (size != NULL) {
            if (dir || (!dironly)) {
                size->Add(temp);
            }
        }
        temp = RawDir->Items->Strings[i].SubString(44,12);    //Date
        temp = RawDir->Items->Strings[i].SubString(57,99);    //Name
        if (name != NULL) {
            if (dir || (!dironly)) {
                name->Add(temp);
            }
        }
    }
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormCreate(TObject *Sender)
{
    AnsiString temp;
    this->Left = 100;
    this->Top = 100;
    this->ClientWidth = 800;
    this->ClientHeight = 600;

    temp.printf("Interface Assistant v%d.%02d.%02d", MAJOR_VERSION, 
MINOR_VERSION, VER_REV);
    Form1->Caption = temp;

    CurFile->Caption = "";
    Size->Caption = "";
    dt = NULL;

    SaveLoad (ID_LOAD);
}