🚀 go-pugleaf

Very thanks.

> The link to the Development Snapshot is on the same page as 9.0.17.
I went to Development Snapshot page and download Indy 9 and install in 
BCB6,it worked. but I cannot get the version number, only can see "Version 
DevSnapshot", is it version 9.0.50?


New question
I wrote a server program that convert from Demo Pascal code and run on my 
PC, but I cannot start server. If I run it by clicking F9, and set some 
break point, it is very strange, the process will jump codes and go to the 
end of function. see below code.

bool TfrmMain::StartServer()
{
    TIdSocketHandle *Binding;
    int i;
    TStringList *SL ;

    bool result, bChk;

    result = false;

    if (!StopServer())
    {
        fErrors->Append("Error stopping server");
        result = false;
        return result;
    }

    SL = new TStringList;
    if (!SL) return false;

    IdTCPServer->Bindings->Clear();
    // bindings cannot be cleared until TidTCPServer is inactive
    try
    {

        //=====================================================
        // lbIPs is TCheckListBox that store two ip address
        // 192.168.1.106
        // 127.0.0.1
        // I check 127.0.0.1 and select port number: 9999
        //===================================================
        for (i=0; i< lbIPs->Count-1; i++)
        {
            bChk = lbIPs->Checked[i];
            if (bChk)  // Cursor jump from here, below code not process
            {
                Binding = IdTCPServer->Bindings->Add();
                Binding->IP = lbIPs->Items->Strings[i];
                Binding->Port = StrToInt(edtPort->Text);
                SL->Append("Server bound to IP " + Binding->IP + " on port " 
+ edtPort->Text);
            }
        }


        if (bChk) // Cursor jump from here, below code not process
        {
            IdTCPServer->Active = true;
            result = IdTCPServer->Active;
            fServerRunning = result;
            lbProcesses->Items->AddStrings(SL);

            if (result)
            {
                lbProcesses->Items->Append("Server started");
                StatusBar->SimpleText = "Server running";
            }
            else
            {
                lbProcesses->Items->Append("Server stopped");
                StatusBar->SimpleText = "Server stopped";
            }
        }

    }
    catch (Exception &exception)
    {
        lbProcesses->Items->Append("Server not started");
        fErrors->Append(exception.Message);
        result = false;
        fServerRunning = result;
    }

    delete SL;

    return result;
}

void __fastcall TfrmMain::btnStartServerClick(TObject *Sender)
{
    int x,i;

    x = 0;
    for (i=0; i<lbIPs->Count; i++)
    {
        if (lbIPs->Checked[i])
            x++;
    }

    if (x < 1)
    {
        ShowMessage("Cannot proceed until you select at least one IP to 
bind!");
        return;
    }

    fErrors->Clear();
    if (!StartServer())
        ShowMessage("Error starting server\t\t" + fErrors->CommaText);
    else
        ShowMessage("Server started successfully!");
}


run out of BCB, always get "Error starting server".

Please help, thanks.


Regards
Susan