🚀 go-pugleaf

"Skaarak" <skaarak@NOakamailSPAM.com> wrote in message
news:44dca1d2@newsgroups.borland.com...

> I've included the FormCreate function as well so you can see what's in it.

DO NOT use the OnCreate event in C++!  It is a Delphi idiom that produces
illegal behavior in C++ as it can be triggered before the constructor.  Use
the actual constructor instead.

> 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.

Did you try putting try..catch blocks into your code yet?

    __fastcall TForm1::TForm1(TComponent *Owner)
        : TForm(Owner)
    {
        this->Left = 100;
        this->Top = 100;
        this->ClientWidth = 800;
        this->ClientHeight = 600;

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

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

        SaveLoad (ID_LOAD);
    }

    void __fastcall TForm1::ConnectClick(TObject *Sender)
    {
        if( !FTP2->Connected() )
        {
            FTP2->Host = Server->Text;
            FTP2->Username = UserName->Text;
            FTP2->Password = AdminForm->Decode(Password->Text);
            try
            {
                FTP2->Connect(true, 5000);
                try
                {
                    FTP2->ChangeDir("AddOns");
                    if( !ParseDirectory(RemoteDir->Items, NULL, NULL,
true) )
                        ShowMessage("Parse Directory Error");
                }
                catch(const Exception &)
                {
                    FTP2->Disconnect();
                    throw;
                }
            }
            catch(const Exception &e)
            {
                ShowMessage(e.Message);
            }
        }
    }

    bool __fastcall TForm1::ParseDirectory(TStrings *name, TStrings
*directory, TStrings *size, bool dironly)
    {
        bool dir;
        AnsiString item, temp;
        RawDir->Clear();

        try
        {
            FTP2->List(RawDir->Items,"*", true);
        }
        catch(const Exception &)
        {
            return false;
        }

        for(int i = 0; i < RawDir->Count; ++i)
        {
            dir = false;
            item = RawDir->Items->Strings[i];

            temp = item.SubString(1, 10);    //directory
            if( (temp != "") && ((temp[1] == 'd') || (temp[1] == 'D')) )
                dir = true;
            if( (directory) && ((dir) || (!dironly)) )
                directory->Add(temp);

            temp = item.SubString(11, 16);    //Unknown

            temp = item.SubString(27, 16);    //Size
            if( (size) && ((dir) || (!dironly)) )
                size->Add(temp);

            temp = item.SubString(44, 12);    //Date

            temp = item.SubString(57, 99);    //Name
            if( (name) && ((dir) || (!dironly)) )
                name->Add(temp);
        }

        return true;
    }


Gambit