程序编译不通过啊,说木有这个东东,希望大虾帮忙啊,,555
解决方案 »
- 如何让MESSAGEBOX 1秒后自动关闭的问题
- 寻找竖直显示记录的购件....
- 请问现在delphi最新版本时多少,到目前最好用得版本是哪一版?
- 这段程序为什么会出错?
- 请问:在一个form create 的时候是先create form 上的控件然后再 create 自己吗?
- 为何adoquery多表查询后,不能提交到数据库
- 考勤系统中的采集数据问题!(用源码求解!)
- 我的文凭(中专)需要升级,有哪些途径
- ADODataSet删除记录命令我记不起来了,谁能告诉我一下?
- 谁有object pascal (build 6.18)的编译器,无须Delphi.
- 有用过TMS SmoothControl控件的吗?进来看看
- 关于对过滤器的设置
procedure TForm1.Button3Click(Sender: TObject);
var
url: string;
IdHTTP: TIdHTTP;
stream, out_stream: TMemoryStream;
begin
url := 'http://bill.finance.sina.com.cn/bill/trade_item.php?stock_code=sh580013&pages=0&time=1218809515';
IdHTTP := TIdHTTP.Create(nil);
stream := TMemoryStream.Create;
out_stream := TMemoryStream.Create;
try
IdHTTP.get(url, stream);
stream.Position:=0;
ZLibEx.ZDecompressStream2(stream, out_stream, -15);
stream.SaveToFile('c:\1.txt');
out_stream.SaveToFile('c:\2.txt'); //这个就是我们要的html内容
finally
stream.Free;
out_stream.Free;
IdHTTP.Free;
end;
end;