Обсуждение компонентов. Сравнение, фичи, проблемы - все в эту тему

void __fastcall TMyIEExtentionImpl::WIGetStat(String params)
{
    //TODO: Add your source code here
    //получение статистики через WinInet
    //https://statserv.sbor.net/cgi-bin/clients/login
    // for POST
    // char *pTarget = "/cgi-bin/clients/login";
    // char *pOptHeaders = "user=username";

    // for GET
    //char *pTarget = "/cgi-bin/clients/login?login=&password=";
    //char *pOptHeaders = NULL;

    String Line, Msg;

    HINTERNET hInternet = ::InternetOpen("AGENT 007",
            INTERNET_OPEN_TYPE_DIRECT, NULL, NULL, 0);

    HINTERNET hConnection = ::InternetConnect(hInternet, "statserv.my.net",
            INTERNET_DEFAULT_HTTPS_PORT, NULL, NULL, INTERNET_SERVICE_HTTP, 0, 0);

    HINTERNET hRequest = ::HttpOpenRequest(hConnection , "POST",
      "/cgi-bin/clients/login",
      HTTP_VERSION, NULL, NULL,
      INTERNET_FLAG_SECURE, NULL);

    if(TRUE == ::HttpSendRequest(
                    hRequest,
                    NULL,
                    0,
                    params.c_str(),
                    params.Length()))
    {
        //... читаем ...
        DWORD dwRead;
        TCHAR szTemp[1024];
        while (::InternetReadFile(hRequest, (LPVOID)szTemp, 1023, &dwRead))
        {
            if (!dwRead)  break;

            szTemp[dwRead]='\0';
            Line = Line + String(szTemp);
        }
    }

    ::InternetCloseHandle(hRequest);
    ::InternetCloseHandle(hConnection);
    ::InternetCloseHandle(hInternet);
    // ... парсим ... // а перекодировать страницу лень...:)
    //уХННБ ОБ УЮЕФХ - Сумма на счету
    int startpos = Line.Pos ( "уХННБ ОБ УЮЕФХ" ) + AnsiString( "уХННБ ОБ УЮЕФХ</td>\
                <td class=\"inf_data\"> ").Length();
    Line = Line.SubString ( startpos + 1, Line.Length() );
    startpos = 1;
    int endpos   = Line.Pos ( "</td>" );
    // ... формируем сообщение ...
    Line = Line.SubString ( startpos, endpos-startpos );
    Msg.printf("Сумма на счету:\n\r%s руб.", Line.c_str());
    // ... получаем HWND Browser-а ...
    HWND hBrowser=NULL;
    long lBrowser;
    if ( SUCCEEDED (m_pWebBrowser2->get_HWND(&lBrowser)))
        hBrowser=(HWND)lBrowser;

    MessageBox(hBrowser, Msg.c_str(), FLogin.c_str(), MB_OK);
}
...
String sPostData= "login=" + FLogin + "&password=" + FPassword;
   
    WIGetStat(sPostData);

if(TreeView1->Selected == NULL) return;

__fastcall TForm1::TForm1(TComponent* Owner)
: TForm(Owner)
{
// регистрируем .gif
TPicture *Picture = new TPicture();
Picture->RegisterFileFormat(__classid(TGIFImage), "gif", "gif",__classid(TGIFImage));
delete Picture;
}

info_gb=TSkinGroupBox
    RichEdit1=TSkinScrollbar
        =TWScrollbar
        =TWScrollbar
    Panel1=TSkinBox
    write_btn=TSkinBitButton
    Setup_gb=TSkinGroupBox
    data_edt=TSkinEdit
    open_btn=TSkinButton
    com_cb=TSkinComBox
    baud_cb=TSkinComBox
    boot_edt=TSkinEdit
    btopen_btn=TSkinButton
    read_pan=TSkinBox
    Rdfls_size_edt=TSkinEdit
    Rdfls_addr_edt=TSkinEdit
    rdall_rb=TSkinRadioButton
    rdsel_rb=TSkinRadioButton
    jm6226_btn=TSkinBitButton
    read_btn=TSkinBitButton
    fmt_btn=TSkinBitButton
    info_btn=TSkinBitButton
    gj_btn=TSkinBitButton
    gj_gb=TSkinGroupBox
    nor_format_btn=TSkinBitButton
    start_edt=TSkinEdit
    leng_edt=TSkinEdit
    nfb_format_btn=TSkinBitButton
    nand_ckb=TSkinCheckBox
    rw_speed_chk=TSkinCheckBox
    mt6226_cb=TSkinComBox
    jm_saveas_chk=TSkinCheckBox
    imei_edt=TSkinEdit
    ChangeImei_btn=TSkinButton
    unflash_cb=TSkinComBox