DropBox Delphi Component Full Source D5-DXE10.10
DropBox Delphi Component Full Source D5-DXE10.1 | 6 Mb
Dropbox Dlephi component is a non-visual Delphi component that allows working with Dropbox accounts using Delphi. The component supports Delphi 7 and newer Delphi versions and works directly with the service using official Dropbox API. Official API use guarantees maximum compatibility and fewest possible modifications to future versions.
Features
Create and edit folders
Upload, update and download files
Move files between folders
Rename and delete files
/delta, /chunked_upload, /shares API calls support
Unicode support
HTTP, SSL, SOCKS4, SOCKS5 proxy servers support
HTTPS support
Examples
Connecting to Dropbox and showing list of folders and files in treeview.
procedure Browse(Parent: TTreeNode = nil);
var
FFileInfo: TDFileInfo;
CurNode: TTreeNode;
Path: String;
begin
if Parent = nil then
Path := '/'
else
Path := TDFileInfo(Parent.Data).Path;
if Dropbox.FindFirst(FFileInfo, Path) = 0 then
repeat
if Parent = nil then
CurNode := TreeView.Items.AddChildObject(TreeView.Items.GetFirstNode,
ExtractDName(FFileInfo.Path), FFileInfo)
else
CurNode := TreeView.Items.AddChildObject(Parent,
ExtractDName(FFileInfo.Path), FFileInfo);
if FFileInfo.IsDir then
Browse(CurNode);
until Dropbox.FindNext(FFileInfo) 0;
end;
var
FFileInfo: TDFileInfo;
CurNode: TTreeNode;
Path: String;
begin
if Parent = nil then
Path := '/'
else
Path := TDFileInfo(Parent.Data).Path;
if Dropbox.FindFirst(FFileInfo, Path) = 0 then
repeat
if Parent = nil then
CurNode := TreeView.Items.AddChildObject(TreeView.Items.GetFirstNode,
ExtractDName(FFileInfo.Path), FFileInfo)
else
CurNode := TreeView.Items.AddChildObject(Parent,
ExtractDName(FFileInfo.Path), FFileInfo);
if FFileInfo.IsDir then
Browse(CurNode);
until Dropbox.FindNext(FFileInfo) 0;
end;
Uploading Document.doc to Path folder.
Stream := TFileStream.Create('Document.doc', fmOpenRead);
try
Dropbox.Upload(Stream, Path + 'Document.doc');
finally
Stream.Free;
end;
try
Dropbox.Upload(Stream, Path + 'Document.doc');
finally
Stream.Free;
end;
[/b]
[b]
Only for V.I.P Warning! You are not allowed to view this text.