URL

Pewnie nie raz chciałbyś ściągnąć swoim programem coś z sieci. Poniżej podany masz najprostszy sposób jak można to zrobić.

Windows posiada funkcję, która jest już zdeklarowana w pliku UrlMon.dll

Twoje zadanie ogranicza się tylko do zdeklarowania 'UrlMon' w sekcji uses na górze strony gdzie wpisujesz kod.

Poniżej przedstawiam jak to wygląda w praktyce:

function DownloadFile(Source, Dest: String): Boolean;
 begin
  try
    Result := UrlDownloadToFile(nil, PChar(source), PChar(Dest), 0, nil) = 0;
  except
    Result := False;
 end;
 end;

A teraz kilka wyjaśnień... Na początku tworzymy nową funkcję o nazwie bezpośrednio związanej z naszym problemem :), czyli 'DownloadFile'. Nazwa 'Suorce' to w naszym wypadku plik źródłowy, natomiast 'Dest' to plik docelowy. Wygląda to w ten sposób, że w 'Suorce' deklarujemy jaki plik chcemy skopiować, a w 'Dest', gdzie mamy go zapisać na dysku... Najlepiej to zrozumiecie na poniższym przykładzie:

procedure TForm1.Button1Click(Sender: TObject);
begin
 if DownloadFile('http://www.delphi.com/index.htm', 'd:\index.htm')
 then
   ShowMessage('Plik pobrany pomyślnie... :)')
 else
   ShowMessage('Pobieranie pliku nieudane... :(')
end;

Życzę wysokich transferów... :)

...powrót