自动下载文件 - 达人(在海水中游泳)

2006/04/21 | 自动下载文件
类别(语言类学习笔记) | 评论(0) | 阅读(307) | 发表于 14:07: //用了nmhttp这个控件，还有类似这种的网上应该很多例子的，delphifans里好像就不少 
 
unit Unit1; 
 
interface 
 
uses 
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, 
Dialogs, StdCtrls, Psock, NMHttp, ComCtrls, ExtCtrls, 
Buttons,inifiles, shellapi; 
 
type 
TForm1 = class(TForm) 
NMHTTP1: TNMHTTP; 
Timer1: TTimer; 
Panel1: TPanel; 
Label3: TLabel; 
Animate1: TAnimate; 
ProgressBar1: TProgressBar; 
Label1: TLabel; 
Label2: TLabel; 
Timer2: TTimer; 
Image1: TImage; 
procedure Timer1Timer(Sender: TObject); 
procedure FormShow(Sender: TObject); 
procedure Timer2Timer(Sender: TObject); 
private 
{ Private declarations } 
public 
{ Public declarations } 
url,cflj,bbh,bz:string; 
i,size:integer; 
end; 
 
var 
Form1: TForm1; 
 
implementation 
 
{$ R *.dfm} 
 
procedure TForm1.Timer1Timer(Sender: TObject); 
begin 
ProgressBar1.Position:=nmhttp1.BytesRecvd; 
label2.Caption:='已下载：'+inttostr(nmhttp1.BytesRecvd)+' 字节';; 
end; 
 
procedure TForm1.FormShow(Sender: TObject); 
var 
inif:Tinifile; 
begin 
try 
cflj:=extractfilepath(application.ExeName)+'ptckhd.exe'; 
inif:=Tinifile.Create(extractfilepath(application.ExeName)+'config.ini'); 
url:=inif.ReadString('zdgx','url',''); 
bbh:=inif.ReadString('zdgx','bbh',''); 
finally 
inif.free; 
end; 
nmhttp1.Head(url); 
label1.Caption:='共：'+inttostr(nmhttp1.BytesTotal)+' 字节'; 
label2.Caption:='已下载：0 字节'; 
ProgressBar1.Min:=0; 
ProgressBar1.Max:=nmhttp1.BytesTotal; 
size:=nmhttp1.BytesTotal; 
nmhttp1.Cancel; 
end; 
 
procedure TForm1.Timer2Timer(Sender: TObject); 
var 
inif:Tinifile; 
begin 
i:=i+1; 
if i=3 then 
begin 
timer1.Enabled:=true; 
Animate1.Active:=true; 
nmhttp1.InputFileMode:=true; 
nmhttp1.Body:=cflj; 
nmhttp1.Get(url); 
try 
inif:=Tinifile.Create(extractfilepath(application.ExeName)+'config.ini'); 
inif.WriteString('bbh','bbh',bbh); 
shellexecute(handle,nil,pchar('ptckhd.exe'),nil,nil,sw_shownormal); 
finally 
inif.free; 
close; 
end; 
end; 
end; 
 
end. 
 
 
 
 
 
//用了nmhttp这个控件，还有类似这种的网上应该很多例子的，delphifans里好像就不少 
 
unit uMain; 
 
interface 
 
uses 
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, 
Dialogs, StdCtrls, Psock, NMHttp, ComCtrls, ExtCtrls, 
Buttons,inifiles, shellapi; 
 
type 
TForm1 = class(TForm) 
 
Timer1: TTimer; 
Timer2: TTimer; 
Label1: TLabel; 
Label2: TLabel; 
Label3: TLabel; 
Panel1: TPanel; 
ProgressBar1: TProgressBar; 
Image1: TImage; 
NMHTTP1: TNMHTTP; 
btn1: TButton; 
procedure Timer1Timer(Sender: TObject); 
procedure FormShow(Sender: TObject); 
procedure Timer2Timer(Sender: TObject); 
procedure btn1Click(Sender: TObject); 
private 
{ Private declarations } 
public 
{ Public declarations } 
url,bbh,bz:string; 
i,size:integer; 
end; 
 
