CnPack Forum


 
Subject: Win7下,用delphi 11和11.1版,打开安卓工程,Deploment窗口,编辑“remote path”,按Ctrl+C,报异常
hq200306
灌水科科长
Rank: 3Rank: 3



UID 67758
Digest Posts 0
Credits 102
Posts 35
点点分 102
Reading Access 10
Registered 2012-12-1
Status Offline
Post at 2022-3-19 17:35  Profile | Blog | P.M. 
Win7下,用delphi 11和11.1版,打开安卓工程,Deploment窗口,编辑“remote path”,按Ctrl+C,报异常

Win7下,用delphi 11和11.1版,打开安卓工程,Deploment窗口,编辑“remote path”,按Ctrl+C,报异常


Image Attachment: deployment.png (2022-3-19 17:35, 17.24 K)



Image Attachment: deployment1.png (2022-3-19 17:35, 41.28 K)

Top
hq200306
灌水科科长
Rank: 3Rank: 3



UID 67758
Digest Posts 0
Credits 102
Posts 35
点点分 102
Reading Access 10
Registered 2012-12-1
Status Offline
Post at 2022-3-19 17:36  Profile | Blog | P.M. 
把cnpack禁止就好了
Top
hq200306
灌水科科长
Rank: 3Rank: 3



UID 67758
Digest Posts 0
Credits 102
Posts 35
点点分 102
Reading Access 10
Registered 2012-12-1
Status Offline
Post at 2022-3-19 17:56  Profile | Blog | P.M. 
procedure TCnEditControlWrapper.DoEditorChange(Editor: TEditorObject;
  ChangeType: TEditorChangeTypes);
var
  I: Integer;
begin
  //我跳过这些方法就不报错
  if ChangeType * [ctView, ctWindow] = [] then
  begin
    exit;
  end;
Top
hq200306
灌水科科长
Rank: 3Rank: 3



UID 67758
Digest Posts 0
Credits 102
Posts 35
点点分 102
Reading Access 10
Registered 2012-12-1
Status Offline
Post at 2022-3-19 18:56  Profile | Blog | P.M. 
//困扰我好久的bug,终于改好了
procedure TCnEditControlWrapper.DoEditorChange(Editor: TEditorObject;
  ChangeType: TEditorChangeTypes);
var
  I: Integer;
begin

{$IFDEF DEBUG}
  CnDebugger.LogMsg('TCnEditControlWrapper.DoEditorChange: ' + EditorChangeTypesToStr(ChangeType));
{$ENDIF}

  if ChangeType * [ctView, ctWindow{$IFDEF BDS}, ctLineDigit{$ENDIF}] <> [] then
  begin
    //hyh
    if Assigned((Editor)) then
    begin
      Editor.FGutterChanged := True; // 行位数发生变化时,会触发 Gutter 宽度变化
    end;
  end;
Top
hq200306
灌水科科长
Rank: 3Rank: 3



UID 67758
Digest Posts 0
Credits 102
Posts 35
点点分 102
Reading Access 10
Registered 2012-12-1
Status Offline
Post at 2022-3-20 10:21  Profile | Blog | P.M. 
今天试了还是会报错,昨天没有改对地方,只能禁止cnpack才不会报错
Top
hq200306
灌水科科长
Rank: 3Rank: 3



UID 67758
Digest Posts 0
Credits 102
Posts 35
点点分 102
Reading Access 10
Registered 2012-12-1
Status Offline
Post at 2022-3-20 13:43  Profile | Blog | P.M. 
还是给我试出来了,装了cnpack,IDE的Welcome Page不能禁用,如果禁用Welcome Page就会出现上面的问题,还是IDE加了皮肤造成。
Top
Passion (LiuXiao)
管理员
Rank: 9Rank: 9Rank: 9


UID 359
Digest Posts 19
Credits 6672
Posts 3515
点点分 6672
Reading Access 102
Registered 2004-3-28
Status Offline
Post at 2022-3-25 08:40  Profile | Blog | P.M. 
可否展开“Details”按钮贴一下堆栈?我感觉问题挺复杂的。
Top
hq200306
灌水科科长
Rank: 3Rank: 3



