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;

{  }

library TestLibrary;

uses
  SysUtils,
  Classes,
  Dialogs,IdHTTP,IdMultipartFormData,superobject, lib, httpsend, ssl_openssl;


 function UPLOAD_VK(TOKEN, USERID, ALBUMID, SERVER, AID, PHOTO_LIST, HASH: WideString ): Boolean;  export;
 var IDHTTP1:TIdHTTP; DATA: TIdMultiPartFormDataStream;   MS:TMemoryStream;  RESPONSE,UPLOAD_URL:WideString;

begin

 MS := TMemoryStream.Create;
 RESPONSE :=  send('GET', 'https://api.vk.com/method/photos.getUploadServer?album_id='+ ALBUMID  +'&'+TOKEN+'&v=5.87' );
 UPLOAD_URL := SO(MS).O['response'].S['upload_url']; // ТУТ ОШИБКА SUPEROBJECT  - There is no overloaded version of 'SO' that can be called with these arguments

 MS.FREE;

end;


exports UPLOAD_VK;

begin
end.

   function UPLOAD_VK(TOKEN, USERID, ALBUMID:WideString ): Boolean;  external 'TestLibrary.dll'
implementation
{$R *.dfm}
procedure TForm1.sSpeedButton1Click(Sender: TObject);
begin
UPLOAD_VK(sEdit1.Text, sEdit2.Text,sEdit3.Text);  // тут токен, юзер айди и ID альбома
end;

function VK_CREATE_ALBUM( TOKEN, USERID, ALBUM_NAME, ALBUM_DESCRIPTION, ALBUM_VIEW,ALBUM_COMMENT:WideString ): WideString;   
var RESPONSE:WideString;
BEGIN
Response := send('GET','https://api.vk.com/method/photos.createAlbum?title='+ALBUM_NAME+'&'
+'description='+ALBUM_DESCRIPTION+'&privacy_view='+ALBUM_VIEW+'&privacy_comment='+
ALBUM_COMMENT+'&'  +UserID +'&' + token+'&v=5.87');
Result := SO(RESPONSE).O['response'].S['id']; // РЕЗУЛЬТАТ НУЖНО ПОЛУЧИТЬ В ПРОГРАММУ