var 
Form1: TForm1; 
 
implementation 
 
{$ R *.dfm} 
 
procedure TForm1.Timer1Timer(Sender: TObject); 
begin 
ProgressBar1.Position:=nmhttp1.BytesRecvd; 
label2.Caption:='已下载：'+inttostr(nmhttp1.BytesRecvd)+' 字节';; 
end; 
 
procedure TForm1.FormShow(Sender: TObject); 
var 
inif:Tinifile; 
begin 
inif:=Tinifile.Create(extractfilepath(application.ExeName)+'config.ini'); 
try 
url:=inif.ReadString('URL','lURL',''); 
bbh:=inif.ReadString('File','lFIle',''); 
finally 
inif.free; 
end; 
try 
nmhttp1.Head(url); 
label1.Caption:='共：'+inttostr(nmhttp1.BytesTotal)+' 字节'; 
label2.Caption:='已下载：0 字节'; 
ProgressBar1.Min:=0; 
ProgressBar1.Max:=nmhttp1.BytesTotal; 
size:=nmhttp1.BytesTotal; 
nmhttp1.Cancel; 
except 
on E: exception do showmessage(e.Message) 
end; 
end; 
 
procedure TForm1.Timer2Timer(Sender: TObject); 
var 
inif:Tinifile; 
begin 
i:=i+1; 
if i=3 then 
begin 
timer1.Enabled:=true; 
nmhttp1.InputFileMode:=true; 
nmhttp1.Body:=bbh; 
nmhttp1.Get(url); 
try 
inif:=Tinifile.Create(extractfilepath(application.ExeName)+'config.ini'); 
inif.WriteString('bbh','lbbh',bbh); 
shellexecute(handle,nil,pchar(bbh),nil,nil,sw_shownormal); 
finally 
inif.free; 
close; 
end; 
end; 
end; 
 
procedure TForm1.btn1Click(Sender: TObject); 
var 
inif:Tinifile; 
begin 
with Tinifile.Create(extractfilepath(application.ExeName)+'config.ini') do 
try 
WriteString('URL','LURL','http://www.zzyingrun.com/licai/licai.rar'); 
WriteString('File','lFile',ExtractfilePath(application.exename)+'licai.rar'); 
finally 
free; 
end; 
end; 
 
end. 
 

----------------------------------

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;
response: string;
FHttp: Tidhttp;
begin
FHttp := Tidhttp.Create(nil);
FHttp.HandleRedirects := true;
FHttp.AllowCookies := true;

MutPartForm := TIdMultiPartFormDataStream.Create;
MutPartForm.AddFormField('act', 'upload');
MutPartForm.AddFormField('upcount', '1');
MutPartForm.AddFormField('filepath', 'data');
MutPartForm.AddFormField('file1', 'filename="' + UpFileName + '"');
MutPartForm.AddFormField('Submit', 'Submit');
MutPartForm.AddFile('file1', UpFileName, 'text/plain');
try
response := FHttp.Post(UpUrl, MutPartForm);
//Messagebox(0, PAnsiChar(response), 'ca', MB_OK);
finally
MutPartForm.Free;
FHttp.Free;
end;
end;

function DownFileEx(): string; stdcall;
begin
UrlDownloadToFile(nil, PChar(DownUrl), PChar(DownFileName), 0, nil);
end;

constructor TUpDownFile.Create;
begin
//
end;

procedure TUpDownFile.UpFile;
begin
//FHandle := CreateThread(nil,0,@UpFileEx,nil,0,FThreadID);
UpFileEx;
end;

procedure TUpDownFile.DownFile;
begin
// FHandle := CreateThread(nil,0,@DownFileEx,nil,0,FThreadID);
DownFileEx;
end;

procedure TUpDownFile.Close;
begin
//ExitThread(FThreadID);
end;

end.; 0

http://wwle.5d.cn/

我有一对翅膀，不是用来飞翔，而是用来煮汤。

评论Comments