Datei aus dem Internet herunterladen - geht nicht mehr!

[NicoleWagner]

Ja, ich komme mit dem ie auf andere Websites.
Ja, ich komme mit anderen Browsern auf die Datei.

"GetLastError": Wann und von welcher Plattform aus rufe ich das auf?
In Delphi kann ich nur lesen, dass das result von download "false" ist.
Und im Explorer nur, dass keine Verbindung bestünde, wenn ich diese Datei als Adresse direkt eingebe.

[4dk2]

Zitat von NicoleWagner:

Ja, ich komme mit dem ie auf andere Websites.
Ja, ich komme mit anderen Browsern auf die Datei.

"GetLastError": Wann und von welcher Plattform aus rufe ich das auf?
In Delphi kann ich nur lesen, dass das result von download "false" ist.
Und im Explorer nur, dass keine Verbindung bestünde, wenn ich diese Datei als Adresse direkt eingebe.

GetLastError, gibt dir die letzte Betriebsystem Fehlermeldung zurück.
z.b. ShowMessage(SysErrorMessage(GetLastError)) ist nicht zufällig nen W10 Rechner, und die Datei wird auf nen Netzlaufwerk geladen?

[CCRDude]

Aktuell häufiger anzutreffen: Server werden sicherer, nehme nicht mehr jede SSL/TLS-Version.

Schritt 1: Webseite auf kompatible Versionen testen:
https://www.ssllabs.com/ssltest/

Schritt 2: Prüfen ob Deine IE-Version noch kompatibel ist:
https://en.wikipedia.org/wiki/Transp...y#Web_browsers

Da findet sich z.B.:
* Dass alle IE-Versionen kein TLS 1.3 können (noch normal)
* Dass IE-Versionen bis IE 10 kein TLS 1.1 oder TLS 1.2 können (bzw. siehe hier

Eine Umstellung auf mindestens TLS 1.1 ist für moderne Webserver sinnvoll und verbreitet (Delphi-Praxis unterstützt auch noch TLS 1.0, wird dafür aber als schwächer bewertet), und nicht jeder Rechner hat definitiv die neueste IE-Version.

Aus diesem Grund bevorzuge ich auch Synapse (oder Indy), da kann ich das Niveau dank mitliefern der passenden OpenSSL-Versionen ohne so eine externe Abhängigkeit anpassen.

[NicoleWagner]

ShowMessage(SysErrorMessage(GetLastError)) lautet: "Der Vorgang wurde erfolgreich beendet."
Den IE habe ich aktualisiert, von Version 9 auf 11.
Doch leider ist mein Problem unverändert.

[DieDolly]

Hast du schon die Unit von mir mit den Indies getestet? Und dann auch noch den Test von einem anderen PC und von außerhalb des Netzwerk ausführen.

[HolgerX]

Hmm..


War da nicht mal was mit der IE-Version je Applikation (Registry-Eintrag)
und dem Blocken von Seitenzugriffen?

Oder galt das nur für den TWebBrowser (mit IE)?

[hoika]

Hallo,
Holger, was du meinst, ist wohl FEATURE_BROWSER_EMULATION.
Das war für den TWebBrowser.

[Rolf Frei]

Zitat von NicoleWagner:

ShowMessage(SysErrorMessage(GetLastError)) lautet: "Der Vorgang wurde erfolgreich beendet."
Den IE habe ich aktualisiert, von Version 9 auf 11.
Doch leider ist mein Problem unverändert.

GetLatestError funktioniert hier nicht. UrlDownloadToFile ist eine COM/OLE-Funktion und die liefert ein HResult zurück. Passe deine Downloadfunktion daher mal wie folgendes an:

Code:

function DownloadFile(SourceFile, DestFile: string): Boolean;
begin
  OleCheck(UrlDownloadToFile(nil, PChar(SourceFile), PChar(DestFile), 0, nil));
  Result := True;
end;

Das liefert dir dann im Erfolgsfall True zurück. Im Fehlerfall wird eine Exeption ausgelöst in der du den Fehlercode siehst. Nach dem müsste man dann weiter schauen, was der bedeutet.

[NicoleWagner]

Die Zeile mit dem Ole-Befehl probierte ich jetzt.
Ich kenne mich mit OLE gar nicht aus. Habe nur copy&paste in meinen Code getan.

Wenn die Zeile erreicht wird, lese ich:
..EOleSYsError .... 800C005

ich hoffe, irgend jemand kann damit etwas anfangen.


PS: Ich habe diverse Probleme mit diesem ole-Ding an sich. Etwa musste ich den Compiler von 64 auf 32 bit umstellen, damit die IDE ihn bzw. seine Unit nahm. Ist der schon älter?

[DieDolly]

Hast du meine Unit schon ausprobiert?