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;

[warg]

Ich würde dir die Frage gerne beantworten, aber wenn ich Showmessagebox(URL) probiere scheint die Exe sich gar nicht mehr starten zu lassen. Es erscheint nicht mal mehr eine Form. Mir ist daher unbekannt was ausgegeben wird.

[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;

[warg]

Es wird folgendes ausgegeben:

Zitat:

Link: <>

Der Link wird anscheinend also gar nicht übergeben/angenommen.

[Matze]

Das liegt jedenfalls nicht an den Indy-Komponenten.

Weist du "link" nach der Deklaration "var link: string" überhaupt etwas zu?