Astonsoft OneDrive Delphi Component 2.2 DXE-D10.2
Astonsoft OneDrive Delphi Component 2.2 DXE-D10.2
OneDrive Delphi component is a non-visual component that allows to work with Microsoft OneDrive. The component supports Delphi XE and newer Delphi versions and works directly with OneDrive using official API.
Features
Get account info including total and remaining storage quota
Get file and folder info including size and last modified timestamp
Create and edit folders
Upload, update and download files
Copy and move files between folders
Rename and delete files
Share files and folders
Unicode support
HTTPS support
Examples
Connecting to OneDrive and showing list of folders and files in TreeView.
procedure Browse(Parent: TTreeNode = nil);
var
FFileInfo: TSDFileInfo;
CurNode: TTreeNode;
ParentID: String;
begin
if Parent = nil then
ParentID := ''
else
ParentID := TSDFileInfo(Parent.Data).ID;
if SkyDrive.FindFirst(FFileInfo, ParentID) = 0 then
repeat
if Parent = nil then
CurNode := TreeView.Items.AddChildObject(TreeView.Items.GetFirstNode,
FFileInfo.Title, FFileInfo)
else
CurNode := TreeView.Items.AddChildObject(Parent, FFileInfo.Title,
FFileInfo);
if FFileInfo.IsDir then
Browse(CurNode);
until SkyDrive.FindNext(FFileInfo) 0;
end;
var
FFileInfo: TSDFileInfo;
CurNode: TTreeNode;
ParentID: String;
begin
if Parent = nil then
ParentID := ''
else
ParentID := TSDFileInfo(Parent.Data).ID;
if SkyDrive.FindFirst(FFileInfo, ParentID) = 0 then
repeat
if Parent = nil then
CurNode := TreeView.Items.AddChildObject(TreeView.Items.GetFirstNode,
FFileInfo.Title, FFileInfo)
else
CurNode := TreeView.Items.AddChildObject(Parent, FFileInfo.Title,
FFileInfo);
if FFileInfo.IsDir then
Browse(CurNode);
until SkyDrive.FindNext(FFileInfo) 0;
end;
Uploading "MyDocument.docx" file.
Stream := TFileStream.Create('MyDocument.docx', fmOpenRead);
try
SkyDrive.Upload(Stream, 'MyDocument.docx', ParentID);
finally
Stream.Free;
end;
try
SkyDrive.Upload(Stream, 'MyDocument.docx', ParentID);
finally
Stream.Free;
end;
Deleting file with FileInfo.
Var
FileInfo: TSDFileInfo;
begin
FileInfo := ...;
SkyDrive.Delete(FileInfo);
FileInfo: TSDFileInfo;
begin
FileInfo := ...;
SkyDrive.Delete(FileInfo);
Only for V.I.P Warning! You are not allowed to view this text.