var i : integer; cloudItem : TCloudItem; CloudItemN : TcloudItem; isFolderFound : boolean; begin screen.Cursor := crHourGlass; isFolderFound := false; //---------------------------------- Plausibilit?t - App-Keys m?ssen hinterlegt sein if (txtAppKey.Text = '') or (txtAppSecret.Text = '') then begin showMessage('Credential-Error: App-Keys for DropBox are missing!'); PageControl.ActivePageIndex := 2; exit; end;
//---------------------------------- Kunden-Verzeichnis f?r Upload suchen cloudItem := TCloudItem.Create(nil); DropBox.GetDriveInfo; // Gesamte Verzeichnis-Struktur der Dropbox einlesen // Sequentielles abarbeiten der Verzeichnisstruktur-Items for i := 0 to DropBox.Drive.Count -1 do begin
if (DropBox.Drive.Items.ItemType = ciFolder) and (DropBox.Drive.Items.FileName = 'eXtra4_RHMueller') then begin cloudItem.Assign(DropBox.Drive.Items); isFolderFound := true; end; end;
if isFolderFound then CloudItemN := DropBox.upload(CloudItem,'C:\Temp\Test.txt') else showMessage('Folder not found');
But at the end I get error message "Integer overflow". After hours of research it's a little disappointing to have no reference for the component and the manual provides a totally other approach.