Business
     
 

Mida Dropbox Library
Easy access to Dropbox API core V2

 


Logo

Dropbox Library is a new Dephi component that allows working with Dropbox API V2 using Delphi in easy way

Official API use guarantees maximum compatibility, the Core API is based on HTTP and OAuth and provides low-level calls to access and manipulate a user's Dropbox account.

The component supports the newer Delphi versions and works directly with the service using official Dropbox API, it allows to manage account, files and folder for Dropbox

  

Main features:

 

- Multi platform support Windows, macOS, iOS, Android and Linux

- VCL and FMX compatible

- It is a new product and use last Embarcadero technologies for lasts IDE

- Required Seattle, Berlin, Tokyo

- Full example and extra info for Linux

- Optimized for DataSnap and thread code

- Full Source

- No external library required

- Very easy to use and modify

- It is a visual component for Delphi/C++

- New 2017 project for last Dropbox API v2

- Direct Dropbox Api Server call, no extra code for maximum compatibility

- Support Crypt LockBox 3 (free)

- OAuth 2.0

- Unicode

- HTTPS,SSL

 

Logo

 

Dropbox functions:

 

- Account ( with or without Login form )
- Space Info
- Copy
- Move
- Rename
- Share
- Create Folder
- List File and Folder
- Download with progress bar
- Upload with progress bar
and more...

 

License:

Buy Single developer license 79 Euro Buy Now !
Buy Site license 199 Euro Buy Now !
 


Any Examples:


Simple Login:

 

                            procedure TForm1.btnDropBoxTestClick(Sender: TObject);
                            var
                            sTokenFunc: string;
                            MyDropboxLib:TDropbox_Lib;
                            begin
                            MyDropboxLib := TDropbox_Lib.Create(Nil);
                            // Force a token ( no login page )
                            sTokenFunc := MyDropboxLib.Dropbox_Init(K_DROPBOX_APP_TOKEN, '', K_DROPBOX_APP_ID, '', '','', False, False);
                            if MyDropboxLib.Dropbox_Info_Account_Available then
                               begin
                               if MyDropboxLib.db_Account.FindField('error_summary') = Nil then
                                  begin
                                  Memo1.Lines.Add('Login: '+MyDropboxLib.Active_User_Name__display_name);
                                  end;
                               end;
                            MyDropboxLib.Free;
                            end;

 

 

 

 

Form Login and Upload file

 

                        procedure TForm1.btnDropBoxTestClick(Sender: TObject);
                        var
                        sTokenFunc: string;
                        sFileUpload:String;
                        myTempStream: TMemoryStream;
                        MyDropboxLib:TDropbox_Lib;
                        begin
                        // LOGIN
                        yTempStream := TMemoryStream.Create;
                        MyDropboxLib := TDropbox_Lib.Create(Nil);
                        MyDropboxLib.OnShowFormLogin      := Dropbox_Lib_VisualShowFormLogin;
                        
                        // Make visual login and get a new Token
                        sTokenFunc := MyDropboxLib.Dropbox_Init('', '', K_DROPBOX_APP_TOKEN,'', '','', True, False);
                        if MyDropboxLib.Dropbox_Info_Account_Available then
                           begin
                           if MyDropboxLib.db_Account.FindField('error_summary') = Nil then
                              begin
                              Memo1.Lines.Add('Login: '+MyDropboxLib.Active_User_Name__display_name);
                              end;
                           end;
                        
                        //UPLOAD
                        sFileUpload := IncludeTrailingBackslash(ExtractFilePath(Application.ExeName)) + 'image.png';
                        myTempStream.LoadFromFile(sFileUpload);
                        myTempStream.Position := 0;
                        sCloud_Upload := MyDropboxLib.Dropbox_UploadFile_Stream(sTokenFunc, sAttachFileName_All,myTempStream,Nil,Nil,Nil);
                        if sCloud_Upload = 'OK' then
                           begin
                           Memo1.Lines.Add('DropBox_Test - DropBox Upload - OK - '+sFileUpload);
                           end;
                        myTempStream.Free;
                        MyDropboxLib.Free;
                        end;
The library is continually expanding, for any information contact info@midaconverter.com

 

 

Logo
www.dropbox.com

 

 

 

 

 

 
     

© Copyright Mida Converters All Rights Reserved.