library BKF;

{  }

uses
  SysUtils,
  Classes, superobject, IdMultipartFormData, IdHTTP, Dialogs;

{$R *.res}


 procedure UPLOAD_VK(FilePath,VK_SERVER,VK_PHOTOS_LIST,VK_AID,VK_HASH:string; TS: TStringList;) stdcall; external 'BKF.dll'
  BEGIN
       if ID_ALBUM <> '' then
   begin
     {----------------------------------------ЗАГРУЗКА НА СЕРВЕР ВК---------------------------------}

     {------------------------------------ПОЛУЧАЕМ UPLOAD_URL..--------------------------------------------------------}
      Form1.SMEMO1.Clear;
        Response := send('GET','https://api.vk.com/method/photos.getUploadServer?album_id='+ ID_ALBUM  +'&'+token+'&v=5.87');
       Form1.sMemo1.Text := MyUtf8ToAnsi(Response);
       UPLOAD_URL :=  SO(Form1.sMemo1.Text).O['response'].S['upload_url'];
     {-----------------------------------------------------------------------------------------------------------------}


      {------------------------------------Multipartformdata---------------------------------------------}
      FormData := TIdMultiPartFormDataStream.Create;

      FormData.AddFile('file1',  Unit1.DEF_PATH_VK  , 'image/jpeg' );
      RESPONSE:= IDHTTP1.Post(UPLOAD_URL, FORMDATA);
      Form1.SMEMO1.Text := RESPONSE;
      FormData.Free;

       VK_SERVER := SO(Form1.smemo1.text).S['server'];
       VK_PHOTOS_LIST := SO(Form1.smemo1.text).S['photos_list'];
       VK_AID := SO(Form1.smemo1.text).S['aid'];
       VK_HASH := SO(Form1.smemo1.text).S['hash'];
     {-----------------------------------------------------------------------------------------------------------------}


        Form1.smemo1.Clear;
          Response := send('GET','https://api.vk.com/method/photos.save?album_id='+ ID_ALBUM +'&server=' +
          VK_SERVER + '&photos_list=' + VK_PHOTOS_LIST +'&hash=' + VK_HASH +'&' + token+'&v=5.87');
       Form1.sMemo1.Text := MyUtf8ToAnsi(Response);

         if FileExists(DEF_PATH_VK) then
      BEGIN
        DeleteFile(DEF_PATH_VK);
      END;

   end else
   BEGIN
     MessageBox(handle, PChar('НЕ ВЫБРАН АЛЬБОМ ДЛЯ ЗАГРУЗКИ В VK!!!'), PChar('СТРАШНЫЙ ERROR (:'), MB_OK + MB_ICONWARNING);
   END;

  END;

begin
end.

library BKF;

{  }