view original | go back | toggle font

14691-dropbox-delphi-component-full-source-d5-dxe10

DropBox Delphi Component Full Source D5-DXE10

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:

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;

Uploading Document.doc to Path folder.

Stream := TFileStream.Create('Document.doc', fmOpenRead);
try
Dropbox.Upload(Stream, Path + 'Document.doc');
finally
Stream.Free;
end;

DropBox Delphi Component Full Source D5-DXE10