Internet

[cibersoft]

Boa Tarde, gostaria de saber se posivel como faço para fazer um programa que me permita fazer downloads da internet de uma certa URL.

Obrigado. ?

[M6]

Dependendo da versão do Delphi que possuis, e dos componentes que tens à tua disposição, podes usar um componente de cliente de http e/ou ftp para isso. Consulta a documentação e vê os tutoriais que acompanham o Delphi.

[cibersoft]

Eu tenho a versão home edition que eles deixam fazer download gratuitamente, portanto uma versão limitada.

A versão que eu tenho é o Delphi 7.0.

Obrigado. 😁

[M6]

Há imensos componentes VCL por ai, "google it". 🙂

De certo vais encontrar alguns que até já fazem o que pretendes. No limite podes sempre usar o OCX do IE embebido numa aplicação tua.

[knightcoder]

Aqui está um exemplo:

uses WinInet;

function GetInetFile (const fileURL, FileName: String): boolean;
const
  BufferSize = 1024;
var
  hSession, hURL: HInternet;
  Buffer: array[1..BufferSize] of Byte;
  BufferLen: DWORD;
  f: File;
  sAppName: string;
begin
  Result:=False;
  sAppName := ExtractFileName(Application.ExeName);
  hSession := InternetOpen(PChar(sAppName),
                           INTERNET_OPEN_TYPE_PRECONFIG,
                           nil, nil, 0);
  try
    hURL := InternetOpenURL(hSession,
            PChar(fileURL),
            nil,0,0,0);
    try
      AssignFile(f, FileName);
      Rewrite(f,1);
      repeat
        InternetReadFile(hURL, @Buffer,
                         SizeOf(Buffer), BufferLen);
        BlockWrite(f, Buffer, BufferLen)
      until BufferLen = 0;
      CloseFile(f);
      Result:=True;
    finally
     InternetCloseHandle(hURL)
    end
  finally
    InternetCloseHandle(hSession)
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  InternetFile,LocalFile: string;
begin
  InternetFile:='http://www.delphitips.com/images/delphispirit.gif';
  LocalFile:='c:/delphispirit.gif';

  if GetInetFile(InternetFile,LocalFile)=True then
     ShowMessage('download')
  else
    ShowMessage('Can not download the updated files');
end;