Skydrive: Download shared Files ohne Anmeldung

[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');