求救!为什么代码调试换个位置就过不去了!
一笑拔剑 2006-06-14 01:16:30 procedure TForm1.Button3Click(Sender: TObject);
var LocalFile: string;
S:String;
F: TextFile;
begin
AssignFile(F, 'D:\vb6mini\downurl.htm');
Reset(F);
while not EOF(F) do begin
Readln(F, S);
TxtFile.text:=S
LocalFile := ExtractFilePath(ParamStr(0)) + GetFileName(TxtFile.text, false);
if FileExists(LocalFile) then DeleteFile(LocalFile);
DownBar1.HttpServerFileName := TxtFile.Text;
DownBar1.LocalFileName := LocalFile;
if DownBar1.HttpIsDownload then
Form1.Caption := '完成' else Form1.Caption := '失败';
end;
CloseFile(F);
end;
我需要做的是把下载地址从downurl.txt中读出
然后依次下载
procedure TForm1.Button3Click(Sender: TObject);
var LocalFile: string;
S:String;
F: TextFile;
begin
AssignFile(F, 'D:\vb6mini\downurl.htm');
Reset(F);
while not EOF(F) do begin
Readln(F, S);
TxtFile.text:=S
end;
CloseFile(F);
LocalFile := ExtractFilePath(ParamStr(0)) + GetFileName(TxtFile.text, false);
if FileExists(LocalFile) then DeleteFile(LocalFile);
DownBar1.HttpServerFileName := TxtFile.Text;
DownBar1.LocalFileName := LocalFile;
if DownBar1.HttpIsDownload then
Form1.Caption := '完成' else Form1.Caption := '失败';
end;
这样代码就可以运行 但是这样下载的只是最后一行的代码 ,请问应该怎么写?