mirrors/doublecmd
2
0
Fork 0
mirror of https://github.com/doublecmd/doublecmd.git synced 2026-06-21 09:58:13 +00:00
Code Issues Projects Releases Packages Wiki Activity

FIX: MacCloud/DropBox: fix some issues in DropBoxClient

Browse source
This commit is contained in:
rich2014 2025-04-01 20:44:40 +08:00
commit 34a54ef00f
1 changed files with 3 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

6
plugins/wfx/MacCloud/src/dropbox/udropboxclient.pas
View file

@ -720,7 +720,7 @@ var
var
str: String;
begin
str:= TJsonUtil.getString( json, key );
str:= TJsonUtil.getString( jsonItem, key );
if str = EmptyStr then
Result:= 0
else
@ -832,14 +832,14 @@ var
dropBoxResult: TDropBoxResult;
begin
try
argJsonString:= TJsonUtil.dumps( ['path', _serverPath], True );
argJsonString:= TJsonUtil.dumps( ['path',_serverPath, 'mode','overwrite'], True );
http:= TMiniHttpClient.Create;
_authSession.setAuthHeader( http );
http.addHeader( DropBoxConst.HEADER.ARG, argJsonString );
dropBoxResult:= TDropBoxResult.Create;
dropBoxResult.httpResult:= http.upload( DropBoxConst.URI.UPLOAD_SMALL, _localPath, _callback );
dropBoxResult.resultMessage:= dropBoxResult.httpResult.getHeader( DropBoxConst.HEADER.RESULT );
dropBoxResult.resultMessage:= dropBoxResult.httpResult.body;
DropBoxClientProcessResult( dropBoxResult );
finally