Buenas. Estuve tratando de importar el OCX de Hasar para los controladores 2G. No pude importarlo como ActiveX Control.
Estoy usando Delphi 2007 en una pc con Win10 64 bits.
Alguien tuvo un problema similar?
Mensaje de error:
Error al tener acceso al Registro OLE.
Agrego el detalle del error:
Cita:
[21092879]{tlib100.bpl } tlberror.Error + $11
[210928F7]{tlib100.bpl } tlberror.OleError + $53
[2000FB83]{rtl100.bpl } SysUtils.ExtractFilePath + $1F
[2109292B]{tlib100.bpl } tlberror.OleCheck + $7
[21095653]{tlib100.bpl } TlbUtils.RegisterTypeLibrary + $5F
[210956B5]{tlib100.bpl } TlbUtils.LoadAndRegisterTypeLibrary + $25
[06E2E774]{comcore100.bpl} ImportTLB.TTypeLibSelectionManager.OnAdd + $7C
[20AFD263]{coreide100.bpl} ItemsWizardPage.TListFrame.AddButtonClick + $2B
[2013FBAC]{vcl100.bpl } Controls.TControl.Click + $64
[200FC412]{vcl100.bpl } StdCtrls.TButton.Click + $1E
[200FC510]{vcl100.bpl } StdCtrls.TButton.CNCommand + $C
[2013F6A7]{vcl100.bpl } Controls.TControl.WndProc + $2BB
[20143736]{vcl100.bpl } Controls.TWinControl.WndProc + $4FA
[200FC2BC]{vcl100.bpl } StdCtrls.TButtonControl.WndProc + $6C
[2013F334]{vcl100.bpl } Controls.TControl.Perform + $24
[20143887]{vcl100.bpl } Controls.DoControlMsg + $23
[201442B3]{vcl100.bpl } Controls.TWinControl.WMCommand + $B
[2013F6A7]{vcl100.bpl } Controls.TControl.WndProc + $2BB
[20143736]{vcl100.bpl } Controls.TWinControl.WndProc + $4FA
[20D99772]{designide100.bpl} DeskUtil.SetFocusHook + $2E
[20142E60]{vcl100.bpl } Controls.TWinControl.MainWndProc + $2C
[20040DE4]{rtl100.bpl } Classes.StdWndProc + $14
[2013F334]{vcl100.bpl } Controls.TControl.Perform + $24
[20006936]{rtl100.bpl } System.@IsClass + $E
[20143833]{vcl100.bpl } Controls.TWinControl.DefaultHandler + $D7
[2013FFCC]{vcl100.bpl } Controls.TControl.WMLButtonUp + $10
[2013F6A7]{vcl100.bpl } Controls.TControl.WndProc + $2BB
[2014319B]{vcl100.bpl } Controls.TWinControl.IsControlMouseMsg + $13
[20143736]{vcl100.bpl } Controls.TWinControl.WndProc + $4FA
[200FC2BC]{vcl100.bpl } StdCtrls.TButtonControl.WndProc + $6C
[20142E60]{vcl100.bpl } Controls.TWinControl.MainWndProc + $2C
[20040DE4]{rtl100.bpl } Classes.StdWndProc + $14
[2004A282]{rtl100.bpl } Contnrs.TObjectList.GetItem + $A
[201D06F6]{vcl100.bpl } AppEvnts.TMultiCaster.DoMessage + $42
[20160EF8]{vcl100.bpl } Forms.TApplication.ProcessMessage + $FC
[20160F32]{vcl100.bpl } Forms.TApplication.HandleMessage + $A
[2015CFEF]{vcl100.bpl } Forms.TCustomForm.ShowModal + $187
[20AFB648]{coreide100.bpl} Wizard.TWizard.Show + $B8
[06E32763]{comcore100.bpl} ComStdReg.TComMenus.DoImportComponentExecute + $47
[20040123]{rtl100.bpl } Classes.TBasicAction.Execute + $F
[2014FE05]{vcl100.bpl } ActnList.TContainedAction.Execute + $31
[20150B68]{vcl100.bpl } ActnList.TCustomAction.Execute + $50
[2003FFEF]{rtl100.bpl } Classes.TBasicActionLink.Execute + $13
[213A8D19]{vclactnband100.bpl} ActnMenus.TCustomActionMenuBar.ExecAction + $3D
[213AA043]{vclactnband100.bpl} ActnMenus.TCustomActionMenuBar.TrackMenu + $F7
[213AA073]{vclactnband100.bpl} ActnMenus.TCustomActionMenuBar.TrackMenu + $127
[213AD460]{vclactnband100.bpl} ActnMenus.TCustomActionMainMenuBar.TrackMenu + $20
[213A88E5]{vclactnband100.bpl} ActnMenus.TCustomActionMenuBar.CMItemClicked + $29
[2013F6A7]{vcl100.bpl } Controls.TControl.WndProc + $2BB
[20143736]{vcl100.bpl } Controls.TWinControl.WndProc + $4FA
[20D99772]{designide100.bpl} DeskUtil.SetFocusHook + $2E
[20031FC4]{rtl100.bpl } Classes.TThreadList.UnlockList + $4
[200EBA20]{vcl100.bpl } Graphics.FreeMemoryContexts + $98
[2013F334]{vcl100.bpl } Controls.TControl.Perform + $24
[20143229]{vcl100.bpl } Controls.TWinControl.IsControlMouseMsg + $A1
[20143637]{vcl100.bpl } Controls.TWinControl.WndProc + $3FB
[20143736]{vcl100.bpl } Controls.TWinControl.WndProc + $4FA
[213AA132]{vclactnband100.bpl} ActnMenus.TCustomActionMenuBar.WndProc + $AA
[20142E60]{vcl100.bpl } Controls.TWinControl.MainWndProc + $2C
[20040DE4]{rtl100.bpl } Classes.StdWndProc + $14
[20160EF8]{vcl100.bpl } Forms.TApplication.ProcessMessage + $FC
[20160F32]{vcl100.bpl } Forms.TApplication.HandleMessage + $A
[20161188]{vcl100.bpl } Forms.TApplication.Run + $CC
[00422971]{bds.exe } bds.bds (Line 196, "" + 7) + $2
|