开发者社区_Code

相关文章推荐

逃跑的企鹅 · java.lang.VerifyError: ...· 11 月前 ·

精明的蘑菇 · 一个纯软件实现异地内网互访的问题_两个网络n ...· 1 年前 ·

精明的手术刀 · 案例中的生活指南丨不起诉就没事了？NO！· 1 年前 ·

不拘小节的米饭 · 华东师范大学“哲学之道”第十六届博士生学术论 ...· 1 年前 ·

狂野的松树 · ①将SVN迁移到GitLab-单分支迁移 ...· 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:
     ****************************************************** **************

推荐文章

逃跑的企鹅 · java.lang.VerifyError: Verifier rejected class com.anythink.core.common.b.n:_mob64ca12f55920的技术博客_51

11 月前

精明的蘑菇 · 一个纯软件实现异地内网互访的问题_两个网络nni对接方案-CSDN博客

1 年前

精明的手术刀 · 案例中的生活指南丨不起诉就没事了？NO！

1 年前

不拘小节的米饭 · 华东师范大学“哲学之道”第十六届博士生学术论坛优秀论文公示

1 年前

狂野的松树 · ①将SVN迁移到GitLab-单分支迁移 - shawWey - 博客园

1 年前

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