| 技术论坛 |
|
|
| ≡技术区≡ ① |
| DELPHI技术 |
| lazarus/fpc/Free Pascal |
| 移动应用开发 |
| Web应用开发 |
| 数据库专区 |
| 报表专区 |
| 网络通讯 |
| 开源项目 |
| 论坛精华贴 |
| ≡发布区≡ ② |
| 发布代码 |
| 发布控件 |
| 文档资料 |
| 经典工具 |
| ≡事务区≡ ③ |
| 网站意见 |
| 盒子之家 |
| 招聘应聘 |
| 信息交换 |
| 论坛信息 |
|||
|
| 导航： | 论坛 -> DELPHI技术 斑竹:liumazi,sephil | |||||
| 作者： |
|
2013/11/19 15:17:15 | ||||
| 标题： |
|
加入我的收藏 | ||||
| 楼主： | 谁能为我加一个网络状态的测试？现程序在无网络情况下会自动退出。
- |
|||||
| 作者： |
|
2013/11/19 15:21:39 | ||||
| 1楼： | 运行结果
- |
|||||
| 作者： |
|
2013/11/19 15:30:03 | ||||
| 2楼： | procedure TForm1.FormActivate(Sender: TObject); var ss:TStringStream; s1:string; n1,nn:integer; begin ss:=TStringStream.Create('',TEncoding.UTF8); //建立时的中文编码为 TEncoding.UTF8 Idhttp1.Get('http://www.hzqx.com/hzqx/HztqybInfo.xml',ss);//Idhttp.Get('',变量名称) s1:=ss.DataString; //转换为string类型的字符型变量s1 n1:=Pos('<Hztqyb>',s1); //Pos在string变量里的关键字位置 if n1>0 then begin s1:=Copy(s1,n1+8,Length(s1)-n1-8); n1:=Pos('</Hztqyb>',s1); if n1>0 then begin s1:=Copy(s1,1,n1-1); s1:=' '+s1; ShowMessage(s1); end; end; ss.Free; //复杂变量用完应该释放，简单的不用 MainActivity.finish; //安卓端专用的结束程序 end; ---------------------------------------------- - |
|||||
| 作者： |
|
2013/11/19 16:08:25 | ||||
| 3楼： | mark TStringStream.Create('',TEncoding.UTF8); 看到这里 我就忍不住想骂 indy 让我费尽功夫了 这样写编码多好。 ---------------------------------------------- - |
|||||
| 作者： |
|
2013/11/19 16:38:42 | ||||
| 4楼： | 发现一个XE5 BUG，程序运行后不动，等屏幕自动关闭（或手动关闭）再重新点亮屏幕，然后就发现ShowMessage的窗口失去焦点了，有解决方法吗？ 哪个安全的IOS的？帮我实机运行一下试试，最好发个截图上来。 ---------------------------------------------- - |
|||||
| 作者： |
|
2013/11/19 20:32:44 | ||||
| 5楼： | 你发现的太晚了。 ---------------------------------------------- (C)(P)Flying Wang |
|||||
| 信息 |
| 登陆以后才能回复 |
