Delphi上传和下载文件

unit UpDownFile;

interface

uses
    Windows, Classes, Idhttp, URLMon, IdMultipartFormData;

const UpUrl = 'http://127.0.0.1/upfile/upfile.asp';
const UpFileName = 'C:\Documents and Settings\Administrator\×ÀÃæ\test\web.mdb';
const DownUrl = 'http://www.google.com/images/logo_sm.gif';
const DownFileName = 'web.gif';

type
    TUpDownFile = class
    private
      FThreadID : DWord;
      FHandle : THandle;
    { Private declarations }
    public
        constructor Create;
        procedure UpFile;
        procedure DownFile;
        procedure Close;
    end;

implementation

function UpFileEx(): string; stdcall;
var
    MutPartForm: TIdMultiPartFormDataStream;