菜鸟想做一个简单的下载软件,不过能实现突破代理服务器的功能。哪位高手能帮忙啊???(30分)

  • 主题发起人 主题发起人 xiaoxiami0
  • 开始时间 开始时间
X

xiaoxiami0

Unregistered / Unconfirmed
GUEST, unregistred user!
菜鸟想做一个简单的下载软件,不过能实现突破代理服务器的功能。哪位高手能帮忙啊??
 
到http://www.euromind.com/iedelphi/iedownload.htm下载一个iedownload,安装后

procedure TForm1.Button1Click(Sender: TObject);
begin
IEDownload1.Go('http://www.netwinds.net/runsea/downfiles2.0.rar','c:/downfiles2.0.rar');
end;

procedure TForm1.IEDownload1Progress(Sender: TBSCB; ulProgress,
ulProgressMax, ulStatusCode: Cardinal; szStatusText: PWideChar;
ElapsedTime, Speed, EstimatedTime: String);
begin
edit1.Text :=speed;
edit2.Text :=elapsedtime;
edit3.Text :=estimatedtime;
edit4.Text :=szstatustext;
edit5.Text :=inttostr(ulstatuscode);
end;
 

Similar threads

D
回复
0
查看
2K
DelphiTeacher的专栏
D
D
回复
0
查看
1K
DelphiTeacher的专栏
D
D
回复
0
查看
1K
DelphiTeacher的专栏
D
后退
顶部