| 技术论坛 |
|
|
| ≡技术区≡ ① |
| DELPHI技术 |
| lazarus/fpc/Free Pascal |
| 移动应用开发 |
| Web应用开发 |
| 数据库专区 |
| 报表专区 |
| 网络通讯 |
| 开源项目 |
| 论坛精华贴 |
| ≡发布区≡ ② |
| 发布代码 |
| 发布控件 |
| 文档资料 |
| 经典工具 |
| ≡事务区≡ ③ |
| 网站意见 |
| 盒子之家 |
| 招聘应聘 |
| 信息交换 |
| 论坛信息 |
|||
|
| 导航： | 论坛 -> DELPHI技术 斑竹:liumazi,sephil | |||||
| 作者： |
|
2019/2/19 13:49:07 | ||||
| 标题： |
|
加入我的收藏 | ||||
| 楼主： | 程序在Delphi 7没问题，Delphi xe 10.3编译后取得地址栏第一个 字符‘h',变成#0，真搞不清楚是什么问计题了，有老大帮忙测试下吗？
- |
|||||
| 作者： |
|
2019/2/19 14:35:24 | ||||
| 1楼： | 10.3.1试试 呵呵。 ---------------------------------------------- 我打的是酱油，而不是别的什么油。 我灌的是口水，而不是别的什么水。 我聊的折腾不是那个不折腾的折腾。 我说的阿娇不是那个邓玉娇的阿娇。 3个代表,6个为什么,9个肠胃炎。 D性强的领导干部都不喜欢热比娅。 我特别要讲的是,屁民网黄色论坛是我经常上网必选的 网站之一 |
|||||
| 作者： |
|
2019/2/19 15:16:16 | ||||
| 2楼： | 字符格式，Unicode，char ---------------------------------------------- - |
|||||
| 作者： |
|
2019/2/19 15:19:11 | ||||
| 3楼： | 你的回调函数可能没区分ansichar 和char .贴回调函数看看 ---------------------------------------------- http://blog.sina.com.cn/bmsrnote |
|||||
| 作者： |
|
2019/2/19 16:48:42 | ||||
| 4楼： | function EnumChildWindowsProc(hwnd: Integer; lparam: Longint): Boolean; stdcall; var buffer: array[0..255] of char; begin Result := True; GetClassName(hwnd,buffer,256); if StrPas(Buffer)='Edit' then begin SendMessage(hwnd,WM_GETTEXT,256,lparam); Result:=False; end; end; ---------------------------------------------- - |
|||||
| 作者： |
|
2019/2/19 18:00:11 | ||||
| 5楼： | 上面是回调函数 ---------------------------------------------- - |
|||||
| 作者： |
|
2019/2/19 19:33:25 | ||||
| 6楼： | SendMessage 有A W2个版本吗？试试 ---------------------------------------------- 我打的是酱油，而不是别的什么油。 我灌的是口水，而不是别的什么水。 我聊的折腾不是那个不折腾的折腾。 我说的阿娇不是那个邓玉娇的阿娇。 3个代表,6个为什么,9个肠胃炎。 D性强的领导干部都不喜欢热比娅。 我特别要讲的是,屁民网黄色论坛是我经常上网必选的 网站之一 |
|||||
| 作者： |
|
2019/2/19 22:22:10 | ||||
| 7楼： | function EnumChildWindowsProc(hwnd: Integer; lparam: Longint): Boolean; stdcall; var buffer: array[0..255] of char; begin Result := True; GetClassName(hwnd,buffer,256); if SameStr(WideCharToString(@Buffer),'Edit') then begin SendMessage(hwnd,WM_GETTEXT,256,lparam); Result:=False; end; end; procedure TForm_Main.Button5Click(Sender: TObject); var hwnd:NativeInt; buffer:array[0..255] of char; s:string; begin hwnd:=FindWindow('IEFrame',nil); if hwnd<>0 then begin EnumChildWindows(hwnd,@EnumChildWindowsProc,NativeInt(@buffer)); s:=WideCharToString(@buffer); Memo_Info.Lines.add(s); end; end; ---------------------------------------------- http://blog.sina.com.cn/bmsrnote |
|||||
| 作者： |
|
2019/2/20 8:08:34 | ||||
| 8楼： | @bmsr (白忙剩人) 你的代码也不行！
- |
|||||
| 作者： |
|
2019/2/20 9:15:28 | ||||
| 9楼： | 我的正常的
http://blog.sina.com.cn/bmsrnote |
|||||
| 作者： |
|
2019/2/20 9:22:55 | ||||
| 10楼： | 10.3.1 测试，Debug 模式的确有问题，Release 模式就正常了。 ---------------------------------------------- Delphi4Linux Delphi三层/FireDAC 技术群：734515869 http://www.cnblogs.com/rtcmw |
|||||
| 作者： |
|
2019/2/20 9:57:39 | ||||
| 11楼： | 全能细致，赞 ---------------------------------------------- - |
|||||
| 作者： |
|
2019/2/20 9:58:17 | ||||
| 11楼： | 发现32位debug模式的确有问题，64位两种模式都是正确的，这可能是bug。 ---------------------------------------------- http://blog.sina.com.cn/bmsrnote |
|||||
| 作者： |
|
2019/2/20 10:01:11 | ||||
| 11楼： | bmsr (白忙剩人)水平很高 ---------------------------------------------- - |
|||||
| 作者： |
|
2019/2/20 10:53:02 | ||||
| 12楼： | @earthsbest 10.3.1 测试，Debug 模式的确有问题，Release 模式就正常了。 谢谢，已测试，真的如此，delphi出现这种BUG，真的无语了！普通人那里想得到？ ---------------------------------------------- - |
|||||
| 信息 |
| 登陆以后才能回复 |
