SSL for dummies

[NicoleWagner]

Danke für Deine Antwort.
Das sah so vielverprechend aus!
Allerdings speist mich mein Programm mit der obigen Fehlermeldung ab.
"Fehler" , ach wirklich. :shock:

---------------------------
meinProgramm
---------------------------
Fehler beim Download von URL: https://..............pdf.
---------------------------
OK
---------------------------



Gibt es Parameter, wie cih herausfinde, WELCHEN Fehler?

[KodeZwerg]

Zitat:

Zitat von Achim Kalwa (Beitrag 1499170)

Zitat:

Zitat von NicoleWagner (Beitrag 1499164)

Gibt es keinen anderen Weg, die Datei zu holen?
Es ist einfach ein Link, das ich im Browser anwählen kann und "speichern unter..".

Wenn der Download mit Windows Boardmitteln (hier: Internet Explorer) funktioniert, dann sollte es auch mit folgendem Stück Delphi-Code funktionieren:

Code:

uses 
  ..,Vcl.ExtActns,...;
var
  Loader : TDownLoadURL;
begin
  Loader := TDownLoadURL.Create(Self);
  try
    Loader.URL := 'http://hier.deine.quelle.eintragen.pdf';
    Loader.FileName := 'D:\temp\zieldatei.pdf';
    Loader.Execute;
  finally
    Loader.Free;
  end;
end;

Sollte es nicht so genutzt werden?

Delphi-Quellcode:

procedure DownStream(const AURL: String; const ALocalFile: String);
var
  URLStream:  TDownloadUrl;
begin
  URLStream := TDownLoadURL.Create(Self);
  try
    URLStream.URL := AURL;
    URLStream.FileName := ALocalFile;
    URLStream.ExecuteTarget(Self); // <- das meine ich im speziellen
  finally
    URLStream.Free;
  end;
end;

Um Fehler auswerten zu können musst Du die WinAPI "URLDownloadToFile" selbst aufrufen, der Delphi wrapper schluckt die Return Codes.

[mytbo]

Wenn es auch mORMot sein kein, dann mit HttpGet() oder WGet().

Delphi-Quellcode:

uses
  mormot.core.os,
  mormot.net.client;
  
var  
  content: RawByteString;
begin
  content := HttpGet('https://.../meine.dat');
  FileFromString(content, 'meine.dat');

Bis bald...
Thomas

[KodeZwerg]

Hier ein mini Beispiel ohne Wrapper:

Delphi-Quellcode:

function DownLoadInternetFile(Source, Dest : String): Integer;
begin
  try
    Result := URLDownloadToFile(nil, PChar(Source), PChar(Dest), 0, nil);
  except
    Result := -1;
  end;
end;

Mögliche Return Codes:
S_OK
The download started successfully.

E_OUTOFMEMORY
The buffer length is invalid, or there is insufficient memory to complete the operation.

INET_E_DOWNLOAD_FAILURE
The specified resource or callback interface was invalid.

-1
Exception



Anleitung zur API: URLDownloadToFile

[KodeZwerg]

Hallo nochmal, ich habe zur API mal etwas weiter gelesen, wenn Du Dir einen Callback einrichtest könntest Du auch erweiterte Übertragungs- / Protokoll- Fehler abfragen oder momentane Position des Downloads für eine ProgressBar o.ä..

[NicoleWagner]

von mir aus darf es alles sein.
Doch
mormot.core.os,
mormot.net.client
findet mein Delphi XE 3 nicht.

Das mit dem Fehlermeldung-Ausgeben habe ich zwar gelesen, doch kann es nicht umsetzen.

Es geht wirklich nur darum, jenen KLick, den ich im Explorer habe, durch Delphi ausführen zu lassen.
Der Explorer ist uralt, sehe gerade nach: aus 2012 (die Versionsanzeige zickt).
Er ist nur in meiner Delphi VM.
Doch der kann die Datei anzeigen.

[mmw]

Hallo,
die Dateien sind hier

https://github.com/synopse/mORMot2

Gruß