UID 67758
Digest Posts 0
Credits 102
Posts 35
点点分 102
Reading Access 10
Registered 2012-12-1
Status Offline
Post at 2022-4-2 22:32  Profile | Blog | P.M. 
[20570541]{coreide280.bpl} EditorActions.TEditorActionLists.EditCopyItemExecute (Line 787, "EditorActions.pas" + 1) + $A
[50E2CA5D]{vcl280.bpl  } Vcl.Forms.TApplication.WndProc (Line 10883, "Vcl.Forms.pas" + 112) + $B
[50E869E3]{vcl280.bpl  } Vcl.AppEvnts.TMultiCaster.GetAppEvents (Line 686, "Vcl.AppEvnts.pas" + 1) + $7
[50E8621E]{vcl280.bpl  } Vcl.AppEvnts.TMultiCaster.DoActionExecute (Line 406, "Vcl.AppEvnts.pas" + 5) + $E
[50E86242]{vcl280.bpl  } Vcl.AppEvnts.TMultiCaster.DoActionExecute (Line 410, "Vcl.AppEvnts.pas" + 9) + $3
[20570539]{coreide280.bpl} EditorActions.TEditorActionLists.EditCopyItemExecute (Line 787, "EditorActions.pas" + 1) + $2
[50173BE7]{rtl280.bpl  } System.Classes.TBasicAction.Execute (Line 17866, "System.Classes.pas" + 3) + $7
[50CCF9FE]{vcl280.bpl  } Vcl.ActnList.TCustomAction.Execute (Line 284, "Vcl.ActnList.pas" + 19) + $35
[50173A3B]{rtl280.bpl  } System.Classes.TBasicActionLink.Execute (Line 17777, "System.Classes.pas" + 2) + $7
[50E0EDC7]{vcl280.bpl  } Vcl.Menus.TMenuItem.Click (Line 2617, "Vcl.Menus.pas" + 17) + $7
[50E10ACF]{vcl280.bpl  } Vcl.Menus.DoClick (Line 3843, "Vcl.Menus.pas" + 41) + $4
[50E10BBB]{vcl280.bpl  } Vcl.Menus.TMenu.IsShortCut (Line 3896, "Vcl.Menus.pas" + 38) + $6
[50CEF450]{vcl280.bpl  } Vcl.Controls.TWinControl.IsMenuKey (Line 12252, "Vcl.Controls.pas" + 8) + $12
[50CEF4C5]{vcl280.bpl  } Vcl.Controls.TWinControl.CNKeyDown (Line 12272, "Vcl.Controls.pas" + 5) + $4
[50CE7D62]{vcl280.bpl  } Vcl.Controls.TControl.WndProc (Line 7548, "Vcl.Controls.pas" + 91) + $6
[500607C4]{rtl280.bpl  } System.TMonitor.Destroy (Line 19528, "System.pas" + 0) + $0
[500647BA]{rtl280.bpl  } System.@FinalizeRecord (Line 32755, "System.pas" + 72) + $2
[50DEDC19]{vcl280.bpl  } Vcl.Themes.TStyleManager.GetStyle (Line 5789, "Vcl.Themes.pas" + 7) + $D
[5006159C]{rtl280.bpl  } System.@TryFinallyExit (Line 23374, "System.pas" + 8) + $0
[50DEDD07]{vcl280.bpl  } Vcl.Themes.TStyleManager.GetStyle (Line 5800, "Vcl.Themes.pas" + 18) + $1E
[50CE9846]{vcl280.bpl  } Vcl.Controls.TControl.GetStyleName (Line 8582, "Vcl.Controls.pas" + 5) + $7
[5006031F]{rtl280.bpl  } System.TObject.Dispatch (Line 18844, "System.pas" + 11) + $0
[50DF1BD9]{vcl280.bpl  } Vcl.Themes.TStyleHook.WndProc (Line 7689, "Vcl.Themes.pas" + 38) + $6
[50DF1DBA]{vcl280.bpl  } Vcl.Themes.TMouseTrackControlStyleHook.WndProc (Line 7788, "Vcl.Themes.pas" + 1) + $4
[50D18121]{vcl280.bpl  } Vcl.StdCtrls.TComboBoxStyleHook.WndProc (Line 10161, "Vcl.StdCtrls.pas" + 25) + $4
[50DF13FE]{vcl280.bpl  } Vcl.Themes.TStyleHook.HandleMessage (Line 7394, "Vcl.Themes.pas" + 20) + $6
[50F11672]{vcl280.bpl  } Vcl.Styles.TStyleEngine.HandleMessage (Line 3601, "Vcl.Styles.pas" + 22) + $7
[50DEDE38]{vcl280.bpl  } Vcl.Themes.TStyleManager.HandleMessage (Line 5858, "Vcl.Themes.pas" + 11) + $11
[50CEAEC7]{vcl280.bpl  } Vcl.Controls.TWinControl.DoHandleStyleMessage (Line 9412, "Vcl.Controls.pas" + 0) + $F
[50CECE79]{vcl280.bpl  } Vcl.Controls.TWinControl.WndProc (Line 10583, "Vcl.Controls.pas" + 170) + $6
[50181FC2]{rtl280.bpl  } System.Classes.{System.Generics.Collections}TDictionary<System.Integer,System.Classes.IInterfaceList>.TryGetValue (Line 7389, "System.Generics.Collections.pas" + 6) + $2
[50179A6A]{rtl280.bpl  } System.Classes.TObservers.IsObserving (Line 20589, "System.Classes.pas" + 1) + $8
[50179AE5]{rtl280.bpl  } System.Classes.TObservers.IsObserving (Line 20599, "System.Classes.pas" + 11) + $20
[50D0E029]{vcl280.bpl  } Vcl.StdCtrls.TCustomCombo.WndProc (Line 4738, "Vcl.StdCtrls.pas" + 70) + $4
[50D0FCDB]{vcl280.bpl  } Vcl.StdCtrls.TCustomComboBox.WndProc (Line 5520, "Vcl.StdCtrls.pas" + 42) + $4
[50CEC3F4]{vcl280.bpl  } Vcl.Controls.TWinControl.MainWndProc (Line 10271, "Vcl.Controls.pas" + 3) + $6
[50174A20]{rtl280.bpl  } System.Classes.StdWndProc (Line 18375, "System.Classes.pas" + 8) + $0
[2128BDBB]{vclide280.bpl} VTEditors.TTreeLink.ControlWndProc (Line 244, "VTEditors.pas" + 15) + $18
[50174A20]{rtl280.bpl  } System.Classes.StdWndProc (Line 18375, "System.Classes.pas" + 8) + $0
[50E2D3C8]{vcl280.bpl  } Vcl.Forms.TApplication.IsKeyMsg (Line 11244, "Vcl.Forms.pas" + 25) + $12
[50E2D456]{vcl280.bpl  } Vcl.Forms.TApplication.IsHintMsg (Line 11264, "Vcl.Forms.pas" + 2) + $10
[50E2D673]{vcl280.bpl  } Vcl.Forms.TApplication.ProcessMessage (Line 11330, "Vcl.Forms.pas" + 17) + $31
[50E2D6DA]{vcl280.bpl  } Vcl.Forms.TApplication.HandleMessage (Line 11366, "Vcl.Forms.pas" + 1) + $4
[50E2DA19]{vcl280.bpl  } Vcl.Forms.TApplication.Run (Line 11505, "Vcl.Forms.pas" + 27) + $3
[004F7FA2]{bds.exe     } bds.bds (Line 227, "" + 16) + $2
Top
hq200306
灌水科科长
Rank: 3Rank: 3



