Question

delphi Idhttp下载问题

我想用idhttp下载文件代码这样的：

procedure TForm4.DownImg(url:string;FileName:string);

var Hp:TIdHTTP; FileS:Tfilestream;

begin Hp := TIdHTTP.Create(self);

FileS:= Tfilestream.Create('D:\test\'+FileName+'.png',fmCreate);

Hp.Get(url,FileS);

FileS.Free;

end;

procedure TForm4.sButton2Click(Sender: TObject);

var sUrl:string;

begin

sUrl := sedit1.Text;//下载的URL

DownImg(sUrl,‘test’);

end;

现在的问题就是： 如果我的下载URL是这样的：

后面直接有扩展名的，可以成功下载。

但如果下载地址是这样的：

最后没有扩展名的，下载会出错。

但是这个用迅雷下载是可以的，是个txt文件。

如果我想像迅雷那样下载这个地址该怎么做呢。求教。

谢谢。
可以成功下载的URL：

下载失败的URL：





Answer 1

idhttp有个办法可以获取远程文件的信息，里面包含了文件大小和修改日期啥的

追问

我不是要这个。谢谢。