delphi引入ActiveX控件报coreide70.bpl错误解决办法
今天在大理剑川做监控联网工程,遇到2台DIY的PC-DVR,联网很不顺利。机器的软件是盗版破解的,只破解了服务器端,客户端未破解,还有就是版本也不对。最后发现软件下有一ActiveX控件可以做联网使用,于是想把这个OCX引入项目软件工程。在引入的时候delphi提示coreide70.bpl报错,错误代码:00000019。网络上查了下很多人碰到这个问题,但没有一个人解决了问题。只能自己研究了。
仔细想想,ActiveX规范已经出了很长很长时间了,大概有12年了吧。我记得98年我就在使用ActivexForm了。delphi支持这种规范应该是没有问题的。仔细检查了生成的文件,发现是dcr文件中包含有超过256色的24x24的位图所至,在包工程文件中删除了对应的dcr文件后,安装成功。
dcr文件是工程资源文件。对于package工程来说,里面其实就是包含了安装在delphi工具栏的代表控件的24X24的位图图标,删了对应的dcr文件,delphi会使用缺省的图标代替,完全不影响功能,只是难看一点,对于引入大量控件来说确实不方便。dcr 文件可以使用delphi自带的应用工具image editor编辑。看得不爽的话可以自己画个图标代替。
我自己是懒得去画图标了。难看就难看了吧。
相关文档:
一、整数类型
类型 所占字节数 取值范围
byte 1 0-255
word 2 0-65535
shortint 1 -128-127
smallint 2 -32768-32767
integer 4 -214748648-214748467
longint 4 -214748648-214748467
cordinal 4 0-2147483647
二、实数类型
类型 所点字节数 取值范围
Real 6 ±2.9×10的负39次方到1.7× ......
procedure TForm1.CheckBox1Click(Sender: TObject);
begin
if CheckBox1.Checked then
SetWindowPos(Handle, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOSIZE or SWP_NOMOVE)
else
SetWindowPos(Handle, HWND_NOTOPMOST, 0, 0, 0, 0, SWP_NOSIZE or SWP_NOMOVE);
end;//使用Self.FormStyle := fsStayOnTop;会使界 ......
原来是要在FormCreate中加入以下代码:
procedure TTntForm1.TntFormCreate(Sender: TObject);
begin
//这句很关键.对于平台的支持.
if Win32Platform = VER_PLATFORM_WIN32_NT then
Font.Name := 'MS Shell Dlg 2'
else
Font.Name := 'MS Shell Dlg';
......
谁说Delphi没有哈希?--Delphi中,TStringList和THashedStringList的性能对比
曾经看到很多人在嚷嚷Delphi没有哈希表,这些人的动手意识姑且不论,却还有很多人以此来证明Delphi比别的语言垃圾,实在是...
好,牢骚打住,转接正题。
TStringList是我们常用的字符串列表类型,用法就不在这里赘述,但是,在数据其项数增 ......
最近要做一个图书管理系统,并且是用Delphi软件开发,很多都不懂,本来是可以从网上下载,学习一下的,可是不知道怎么破解登陆密码,运行时没办法登陆进去,5555~~好好学习,有高手指点就好了…… ......