Indy http: Unbekanntes Protokoll

[warg]

Was ist an diesem bitte falsch:

Delphi-Quellcode:

var FS:Tfilestream;
    URL:String;
    link: String;

ExtractFromExe('lnk',link);

URL:= link;
FS:=Tfilestream.Create(GetCurrentDir+'\update.exe',fmCreate);
IdHTTP1.Get(URL,FS);
FS.Free;

Wenn ich die Datei starte kommt dann die Meldung, dass es sich um ein unbekanntes Protokoll handelt und die Datei bleibt 0 Byte groß. Kann es sein, dass ich den Link gar nicht übergebe? Wie kann ich das Ergebnis von link als URL:= nutzen?

[mkinzler]

Was steht in Link drin?

[warg]

Link wird per einer anderen Datei in die Exe geschrieben. Es wird also per Edit-Feld vom eigentlichen Programm in die Exe ein Link, genannt lnk(Link) geschrieben.

[Klaus01]

Hallo,

kannst Du den Inhalt hier mal wiedergeben den die Variable link
hat nach dem er aus der Exe ausgelesen wurde?

Grüße
Klaus

[warg]

Ich habe nun diverses probiert und es scheint ein generelles Problem zu sein:

Delphi-Quellcode:

 InsOrReplaceInFile('lnk',GetCurrentDir+'\update.exe', Edit2.Text);
  ShowMessage('Das Updateprogramm wurde gespeichert.')

Als Edit2.Text lasse ich den Benutzer eine beliebige URL eingeben in Format von:
http://www.domain.tld/datei.exe

[Klaus01]

Vielleicht kannst Du einfach mal die Frage beantworten?

Grüße
Klaus

Delphi-Quellcode:

var FS:Tfilestream;
    URL:String;
    link: String;

ExtractFromExe('lnk',link);

showMessage(link);

URL:= link;
FS:=Tfilestream.Create(GetCurrentDir+'\update.exe',fmCreate);
IdHTTP1.Get(URL,FS);
FS.Free;

[sx2008]

Was vorher passiert und was irgendwo in einem Edit-Feld steht spielt doch erst mal keine Rolle.
Entscheidend ist was in der Variablen "link" bzw. "test" steht.

Delphi-Quellcode:

var FS:Tfilestream;
    URL:String;
    link, test: String;

ExtractFromExe('lnk',link);
test := Copy(link, 1, 40);  // Damit ShowMessage nicht mit tausenden Zeichen überflutet wird
ShowMessageFmt('Link=<%s>', [test]);  // Was wird hier ausgegeben?


URL:= link;
FS:=Tfilestream.Create(GetCurrentDir+'\update.exe',fmCreate);
IdHTTP1.Get(URL,FS);
FS.Free;