Delphi Dropbox API v2ファイルのアップロード

Question

私はDropbox API V2を使用してWindowsデスクトップソフトウェアをDelphi 7で開発しています。 私のコードは機能しません。私に正しい正誤表のDelphiコードを提供してください！ ありがとう！

マイコードスニペット：

procedure TDropbox.Upload(SourceFileName: String; DropBoxFileName: String; FTimeout: Integer = 5000); 
const 
    FDropBoxAppAccessToken = 'xxxxxxxxxxxxxxxxxxxx';  
var  
    FHTTPS: TIdHTTP;  
    FStream: TFileStream;  
    FDropBoxResponseCode: Integer;  
    FHTTPResponse: String;  
begin  
    FHTTPRequestURL := 'https://api-content.dropbox.com/2/files/upload';  
    FStream := TFileStream.Create(SourceFileName, fmOpenRead);  
    FStream.Position := 0;  
    FHTTPS := TIdHTTP.Create(nil);  
    FHTTPS.ConnectTimeout := FTimeout;  
    FDropBoxResponseCode := 0;  
    FHTTPResponse := '';  
    params := TStringList.Create;  
    arg := 'Dropbox-API-Arg:{"path:"' + FDropBoxBaseAppPath + DropBoxFileName + '}';  
    try  
    FHTTPS.Request.CustomHeaders.Add('Authorization:Bearer ' + FDropBoxAppAccessToken);  
    FHTTPS.Request.CustomHeaders.AddStrings := '(Dropbox-API-Arg:{"path:"' + FDropBoxBaseAppPath + DropBoxFileName + '}');  
    FHTTPS.Request.CustomHeaders.Values[arg];  
    FHTTPS.Request.ContentType := 'application/octet-stream';  
    FHTTPS.IOHandler := TIdSSLIOHandlerSocketOpenSSL.Create(FHTTPS);  
    FHTTPResponse := FHTTPS.Post(FHTTPRequestURL, FStream);  
    except on E: Exception do  
    begin  
    end;  
    end; 

Dropboxのサーバは常に言う：

400不正な要求を、ソースファイルが存在しています。

助けてください！

Answer 1

間違ったURLにリクエストを送信していて、Request.CustomHeadersプロパティを誤って使用していて、JSONデータが不正な形式になっています。

ではなく、より多くのこのようsonething試してみてください：

procedure TDropbox.Upload(const SourceFileName: String; const DropBoxFileName: String; Timeout: Integer = 5000); 
const 
    FDropBoxAppAccessToken = 'xxxxxxxxxxxxxxxxxxxx'; 
    FHTTPRequestURL := 'https://content.dropboxapi.com/2/files/upload'; 
var 
    FHTTPS: TIdHTTP; 
    FStream: TFileStream; 
    FDropBoxResponseCode: Integer; 
    FHTTPResponse: String; 
begin 
    FDropBoxResponseCode := 0; 
    try 
    FStream := TFileStream.Create(SourceFileName, fmOpenRead or fmShareDenyWrite); 
    try 
     FHTTPS := TIdHTTP.Create(nil); 
     try 
     FHTTPS.ConnectTimeout := Timeout; 
     FHTTPS.Request.CustomHeaders.Values['Authorization'] := 'Bearer ' + FDropBoxAppAccessToken; 
     FHTTPS.Request.CustomHeaders.Values['Dropbox-API-Arg'] := '{"path": "' + FDropBoxBaseAppPath + DropBoxFileName + '"}'; 
     FHTTPS.Request.ContentType := 'application/octet-stream'; 
     FHTTPS.IOHandler := TIdSSLIOHandlerSocketOpenSSL.Create(FHTTPS); 
     FHTTPResponse := FHTTPS.Post(FHTTPRequestURL, FStream); 
     finally 
     FHTTPS.Free; 
     end; 
    finally 
     FStream.Free; 
    end; 
    except 
    on E: Exception do begin 
    end; 
    end; 
end;