我写了个下载的代码
procedure Tfrmmain.btndownClick(Sender: TObject);
var
mystream:TmemoryStream;
begin
MyStream := TMemoryStream.Create;
try
IdHTTP1.Get('http://localhost/dataof3d/彩票网站表.db', MyStream);
MyStream.SaveToFile('彩票网站表.db');
except
MyStream.Free;
end;
end;
系统弹出"http/1.1 402 not found" 错误提示
然后我将源文件的扩展名改了下:
procedure Tfrmmain.btndownClick(Sender: TObject);
var
mystream:TmemoryStream;
begin
MyStream := TMemoryStream.Create;
try
IdHTTP1.Get('http://localhost/dataof3d/彩票网站表.txt', MyStream);
MyStream.SaveToFile('彩票网站表.txt');
except
MyStream.Free;
end;
end;
系统运行通过。。
这是为何啊???难道idhttp控件只能传输文本文件?????
procedure Tfrmmain.btndownClick(Sender: TObject);
var
mystream:TmemoryStream;
begin
MyStream := TMemoryStream.Create;
try
IdHTTP1.Get('http://localhost/dataof3d/彩票网站表.db', MyStream);
MyStream.SaveToFile('彩票网站表.db');
except
MyStream.Free;
end;
end;
系统弹出"http/1.1 402 not found" 错误提示
然后我将源文件的扩展名改了下:
procedure Tfrmmain.btndownClick(Sender: TObject);
var
mystream:TmemoryStream;
begin
MyStream := TMemoryStream.Create;
try
IdHTTP1.Get('http://localhost/dataof3d/彩票网站表.txt', MyStream);
MyStream.SaveToFile('彩票网站表.txt');
except
MyStream.Free;
end;
end;
系统运行通过。。
这是为何啊???难道idhttp控件只能传输文本文件?????
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货