AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Zurück Delphi-PRAXiS Programmierung allgemein Netzwerke Datei aus dem Internet herunterladen - geht nicht mehr!
Thema durchsuchen
Ansicht
Themen-Optionen

Datei aus dem Internet herunterladen - geht nicht mehr!

Ein Thema von NicoleWagner · begonnen am 8. Dez 2018 · letzter Beitrag vom 5. Jan 2019
Antwort Antwort
Delphi.Narium

Registriert seit: 27. Nov 2017
2.600 Beiträge
 
Delphi 7 Professional
 
#1

AW: Datei aus dem Internet herunterladen - geht nicht mehr!

  Alt 4. Jan 2019, 11:47
HTTP/1.1 500 Internal Server Error heißt eigentlich, dass die Gegenseite schon irgendwie antwortet, aber halt dabei innerhalb der Gegenseite ein Fehler auftritt.

Vermutlich kann dieser Fehler erst gemeldet werden, wenn die Verbindung bereits erfolgreich hergestellt wurde.

Hast Du auf der VM 'nen Browser?
Dann kannst Du die PDF (höchstwahrscheinlich) mit dem anzeigen lassen. Einfach mal den Browser öffnen und die PDF aus dem Explorer in den Browser ziehen oder halt über das Menü Datei / Datei öffnen auswählen.

Geht das nicht, dann die Datei mal mit Notepad öffnen. Solange Du sie nicht mit Notepad speicherst, sollte das gehen. PDF-Dateien beginnen in der Regel mit der Zeichenfolge %PDF-1.4.
Wenn in der PDF dort was anderes steht, teile uns das bitte mit (sofern es Infos sind, die Du veröffentlichen kannst / darfst).

Die Funktion THTTPFileDownload.DownloadFile bitte ändern:
Delphi-Quellcode:
function THTTPFileDownload.DownloadFile(const aFileUrl: string; const aDestinationFile: string): Boolean;
var
 LDestStream: TFileStream;
 aPath: string;
 s : String;
begin
 try
  ResetVars;
  aPath := ExtractFilePath(aDestinationFile);

  if aPath <> 'then
   ForceDirectories(aPath);

  LDestStream := TFileStream.Create(aDestinationFile, fmCreate);
  try
   try
     Get(aFileUrl, LDestStream);
     Result := True;
   except
    on e : Exception do begin
      s := 'ResponseCode: ' + IntToStr(ResponseCode) + #13
         + 'ResponseText: ' + ResponseText + #13
         + 'Server: ' + Response.Server + #13
         + 'Location: ' + Response.Location + #13
         + 'AcceptPatch: ' + Response.AcceptPatch + #13
         + 'AcceptRanges: ' + Response.AcceptRanges + #13
         + 'CharSet: ' + Response.CharSet + #13
         + 'CacheControl: ' + Response.CacheControl + #13
         + 'Date: ' + DateTimeToStr(Response.Date) + #13
         + 'Expires: ' + DateTimeToStr(Response.Expires) + #13
         + 'LastModified: ' + DateTimeToStr(Response.LastModified) + #13
         + 'TransferEncoding: ' + Response.TransferEncoding + #13
      ;
      case Response.ResponseVersion of
        pv1_0 : s := s + 'ResponseVersion: 1.0' + #13;
        pv1_1 : s := s + 'ResponseVersion: 1.1' + #13;
      else
        s := s + 'ResponseVersion: unbekannt' + #13;
      end;
      s := s + #13#13 + e.Message;
      MessageDlg(s,mtError,[mbOk],0);
   end;
  finally
   FreeAndNil(LDestStream);
  end;
 except
  on e : Exception do begin
    Result := False;
    MessageDLG(e.Message,mtError,[mbOk],0);
  end;
 end;
end;
Bitte informiere uns über die daraus resultierende Fehlermeldung. (Sofern da Angaben drinne sind, die Du nicht zeigen darfst, anonymisiere sie bitte so, dass der ursprüngliche Sinn der Aussage erhalten bleibt.)

Da das Ganze hier nur "hingedaddelt" ist, kann ich Schreib-/Syntaxfehler nicht ausschließen.
  Mit Zitat antworten Zitat
NicoleWagner

Registriert seit: 6. Jul 2010
167 Beiträge
 
Delphi XE3 Professional
 
#2

AW: Datei aus dem Internet herunterladen - geht nicht mehr!

  Alt 5. Jan 2019, 16:14
jaaaaaaaaaaaaaaaaaaaaaaaaaa !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

Es geht.

Danke Leute, danke, dass Ihr mir 10 Seiten lang zur Seite gestanden habt.

Michael II schrieb den Satz, der der letzte Schritt war:
Ich muss die IP-Nummer wieder zurückstellen auf den Namen der Domain.

Doch es waren wohl alle Faktoren, ganz wesentlich das Erzwingen vom Protokolls TSL 1.2
und natürlich erst mal herauszufinden, dass der Fehler dort liegt. Und das Auslesen, welchse Protokoll ich konkret brauche.

Ich habe sehr viel gelernt. Danke auch allen für die vielen Codeschnipsel und Links.
Jetzt mache ich mich mal dran, die Testumgebung in mein Programm zu implementieren.


Nicole
  Mit Zitat antworten Zitat
Antwort Antwort


Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 11:36 Uhr.
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz