Skydrive: Download shared Files ohne Anmeldung

[Geri68]

Hallo,

Gibt es die Möglichkeit, geteilte Files von Skydrive ohne Anmeldung downzuloaden?
Ich möchte gerne diese Funktion in meine Delphi-Applikation einbinden, um mir den Umweg zum Download mit einem Browser zu ersparen.

mfG,
Geri

[Daniel]

Das hast Du denn von der Datei? Eine vollständige URL? Wenn ein Browser ohne Anmeldung an eine Datei kommt, könntest Du in Delphi z.B. mit den Indy-Komponenten (TIdHTTP) weiterkommen.

[sx2008]

Das ist relativ einfach.
Ein kleines Problem bei folgender Funktion ist, dass es während des Downloads keine Rückmeldung gibt;
dieser Weg ist also nur für kleinere Dateien sinnvoll.
Und natürlich funktionert das nur mit direkten Links, die keine weitere Buttonsklicks auf Skydrive erwarten.

Delphi-Quellcode:

uses ..., UrlMon;

function DownLoadInternetFile(const SourceUrl, DestFilename : String): Boolean;
const S_OK = 0;
begin
   Result := URLDownloadToFile(nil,PChar(SourceUrl),PChar(DestFilename),0,nil) = S_OK;
   // für Delphi XE ggf. die Funktion URLDownloadToFileW() verwenden
end; 


procedure Test;
begin
   if DownLoadInternetFile('https://skydrive.com/33452345/44543.doc', 'C:\temp\info.doc') then
      ShowMessage('download ok');