Indy http: Unbekanntes Protokoll

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

[warg]

Die Idee kommt mir auch langsam, dass die Variable Link einfach komplett leer bleibt, aber heißt es nicht, dass ExtractFromExe('lnk',link); der Wert von lnk als "link" wiedergegeben wird? Im Beispiel war es so, dass man z.B. folgendes hatte:
label4.text = link;

[Matze]

Was macht denn ExtractFromExe? Diese Funktion kenne ich persönlich nicht.
Ich habe jedoch auch nur Turbo Delphi.

[warg]

Man kann damit eine Information in eine Exe reinschreiben. Das ist halt praktisch, wenn jeder Benutzer sich eine eigene Exe mit den eigenen Einstellungen (z.B. eigenen Link) erstellen möchte. Ich habe die EditServer.pas mal angehangen. Diese gehört also nicht zum Standardumfang von einer Delphi IDE.