Question

DELPHI IDHTTP 下载文件的问题

我要下载8个TXT文件，每个文件100K左右。如何下载会稳定并且快一些？
现在用的是IDHTTP.GET, 总是会重复下载，而且，内容还出错，如1.txt中的内容是1111，等下载完成后，就变成了2222了， 实际上2222 是2.txt 中的内容。
现在的代码是这样写的：
memo1.text:=idhttp.get('xxxx/1.txt');
memo1.text:=idhttp.get('xxxx/2.txt');
memo1.text:=idhttp.get('xxxx/....txt');

求各位多多指教，解决问题，可加分

Answer 1

把memo1.text改成memo1.lines.add吧
memo1.lines.add(idhttp.get('xxxx/1.txt'));
memo1.lines.add(idhttp.get('xxxx/2.txt'));
memo1.lines.add(idhttp.get('xxxx/....txt'));

追问

ADD是字符串，做一行处理，TXT文件中有多行，显然不行
更正一下代码描述：
memo1.text:=idhttp.get('xxxx/1.txt');
memo2.text:=idhttp.get('xxxx/2.txt');
memo3.text:=idhttp.get('xxxx/....txt');

追答

我测试了下,显然没有问题,你是要把txt文件下载下来还是要在memo中显示

追问

是要在MEMO中显示，之前我也是认为没有问题，但是后来发现，如果访问的目标网站有延迟，就是说遇到网速慢时，那么就会出现我说的问题了。一直没有好的办法解决

追答

试下下面这样,get完一次之后就断开一次
try
memo1.text:=idhttp.get('xxxx/1.txt');
finally
idhttp.Disconnect;
end;

Answer 2

procedure TForm1.Button1Click(Sender: TObject);
var
DownLoadFile1,DownLoadFile2,DownLoadFile3:TFileStream;
begin
DownLoadFile1:=TFileStream.Create('c:\1.txt',fmCreate);
DownLoadFile2:=TFileStream.Create('c:\2.txt',fmCreate);
DownLoadFile3:=TFileStream.Create('c:\3.txt',fmCreate);
IdHTTP1.Get('xxxx/1.txt',DownLoadFile1);
IdHTTP1.Get('xxxx/2.txt',DownLoadFile2);
IdHTTP1.Get('xxxx/3.txt',DownLoadFile3);
memo1.Lines.Add(idhttp.get('xxxx/1.txt'));
memo1.Lines.Add(idhttp.get('xxxx/2.txt'));
memo1.Lines.Add(idhttp.get('xxxx/....txt'));
end;