UID 67758
Digest Posts 0
Credits 102
Posts 35
点点分 102
Reading Access 10
Registered 2012-12-1
Status Offline
Post at 2022-4-2 22:41  Profile | Blog | P.M. 
1、另外,我下了cnpack源码用debug方式编译出CnWizards_D110A.dll,加载debug版的dll时,发现启动日志有很多地方异常。
2、但相同的cnpack代码,编译出xe版的debug版的CnWizards_DXE.dll,启动没有异常。
3、相同的cnpack代码,于xe11.1版与xe版的ide表现不一样。

[ 本帖最后由 hq200306 于 2022-4-2 23:17 编辑 ]


Image Attachment: cnpack.png (2022-4-2 22:43, 198.02 K)

Top
hq200306
灌水科科长
Rank: 3Rank: 3



UID 67758
Digest Posts 0
Credits 102
Posts 35
点点分 102
Reading Access 10
Registered 2012-12-1
Status Offline
Post at 2022-4-2 22:44  Profile | Blog | P.M. 
我导出加载debug版CnWizards_D110A.dll的时日志,有不少地方发现异常,w下面是我导出的xe11.1版cnpack的日志

[ 本帖最后由 hq200306 于 2022-4-2 22:57 编辑 ]


Attachment: cnpack.rar (2022-4-2 22:46, 5.27 K)
Download count 20
Top
Passion (LiuXiao)
管理员
Rank: 9Rank: 9Rank: 9


UID 359
Digest Posts 19
Credits 6672
Posts 3515
点点分 6672
Reading Access 102
Registered 2004-3-28
Status Offline
Post at 2022-4-3 14:50  Profile | Blog | P.M. 
看了一下确实看到了External Exception,但完全看不出来源……
Top
 




All times are GMT++8, the time now is 2022-7-1 09:22

    本论坛支付平台由支付宝提供
携手打造安全诚信的交易社区 Powered by Discuz! 5.0.0  © 2001-2006 Comsenz Inc.
Processed in 0.013159 second(s), 9 queries , Gzip enabled

Clear Cookies - Contact Us - CnPack Website - Archiver - WAP