通过代码实现:知道网址如何下载文件?

Question

用FTP控件，必须支持
或Http空间

Answer 1

给点提示:
加入NMHTTP组件.
在BUTTONCLICK事件中:
NMHTTP1.get(edturl.text);//edturl:tedit  获取下载地址
在NMHTTP1Success事件中：
procedure TForm1.NMHTTP1Success(Cmd: CmdType);
var
    fname:string;
    buf:string;
    pnewfile,poldfile:pchar;
    i:integer;
begin
{   Copyright (C) Bowman    }
{   [email protected]  }
    //retrive the tmp file
    fname:=nmhttp1.body;
    //retrive file name
    for i:=length(edtURL.Text) downto 1 do
        if edtURL.text[i]<>'/' then
            buf:=edtURL.text[i]+buf
        else
            break;
    //assign file name
    Getmem(poldFile,length(fname)+1);
    StrPCopy(poldFile,fname);
    Getmem(pnewfile,length(buf)+1);
    StrPCopy(pnewfile,buf);
    //rename it
    MoveFile(poldfile,pnewfile);
    Freemem(poldfile);
    Freemem(pnewfile);
    //show infomation
    statusbar1.Panels.Items[0].text:='download complete';
    lblTemp.caption:= fname;
    lblFinal.Caption:=buf;
end;