CnPack Forum - Powered by Discuz! Board

Subject: Win7下，用delphi 11和11.1版，打开安卓工程，Deploment窗口，编辑“remote path”,按Ctrl+C,报异常 [Print This Page]

Author: hq200306 Time: 2022-3-19 17:35 Subject: 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) / Download count 240
http://bbs.cnpack.org/attachment.php?aid=1141

Image Attachment: deployment1.png (2022-3-19 17:35, 41.28 K) / Download count 215
http://bbs.cnpack.org/attachment.php?aid=1142

Author: hq200306 Time: 2022-3-19 17:36

把cnpack禁止就好了

Author: hq200306 Time: 2022-3-19 17:56

procedure TCnEditControlWrapper.DoEditorChange(Editor: TEditorObject;
  ChangeType: TEditorChangeTypes);
var
  I: Integer;
begin
  //我跳过这些方法就不报错
  if ChangeType * [ctView, ctWindow] = [] then
  begin
exit;
  end;

Author: hq200306 Time: 2022-3-19 18:56

//困扰我好久的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;

Author: hq200306 Time: 2022-3-20 10:21

今天试了还是会报错，昨天没有改对地方，只能禁止cnpack才不会报错

Author: hq200306 Time: 2022-3-20 13:43

还是给我试出来了，装了cnpack，IDE的Welcome Page不能禁用，如果禁用Welcome Page就会出现上面的问题，还是IDE加了皮肤造成。

Author: Passion Time: 2022-3-25 08:40

可否展开“Details”按钮贴一下堆栈？我感觉问题挺复杂的。

Author: hq200306 Time: 2022-4-2 22:32

[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

Author: hq200306 Time: 2022-4-2 22:41

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) / Download count 210
http://bbs.cnpack.org/attachment.php?aid=1148

Author: hq200306 Time: 2022-4-2 22:44

我导出加载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 282
http://bbs.cnpack.org/attachment.php?aid=1149

Author: Passion Time: 2022-4-3 14:50

看了一下确实看到了External Exception，但完全看不出来源……

Welcome to CnPack Forum (http://bbs.cnpack.org/)