【搞定】有关导入第三方组件的问题

alang · 发表于 2004-5-12 08:50:23

看下图代码知道
pKeyproData=^KEYPRODATA;

alang · 发表于 2004-5-12 08:53:54

在任何一个函数中，打单元名KeyproU.通过code insight来看函数头信息

procedure KEYPRO (ptr: pKeyproData);

（这里同样可以看到楼上的类型是正确的）

alang · 发表于 2004-5-12 09:01:12

根据上面的信息，可以定义一个新的单元，在这个单元的interface部分，定义上面的类型和函数头，在implementation部分引用KeyproU单元，然后实现函数部分调用KeyproU单元的函数来实现。

unit Unit2;

interface

type
  pKeyproData=^KEYPRODATA;
  KEYPRODATA=record
ReturnFlag: Word;
FunctionCode: Word;
MemAddress: Word;
Password0: Word;
Password1: Word;
MemContent: Word;
Lock0: Word;
Lock1: Word;
Reserved: array[0..31] of Word;
  end;

procedure KEYPRO (ptr: pKeyproData);

implementation

uses
  KeyproU;

procedure KEYPRO (ptr: pKeyproData);
begin
  KeyproU.KEYPRO(KeyproU.pKeyproData(ptr));
end;

end.

alang · 发表于 2004-5-12 09:03:46

在TKeypro1单元中，取消uses中的KeyproU，增加新作单元的引用

alang · 发表于 2004-5-12 09:07:01

至此，就结束了为一个dcu文件生成源文件的工作！！！
看明白了吗？

alang · 发表于 2004-5-12 09:14:47

其实，如果只是上面这个文件的话，有一个非常简单的方法，简单的不得了：

因为在单元头（implementation之前部分）没有用到KeyproU单元的任何东西，所以只要在implementation之后，引用这个单元就可以了，在implementation之后引用的单元不需要源代码。

zhong--nan · 发表于 2004-5-12 11:30:24

我已经试过了第二种方法，可以生成bpl和dll文件，但引用后，在工具栏中没有显示。后来，我就直接引用那个命名空间，然后在实现部分定义一个类的对象，并创建这个类的实例，最后用这个对象再调用其中方法就可以了，请问这是什么原因？

zhong--nan · 发表于 2004-5-12 11:30:59

图片1

zhong--nan · 发表于 2004-5-12 11:31:35

图片2

alang · 发表于 2004-5-12 11:48:00

控件需要注册才可以在工具栏上显示
在单元中，定义一个Register过程，在这个过程中调用RegisterComponents来注册控件

		自动登录	找回密码
密码			立即注册