开发者社区_Code

相关文章推荐

坐怀不乱的烈马 · Fragment.IsVisible ...· 8 月前 ·

刚失恋的烤面包 · 重复键值违反唯一约束“pg_type_typ ...· 1 年前 ·

空虚的领带 · 大型json文件格式化【超简单】_json ...· 1 年前 ·

干练的围巾 · iOS 集成第三方 SDK 之后在多个 ...· 1 年前 ·

暴躁的奔马 · windows服务器ssl证书安装及配置ht ...· 1 年前 ·

procedure TForm2.btn1Click(Sender: TObject);
const
  API_URL = 'https://content.dropboxapi.com/2/files/upload';
  cFile   = 'D:\testfile.txt';
  wAccessToken : string;
  Source: TFileStream;
  IdHTTP: TIdHTTP;
  Res : string;
  Ssl: TIdSSLIOHandlerSocketOpenSSL;
begin
  wAccessToken := 'muj_token';
  IdHTTP := TIdHTTP.Create(nil);
    ShowMessage('Indy version: ' + IdHTTP.Version);
    RESULT MESSAGE : INDY 10.5.9.0
    IdHTTP.HandleRedirects := True;
    ssl := TIdSSLIOHandlerSocketOpenSSL.Create();
    ssl.SSLOptions.Method := sslvTLSv1_2;
    ssl.SSLOptions.Mode := sslmUnassigned;
    ssl.SSLOptions.VerifyMode := [];
    ssl.SSLOptions.VerifyDepth := 0;
    ssl.host := '';
    Source := TFileStream.Create(cFile, fmOpenRead);
    IdHTTP.IOHandler := ssl;
    IdHTTP.Request.CustomHeaders.Values['Authorization'] := 'Bearer ' + wAccessToken;
    IdHTTP.Request.CustomHeaders.Values['Dropbox-API-Arg'] :=
           '{ "autorename": false,"mode": "add","mute": false,"path": "/test.txt","strict_conflict": false}';
    IdHTTP.Request.CustomHeaders.Values['Content-Type']  := 'application/octet-stream';
    Memo1.Lines.Add(IdHTTP.Request.CustomHeaders.Text);
    Res := IdHTTP.Post(API_URL, Source);
  finally
      IdHTTP.Free;
  end;

DROPBOX API DOCUMENTATION
     https://www.dropbox.com/developers/documentation/http/documentation#files-upload
     Get access token for:
     ****************************************************** **************

推荐文章

坐怀不乱的烈马 · Fragment.IsVisible Property (Android.App) | Microsoft Learn

8 月前

刚失恋的烤面包 · 重复键值违反唯一约束“pg_type_typname_nsp_index”

1 年前

空虚的领带 · 大型json文件格式化【超简单】_json 如何可以格式化20m的文件-CSDN博客

1 年前

干练的围巾 · iOS 集成第三方 SDK 之后在多个 UIWindow 之间切换时碰到的问题 - 掘金

1 年前

暴躁的奔马 · windows服务器ssl证书安装及配置https-腾讯云开发者社区-腾讯云

1 年前

Delphi通过Indy TidHTTP (htttps)连接TidHTTP错误 内容来源于 Stack Overflow，遵循 CC BY-SA 4.0 许可协议进行翻译与使用。IT领域专用引擎提供翻译支持 腾讯云小微IT领域专用引擎提供翻译支持