[tutorial] funçao urldonwloadtofile do delphi

e ae galera nesse tutorial vou falar da funçao urldownloadtofile do delphi q serve para baixar arquivos atraves de uma url (dai o nome ne u.u), para poder usar essa funçao tem q declarar urlmon em uses

Código:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, urlmon;

type
  TForm1 = class(TForm)
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

end.

agora vou criar dois edit e um button, um edit vai ser a url e o segundo edit vai ser o local onde vai salvar o arquivo, no button vai ser para ativar a funçao pegando a informaçao dos edit, na funçao agente passa como argumento nil, a url no caso o edit1.text (tambem usamos a funçao pchar para converter), o local onde vai salvar no caso e edit2.text (tambem uso pchar para converter), 0 e nil

Código:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, urlmon, StdCtrls;

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    Edit2: TEdit;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
  URLDownloadToFile(nil,pchar(Edit1.Text),pchar(Edit2.Text),0,nil);
end;

end.


a imagem final do nosso programa ^^

[Tens de ter uma conta e sessão iniciada para poderes visualizar esta imagem]

by hacker fts315