Datei runter laden mit Dateinamen aus einer Editkomponente??

[mlspider]

Hallo,

ich hoffe ich nerve euch nicht all zu sehr!!!

Ich habe auf meinen Formular eine Edit-Komponente. Dort trage ich nun eine Text-Datei ein. Diese möchte ich nun von einem Server runterladen.

Bisher habe ich es mit folgenden Code versucht:

UrlDownloadtofile(nil,'http://www.xyz.de/'+'Edit1.Text','C:\11\Edit1.Text',0,nil); Leider funktioniert das nicht. Der Kompiler gibt aber merkwürdiger Weise auch keine Fehlermeldung aus.

Was mache ich falsch?????

Danke!

[Steve]

UrlDownloadtofile(nil,'http://www.xyz.de/'+'Edit1.Text','C:\11\Edit1.Text',0,nil); Du übergibst hier den String 'Edit1.Text' und nicht die Eigenschaft Edit1.Text
(Man beachte die Hochkommata

Delphi-Quellcode:

{ Korrigiert: }
UrlDownloadtofile(nil,'http://www.xyz.de/'+Edit1.Text,'C:\11\'+Edit1.Text,0,nil);

edit:

Zitat:

Der Kompiler gibt aber merkwürdiger Weise auch keine Fehlermeldung aus.

Das ist nicht seltsam, sondern absolut korrekt, da Du nu einen inhaltlichen Fehler machst, keinen syntaktischen oder sonstwie für den Compiler entscheidenden! Du übergibst hier ja wie gefordert einen String. Was in dem String steht, is dem Compiler wurscht


Gruß
Stephan

[mlspider]

Hallo Steve,

Habe jetzt alles korrigiert. Nun gibt der Kompiler eine Meldung aus:

Inkompatible Typen: 'String' und 'PAnsiChar'

[Steve]

Gut, dann wird gar kein String, sondern eben PAnsiChar gefordert. Kann man aber umwandeln:
PAnsiChar(Edit1.text) Gruß
Stephan

[Brüggendiek]

Hallo!

Dann schreibe doch einfach:

UrlDownloadtofile(nil,PChar('http://www.xyz.de/'+Edit1.Text),PChar('C:\11\'+Edit1.Text),0,nil); Gruß

Dietmar Brüggendiek

[mlspider]

Nicht sauer sein. Bin noch nicht "Delphifest". Wie binde ich nun Deinen Code ein??? Als Variable???

[Nicolai1234]

Zitat von mlspider:

Nicht sauer sein. Bin noch nicht "Delphifest". Wie binde ich nun Deinen Code ein??? Als Variable???

Einfach deine falsche Zeile durch diese erstzen:
UrlDownloadtofile(nil,PChar('http://www.xyz.de/'+Edit1.Text),PChar('C:\11\'+Edit1.Text),0,nil);

[mlspider]

Ihr seit Super!!!!!!! Jetzt funktioniert es!

Danke!!!

[shmia]

Es lohnt sich, die Funktion URLDownloadToFile Delphi-like zu kapseln.

Delphi-Quellcode:

function DownLoadInternetFile(const URL, localfile : String): Boolean;
begin
   Result := URLDownloadToFile(nil,PChar(URL),PChar(localfile),0,nil) = 0
end;