[ganselo]

Браузер отправляет запрос на http://www.virustotal.com/search.html (POST запрос chain=md5). Дальше происходит редирект на результат.

[Drongo]

какую версию Builder'a используете? »

При написании использую

Borland C++ Builder 6.0 Enterprise Suite

Дело в том, что собственно программу я написал давно, там 2 500 строк, и переписывать программу для CodeGear C++ Builder 2009 уже попросту нереально. Вот и хочу сделать дополнительный детект по контрольной сумме, тем более что в логах, анализируемых программой MD5 уже есть.

Какую версию Indy используете? »

Версия Indy в билдере 6.0 такая - 8.0.25

Попробуйте потестить в CodeGear C++ Builder 2009. »

Да, там всё без проблем, получаю результат контрольной суммы, версия Indy - 10.2.5

Скачал новую Indy10 пробовал установить по инструкции, правда, ничего с установкой компонентов не получилось Как её правильно установить? Я удалил старую Indy, запустил файл .bpk, компиляция нормально - Install в ошибку.

[ganselo]

Я устанавливал по этой инструкции. Эту инструкцию можно выполнять с 3-его пункта, но перед этим нада удалить старые Indy компоненты.

[Drongo]

но перед этим нада удалить старые Indy компоненты. »

Так и сделал, потом снёс билдер и заново установил без Indy
Установил Indy по инструкции, палитра компонентов появилась, но даже простой вызов

Код:

void __fastcall TForm1::FormCreate(TObject *Sender)
{
   Label1->Caption = IdHTTP1->Version;
}
//---------------------------------------------------------------------------

Выпадает в ошибку

[Linker Error] Unresolved external '__fastcall Idbasecomponent::TIdBaseComponent::GetVersion()' referenced from C:\PROGRAM FILES\BORLAND\CBUILDER6\PROJECTS\UNIT1.OBJ

[ganselo]

А вы указали пути ко всем нужным файлам?
Попробуйте скомпилировать в release версии.

[Drongo]

А вы указали пути ко всем нужным файлам? »

Всё сделал по инструкции

5. Запустил батник "C:\indy10\Lib\Fullc6.bat". 6. Создается папка "C:\indy10\C6", идёт компилирование Indy 10... 7. Дальше распихиваю по папкам: *.hpp -> "C:\Program files\Borland\CBuilder6\Include" *.lib, *.bpi -> "C:\Program files\Borland\CBuilder6\Lib" *.dcp, *.lsp, *.bpl -> "C:\Program files\Borland\CBuilder6\Bin" 8. Добавляю dclIndyCore60.bpl и dclIndyProtocols60.bpl в палитру компонентов ("Component" -> "Install packages.." -> "Add")

Попробуйте скомпилировать в release версии. »

Без разницы.

[Drongo]

Так. Установил Indy, версия 10.2.3 параллельно пришлось ещё вручную закинуть в папку Bin файлы indy60.bpl и dclindy60.bpl. Проект собрал. Собирается только при релиз версии. Без этого вылетает окно отладчика.

Правда ожидаемого результата почему-то нет.

[ganselo]

Запустил я exe'шник и он мне выдал HTTP/1.0 303 See Other. Это означает, что происходит редирект, но метод OnRedirect у HTTPQuery не назначен. Во вкладке Events (события) класса HTTPQuery назначил событию OnRedirect функцию:

Код:

void __fastcall TForm1::HTTPQueryRedirect(TObject *Sender,
      AnsiString &dest, int &NumRedirect, bool &Handled,
      AnsiString &VMethod)

Скомпилил и всё заработало.

[Drongo]

ganselo, Точно, совсем уже я мозги потерял, удалял старую версию компонента, а видимо нужно было переназначить метод на новую. Заработало всё как надо.

Только мне бы хотелось, чтобы во время работы не выскакивали лишние MessageBox

Код:

    catch(EIdSocketError &se)
    {
        ShowMessage(se.Message);
    }
    catch(Exception &e)
    {
        ShowMessage(e.Message);
    }
    ShowMessage(response->DataString);

Чтобы запрос был "тихий", запросили, и вернули ответ, если ответа нет, чтобы вернулся ноль. И ещё, мне вывод классикации различными антивирусами тоже не нужен, но его убрать не проблема, мне нужно число в самом результате Result: 32 /40 (80.0%) выделил его красным. Я хочу сделать ComboBox с выбором значений: 20,30,...,80 и выше, при выборе значения из списка, должно происходить сравнение с проверкой результатов, и на этом основании, файл будет помещаться в команду карантина и удаления.

[ganselo]

Только мне бы хотелось, чтобы во время работы не выскакивали лишние MessageBox »

Ну ошибки в любом случае нужно ловить.

не нужно число в самом результате Result: 32 /40 (80.0%) выделил его красным. Я хочу сделать ComboBox с выбором значений: 20,30,...,80 и выше, при выборе значения из списка, должно происходить сравнение с проверкой результатов, и на этом основании, файл будет помещаться в команду карантина и удаления. »

Это легко сделать:

В обработчике события OnRedirect после того как распарсили результат вставляем это:

Код:

int antivirus_count = result.size();
int true_res = 0;
int procent;

for(TResult::iterator i = result.begin(); i != result.end(); i++)
{
        if(i->result != "-")
        {
             true_res ++;
        }
}

procent = true_res*100/antivirus_count; //получили процент
if(ComboBox->Text.ToInt() == procent) { //поместить в карантин }
else { //вирусов нет}