极个别机器 EDIT MEMO 发生 APP 无响应的问题。

wang_80919

注意：第二页  第14楼 ，问题已经解决。

https://quality.embarcadero.com/browse/RSP-9720
台电 G17 B5DV 型号的产品。
只要界面有输入框 EDIT MEMO，点上去， APP 很快就无响应了。
具体型号
http://www.teclast.com/zhuanti/G17c4/


大家有没有遇到类似的机器呢。

请写出 机器的具体型号名称。
例如 XXX 品牌 YYY型号 S 版。
最好给出官方产品介绍页。


已经有两个群友，提到此问题，但是他们拒绝透露具体型号。

红鱼儿

不知官方何时能修正。

1583896709

已经采用，感谢老猫！
向Delpher大侠致敬！

红鱼儿

wang_80919 发表于 2015-7-11 20:52
15.XE8 修复 个别机器 输入框 EDIT MEMO 无响应 问题

(************************************************ ...

没提交到QC，让官方也改一下。

红鱼儿

我测试也通过！
老猫，你太强了！

wang_80919

15.XE8 修复 个别机器 输入框 EDIT MEMO 无响应 问题

(****************************************************)
(*　　　　　　　　　　　　　　　　　　　　　　　　　*)
(*　　　　　编写：爱吃猪头肉 & Flying Wang　　　　　*)
(*　　　　　　上面的版权声明请不要移除。　　　　　　*)
(*　　　　　　　　　　2015-07-11　　　　　　　　　　*)
(*　　　　　　　　　　　　　　　　　　　　　　　　　*)
(*　　　    　　　禁止发布到城通网盘。　　　  　　　*)
(*　　　　　　　　　　　　　　　　　　　　　　　　　*)
(****************************************************)

首先 感谢 [沈阳]红鱼儿(391879); 的参与测试，找出了问题的可能位置。




找到安装目录下的
FMX.Platform.Android
将他们另存到（复制到）其他目录，例如您的工程目录。

将新复制出的文件加入到您的工程中。

【第一步】
打开 FMX.Platform.Android
添加如下信息
(* ************************************************ *)
(*　　　　　　　　　　　　　　　　　　　　　　　　　*)
(*　　修改：爱吃猪头肉 & Flying Wang 2015-07-11　　 *)
(*　　　　　　上面的版权声明请不要移除。　　　　　　*)
(*　　　　　　　　　　　　　　　　　　　　　　　　　*)
(*　　　    　　　禁止发布到城通网盘。　　　  　　　*)
(*　　　　　　　　　　　　　　　　　　　　　　　　　*)
(* ************************************************ *)
这是我的版权，请您尊重下。


【第二步】
找到
procedure TPlatformAndroid.RunOnUIThread(Proc: TThreadProcedure);

将上面的函数修改为
//fix by Flying Wang & 爱吃猪头肉
procedure TPlatformAndroid.RunOnUIThread(Proc: TThreadProcedure);
begin
  //MainActivity.runOnUiThread(TSimpleProcedureRunner.Create(Proc));
  CallInUIThread(
  procedure()
  begin
    Proc;
  end);
end;


找到
procedure TPlatformAndroid.SynchronizeOnUIThread(Proc: TThreadProcedure);

将上面的函数修改为
//fix by Flying Wang & 爱吃猪头肉
procedure TPlatformAndroid.SynchronizeOnUIThread(Proc: TThreadProcedure);
var
  Runner: TSimpleProcedureRunner;
begin
//  CallInUIThread(
//  procedure()
//  begin
//  Runner := TSimpleProcedureRunner.Create(Proc);
//  MainActivity.runOnUiThread(Runner);
//  Runner.Event.WaitFor;
//  end);
  CallInUIThreadAndWaitFinishing(
  procedure()
  begin
    Proc;
  end);
end;



找到
procedure TPlatformAndroid.SetClipboard(Value: TValue);

将上面的函数修改为
//fix by Flying Wang & 爱吃猪头肉
procedure TPlatformAndroid.SetClipboard(Value: TValue);
var
  Setter: TClipboardSetter;
begin
  Setter := TClipboardSetter.Create(Value.ToString);
  CallInUIThread(
  procedure()
  begin
  SharedActivity.runOnUiThread(Setter);
  end);
  Setter.Done.WaitFor(INFINITE);
end;



找到
function TPlatformAndroid.GetClipboard: TValue;

将上面的函数修改为
//fix by Flying Wang & 爱吃猪头肉
function TPlatformAndroid.GetClipboard: TValue;
var
  Getter: TClipboardGetter;
begin
  Getter := TClipboardGetter.Create;
  CallInUIThread(
  procedure()
  begin
  SharedActivity.runOnUiThread(Getter);
  end);
  Getter.Done.WaitFor(INFINITE);
  Result := Getter.Value;
end;

wang_80919

经过 红鱼儿的调试。虽然当天没找出问题。但是出现一些规律。
我今天修改了一些地方。我的机器 正常了。

wang_80919

红鱼儿 发表于 2015-7-9 20:56
是这个效果

这机器，支持 DEBUG 吗？
我的 台电G17 ，在 DEBUG 还没开始的时候，IDE 就自动退出 DEBUG 模式了。

红鱼儿

wang_80919 发表于 2015-7-9 10:03
问题是 同一个型号的 CPU，也有正常的机器。
大概是 CPU + 系统固件 一起影响的。
如果 固件换一种，就没 ...

同感，我觉得就是固件的问题，定制的太严重才产生的不兼容的结果。

红鱼儿

wang_80919 发表于 2015-7-7 16:44
仅仅是点 EDIT MEMO 类的发生无响应。
如果点 按钮，还是没问题的。

是这个效果