Ir para o conteúdo
  • Revista PROGRAMAR: Já está disponível a edição #57 da revista programar. Faz já o download aqui!

cibersoft

Internet

Mensagens Recomendadas

cibersoft    0
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. :eek:

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites
M6    75
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.

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites
cibersoft    0
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. :cheesygrin:

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites
M6    75
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.

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites
knightcoder    1
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;

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Crie uma conta ou ligue-se para comentar

Só membros podem comentar

Criar nova conta

Registe para ter uma conta na nossa comunidade. É fácil!

Registar nova conta

Entra

Já tem conta? Inicie sessão aqui.

Entrar Agora


×

Aviso Sobre Cookies

Ao usar este site você aceita os nossos Termos de Uso e Política de Privacidade