ďťż

Ładny brzuch

Witam
Pisze program ktory ma sciagac pliki z netu, a nastepnie zapisac je na dysk.
Program pyta o nazwe pliku jaki ma sciagnac , nazwe pliku mam wpisac z klawiatury - np kredki.txt.
Nastepnym razem np: zeszyty.txt, piora.txt. itd.

Do sciągania pliku uzylem tego kawalka kodu. Ale jak zrobic aby w miejsce kredki.txt po wpisaniu zeszyty.txt sciagnac plik zeszyty.

if URLDownloadToFile(nil, 'http://mojaSzkola.pl/kredki.txt', 'c:\szkola\kredki.txt', 0, nil) <> 0 then
ShowMessage('Błąd podczas ściągania pliku');

Troche to zagmatwałem , ale mam nadzieje że bedziecie wiedziec o co mi chodzi.

Moze jest inna procedura o ktorej nie wiem do sciagania pliku z netu
Prosze o kawałek kodu, poniewaz brak mi pomysłu.
Dzięki


wstaw edit na formatkę,
if URLDownloadToFile(nil, 'http://mojaSzkola.pl/'+Edit1.Text, 'c:\szkola\'+Edit1.Text 0, nil) <> 0 then ShowMessage('Błąd podczas ściągania pliku');

-_-
Użytkownik bl4ckh4t edytował ten post 01 grudzień 2008, 13:45

wstaw edit na formatkę,
if URLDownloadToFile(nil, 'http://mojaSzkola.pl/'+Edit1.Text, 'c:\szkola\'+Edit1.Text 0, nil) <> 0 then ShowMessage('Błąd podczas ściągania pliku');

-_-
Robie chyba cos zle - wywala mi błąd 226:
Incompatible types: 'String' and 'PAnsiChar'

PChar('http://mojaSzkola.pl/'+Edit1.Text)


inny kod z netu

//Przede wszytkim należy do listy modułów uses dodać słowo: URLMon Kod: if URLDownloadToFile(nil, 'http://www.serwer.com/plik.htm', 'c:\plik.htm', 0, nil) <> 0 then ShowMessage('Błąd podczas ściągania pliku');

a i kolega wyżej podaj ci rozwiązanie problemu,
PS. Wstaw sobie komponent SaveDialog i nim wskazuj gdzie ma ci pliki zapisać:

If SaveDialog1.Execute then
begin
//i tu ten twój kod pobierania pliku + SaveDialog1.FileName
end;

  • zanotowane.pl
  • doc.pisz.pl
  • pdf.pisz.pl
  • zsf.htw.pl
    •