Autor |
Beitrag |
Klaus Müller
Beiträge: 58
Erhaltene Danke: 1
W2000,XP,W2k2S,W2k3S,S2k7S
Delphi XP
|
Verfasst: Di 07.01.20 11:15
Hallo Programmierer,
Ich brauche in einen Programm ein Download von einem HiDrive:
Hier der Link: my.hidrive.com/share/89eadvtypb
Dort ist eine Datei "Test.txt"
die würde ich gerne laden.
Habe das früher einmal mit folgender Funktion gemacht:
Delphi-Quelltext 1: 2: 3: 4: 5: 6: 7: 8: 9: 10: 11: 12: 13:
| function DownloadFile(URL: widestring; Path: string): Boolean; lStream:=TFileStream.Create(Ziel, fmCreate or fmShareDenyNone); try Try fMain.IdHTTP.Get(Http, lStream); Result:= True; except ShowMessage(fMain.IdHTTP.ResponseText); Result:= False; End; finally lStream.Free; End; |
Nur leider funktioniert das nicht.
Wer hat hier einen Vorschlag die man das hinbekommt?
Moderiert von Th69: Delphi-Tags hinzugefügt
Zuletzt bearbeitet von Klaus Müller am Mi 08.01.20 09:47, insgesamt 3-mal bearbeitet
|
|
jasocul
Beiträge: 6388
Erhaltene Danke: 146
Windows 7 + Windows 10
Sydney Prof + CE
|
Verfasst: Di 07.01.20 11:26
Klaus Müller hat folgendes geschrieben : | Nur leider funktioniert das nicht. |
Was funktioniert denn nicht? Gibt es eine Fehlermeldung? Bist du schon mit dem Debugger durchgegangen? ...
Und bitte den Source in Delphi-Tags packen.
|
|
Klaus Müller
Beiträge: 58
Erhaltene Danke: 1
W2000,XP,W2k2S,W2k3S,S2k7S
Delphi XP
|
Verfasst: Di 07.01.20 15:39
Hallo Th69, die Fehlermeldung ist: "Error" mehr kommt da nicht, kann aber auch nicht gehn da da das HiDrive ein WebDAV zugriff bereitstellt.
Gruß
Klaus
Moderiert von Th69: Vollzitat entfernt.
|
|
Gausi
Beiträge: 8541
Erhaltene Danke: 475
Windows 7, Windows 10
D7 PE, Delphi XE3 Prof, Delphi 10.3 CE
|
Verfasst: Di 07.01.20 16:17
Ist mit den SSL-Libraries alles in Ordnung? Wenn das "früher" mal geklappt hat und jetzt nicht mehr, liegt es vielleicht daran, dass der Server mittlerweile umgestellt wurde?
Wenn ich mit den neueren THttpClient (von Delphi, nicht Indy) den Link im ersten Posting aufrufe (damit gibt es keine Probleme in Richtung SSL), dann bekomme ich ein HTML-Dokument, in dem im Wesentlichen drinsteht, dass ohne JavaScript im Browser dort nichts läuft.
_________________ We are, we were and will not be.
|
|
Th69
Beiträge: 4791
Erhaltene Danke: 1059
Win10
C#, C++ (VS 2017/19/22)
|
Verfasst: Di 07.01.20 17:14
Hallo,
du benötigst dafür einen direkten Download-Link (URL). Hast du denn bei HiDrive die einzelne Datei freigegeben oder aber den Ordner "Test"?
So genau blicke ich bei dem Code von der Seite auch nicht durch (aber es scheint per JavaScript und Ajax die Datei "Test.txt" geöffnet werden zu können, aber die eingebettete JS-Datei hdshare.js ist - wohl auch aus Performance- und Verschleierungsgründen - sehr unleserlich).
PS: Ich hatte nur die Delphi-Tags hinzugefügt, jasocul hatte dir geantwortet.
|
|
Klaus Müller
Beiträge: 58
Erhaltene Danke: 1
W2000,XP,W2k2S,W2k3S,S2k7S
Delphi XP
|
Verfasst: Di 07.01.20 17:20
Ich habe den Ordner Freigegeben.
Moderiert von Th69: Vollzitat entfernt.
|
|
jasocul
Beiträge: 6388
Erhaltene Danke: 146
Windows 7 + Windows 10
Sydney Prof + CE
|
Verfasst: Mi 08.01.20 08:21
Ich habe das bei mir mal mit einer Datei-Freigabe getestet. Auch dabei wird ein Java-Script erzeugt und entspricht somit keinem direkten Download-Link.
|
|
jaenicke
Beiträge: 19288
Erhaltene Danke: 1743
W11 x64 (Chrome, Edge)
Delphi 11 Pro, Oxygene, C# (VS 2022), JS/HTML, Java (NB), PHP, Lazarus
|
Verfasst: Mi 08.01.20 09:07
Dort wird offenbar OAuth oder eine ähnliche Authentifizierung verwendet. Dadurch braucht man die vorherigen Anfragen, die der Browser durch das Aufrufen der Webseite macht, damit der direkte Downloadlink funktioniert, da der Authentifizierungsheader gesetzt sein muss.
Was sagt denn der Support? Der ist bei Strato doch gut erreichbar.
|
|
Klaus Müller
Beiträge: 58
Erhaltene Danke: 1
W2000,XP,W2k2S,W2k3S,S2k7S
Delphi XP
|
Verfasst: Mi 08.01.20 10:25
jaenicke hat folgendes geschrieben : | Dort wird offenbar OAuth oder eine ähnliche Authentifizierung verwendet. Dadurch braucht man die vorherigen Anfragen, die der Browser durch das Aufrufen der Webseite macht, damit der direkte Downloadlink funktioniert, da der Authentifizierungsheader gesetzt sein muss.
Was sagt denn der Support? Der ist bei Strato doch gut erreichbar. |
Hallo Jaenicke,
Strato gibt kein Delphi Support.
Gruß
Klaus
|
|
jaenicke
Beiträge: 19288
Erhaltene Danke: 1743
W11 x64 (Chrome, Edge)
Delphi 11 Pro, Oxygene, C# (VS 2022), JS/HTML, Java (NB), PHP, Lazarus
|
Verfasst: Mi 08.01.20 17:25
Klaus Müller hat folgendes geschrieben : |
Strato gibt kein Delphi Support. |
Das hat ja mit Delphi nichts zu tun. Ein Beispiel aus einer anderen Sprache nach Delphi zu übersetzen ist ja das geringste Problem.
Da Hidrive ja offenbar WebDav unterstützt und es entsprechende Komponenten günstig für Delphi gibt, wäre das z.B. vielleicht eine Möglichkeit.
Da stehen ja in der Doku noch andere Protokolle wie SMB... irgendetwas davon wird ja gehen.
|
|
Klaus Müller
Beiträge: 58
Erhaltene Danke: 1
W2000,XP,W2k2S,W2k3S,S2k7S
Delphi XP
|
Verfasst: Do 09.01.20 12:02
Hallo Sebastian,
Ich brauch eine Funktion in Delphi (Download URL) die in meinem Programm verwendet wird.
Strato(HiDrive), Microsoft (OneDrive), Google (Google Drive) und weitere bitten alle Programme an diese Synchronisieren ein Verzeichnis vom Lokalen Rechner mit dem Cloud Drive.
Ich will aber über die Freigabe von einem Ordner auf die darin befindlichen Daten zugreifen, sieh an Anfang und dort eine Datei herunterladen.
Gruß
Klaus
|
|
Sinspin
Beiträge: 1334
Erhaltene Danke: 118
Win 10
RIO, CE, Lazarus
|
Verfasst: Fr 10.01.20 11:15
Hallo Klaus,
ich schließe mich jaenicke an. Wende dich einfach an Strato und frage nach einem Beispiel für den Zugriff via WebDav mit irgend einer Programmiersprache oder irgend einem Programm. Wenn du den Link oder die Anweisungen für WebDav hast, bist du vermutlich schlauer als jetzt und wir kommen hier weiter
_________________ Wir zerstören die Natur und Wälder der Erde. Wir töten wilde Tiere für Trophäen. Wir produzieren Lebewesen als Massenware um sie nach wenigen Monaten zu töten. Warum sollte unser aller Mutter, die Natur, nicht die gleichen Rechte haben?
|
|
Klaus Müller
Beiträge: 58
Erhaltene Danke: 1
W2000,XP,W2k2S,W2k3S,S2k7S
Delphi XP
|
Verfasst: Mo 13.01.20 17:29
Sinspin hat folgendes geschrieben : | Hallo Klaus,
ich schließe mich jaenicke an. Wende dich einfach an Strato und frage nach einem Beispiel für den Zugriff via WebDav mit irgend einer Programmiersprache oder irgend einem Programm. Wenn du den Link oder die Anweisungen für WebDav hast, bist du vermutlich schlauer als jetzt und wir kommen hier weiter |
Hallo Ihr,
Also die Anfrage an Strato läuft, dauert ein paar Tage bis die antworten, mit Delphi kenne sich da nur ein paar aus.
Gruß
Klaus Müller
|
|
jaenicke
Beiträge: 19288
Erhaltene Danke: 1743
W11 x64 (Chrome, Edge)
Delphi 11 Pro, Oxygene, C# (VS 2022), JS/HTML, Java (NB), PHP, Lazarus
|
Verfasst: Di 14.01.20 05:21
Klaus Müller hat folgendes geschrieben : | mit Delphi kenne sich da nur ein paar aus. |
Darum stelle ich solche Fragen immer unabhängig von der Programmiersprache. Aber wenn es eine Antwort direkt für Delphi gibt, ist es natürlich am einfachsten.
|
|