Отправка запроса Post для загрузки картинки на сайт

    std::auto_ptr<TIdMultiPartFormDataStream>
    PostData(new TIdMultiPartFormDataStream);
    AnsiString Path;
    String Url;
    String osme;
 
    DataModule2->IdHTTP3->Request->Host = "www.ria.com";
    DataModule2->IdHTTP3->Request->UserAgent = "Mozilla/5.0 (Windows NT 10.0; Win64; x64; rv:64.0) Gecko/20100101 Firefox/64.0";
    DataModule2->IdHTTP3->Request->Accept = "*/*";
    DataModule2->IdHTTP3->Request->AcceptLanguage = "uk-UA,uk;q=0.8,en-US;q=0.5,en;q=0.3";
    DataModule2->IdHTTP3->Request->Referer = "https://www.ria.com/objavlenie/";
    DataModule2->IdHTTP3->Request->Connection = "keep-alive";
    DataModule2->IdHTTP3->Request->ContentType = "multipart/form-data";
    DataModule2->IdHTTP3->Request->CustomHeaders->Add("X-Requested-With:XMLHttpRequest");
 
    Path = ExtractFilePath(Application->ExeName)+IntToStr(1)+".jpg";
    Url= "https://www.ria.com/add/photo/";
 
    PostData->AddFile("1", Path);
 
    osme = DataModule2->IdHTTP1->Post(Url + "?file=1.jpg&adv_id=0", PostData.get());
    Form1->Memo1->Lines->Add(osme);

//---------------------------------------------------------------------------
bool TFLogin::SendEMail(AnsiString file_path, int office_descriptor, AnsiString send_to, AnsiString subject,AnsiString body)
{
    TIdAttachmentFile * attach;
    TIdText * text_part;
    TIniFile * config;
    AnsiString server,from_address,password;
    int port,rows_quantity;
 
    //Вычитываем данные сервера
    config=new TIniFile(ExtractFilePath(Application->ExeName)+"config.ini");
    server=config->ReadString("EMAIL_SETTINGS","SERVER","smtp.yandex.ru");
    port=config->ReadInteger("EMAIL_SETTINGS","PORT",465);
    delete config;
 
    //Вычитываем данные отправителя
    Query="SELECT param_36,param_37 FROM offices WHERE id="+IntToStr(office_descriptor);
    rows_quantity=MySQLQuery_SELECT();
    if(rows_quantity==1)
    {
        from_address=Respond[0]->Strings[0];
        password=Respond[0]->Strings[1];
        FreeRespond(rows_quantity);
    }
    else
    {
        if(rows_quantity>=0)FreeRespond(rows_quantity);
        Application->MessageBoxW(L"Ошибка при работе с таблицей отделений!",L"Ошибка",MB_OK|MB_ICONERROR);
        BaseIsOK=false;
        return false;
    }
 
    IdSMTP1->Host=server;
    IdSMTP1->Port=port;
    IdSMTP1->Username=from_address;
    IdSMTP1->Password=password;
 
    IdMessage1->Clear();
    IdMessage1->OnInitializeISO=IdMessageInitializeISO;
    IdMessage1->From->Address=from_address;
    IdMessage1->Recipients->EMailAddresses=send_to;
    IdMessage1->ReceiptRecipient->Text="";
 
    IdMessage1->CharSet="windows-1251";
    IdMessage1->Subject=subject;
 
    IdMessage1->ContentType="multipart/mixed";
    IdMessage1->Encoding=meMIME;
 
    attach = new TIdAttachmentFile(IdMessage1->MessageParts, file_path);
 
    attach->ContentTransfer="base64";
    attach->ContentDisposition = "attachment";
    attach->ContentType="application/octet-stream;";
    attach->FileName=ExtractFileName(file_path);
 
    text_part = new TIdText(IdMessage1->MessageParts, NULL);
    text_part->ContentType="text/plain";
    text_part->ContentTransfer="base64";
    text_part->CharSet="windows-1251";
 
    text_part->Body->Add(body);
    text_part->ParentPart=-1;
 
    try
    {
        IdSMTP1->Connect();
        IdSMTP1->Send(IdMessage1);
        IdSMTP1->Disconnect();
    }
    catch(...)
    {
        Application->MessageBoxW(L"Не удалось отправить электронное письмо!",L"Ошибка",MB_OK|MB_ICONERROR);
        delete attach;
        delete text_part;
        return false;
    }
 
    delete attach;
    delete text_part;
    return true;
}
//---------------------------------------------------------------------------
void __fastcall TFLogin::IdMessageInitializeISO(wchar_t &VHeaderEncoding, UnicodeString &VCharSet)
{
    VCharSet="UTF-8";
}
//---------------------------------------------------------------------------