tpaxscripter_routines.htm

来自「Delphi脚本控件」· HTM 代码 · 共 610 行 · 第 1/2 页

HTM
610 行
字号
12
<html>
<head>
<link rel=stylesheet type="text/css" href="styles.css">
</head>
<body>
<H3>
TPAXScripter Registration Routines
</H3>
<hr>
<ul>
<li><a href="#FreeImportLibarary">FreeImportLibarary</a></li>
<li><a href="#LoadImportLibrary">LoadImportLibrary</a></li>
<li><a href="#RegisterClassType">RegisterClassType</a></li>
<li><a href="#RegisterConstant">RegisterConstant</a></li>
<li><a href="#RegisterField">RegisterField</a></li>
<li><a href="#TPaxScripter.RegisterInterfaceType">RegisterInterfaceType</a></li>
<li><a href="#TPaxScripter.RegisterInterfaceMethod">RegisterInterfaceMethod</a></li>
<li><a href="#RegisterMethod">RegisterMethod</a></li>
<li><a href="#RegisterBCBMethod">RegisterBCBMethod</a></li>
<li><a href="#RegisterNamespace">RegisterNamespace</a></li>
<li><a href="#RegisterProperty">RegisterProperty</a></li>
<li><a href="#RegisterRecordType">RegisterRecordType</a></li>
<li><a href="#RegisterRecordField">RegisterRecordField</a></li>
<li><a href="#RegisterRoutine">RegisterRoutine</a></li>
</ul>
<a name="FreeImportLibarary"><h3>FreeImportLibarary</h3></a>
<!-------------------------------------------------------------------->
<blockquote>
Unloads import library.
<pre>
<font color="blue"><b>function</b></font> FreeImportLibrary(H: Cardinal): LongBool;
</pre>
<H4>
See Also
</H4>
<blockquote>
<ul>
<li><a href="#LoadImportLibrary">LoadImportLibrary</a></li>
</ul>
</blockquote>
</blockquote>
<a name="LoadImportLibrary"><h3>LoadImportLibrary</h3></a>
<!-------------------------------------------------------------------->
<blockquote>
Loads a dll which contains imported Delphi classes.
<pre>
<font color="blue"><b>function</b></font> LoadImportLibrary(<font color="blue"><b>const</b></font> DllName: <font color="blue"><b>String</b></font>): Cardinal;
</pre>
<p>
LoadImportLibrary allows you to import Delphi classes from a dll. You can generate source code of the dll by means of paxScript importer (paximp.exe).
</p>
<H4>
See Also
</H4>
<blockquote>
<ul>
<li><a href="#FreeImportLibarary">FreeImportLibarary</a></li>
</ul>
</blockquote>
</blockquote>
<a name="RegisterClassType"><h3>RegisterClassType</h3></a>
<!-------------------------------------------------------------------->
<blockquote>
Registeres a Delphi class.
<pre>
<font color="blue"><b>function</b></font> RegisterClassType(PClass: TClass; Owner: Integer): Integer;
</pre>
<H4>
Arguments
</H4>
<blockquote>
<i>PClass</i>
<blockquote>
A Delphi class.
</blockquote>
</blockquote>
<blockquote>
<i>Owner</i>
<blockquote>
Determines handle of namespace which contains the class.
</blockquote>
</blockquote>
<p>
Returns handle of the namespace.
<H4>
Example
</H4>
<pre>
Delphi:

initialization
.....................

H := RegisterNamespace(<font color="Red">'MyNamespace'</font>);
H := RegisterClassType(TMyClass, H);

C++ Builder:

void __fastcall TForm1::FormCreate(TObject *Sender)
{
 int h = RegisterNamespace(<font color="Red">"MyNamespace"</font>, - 1);
 RegisterClassType(__classid(TMyClass), h);
}
</pre>
</p>
<p>
The class becomes available for all TPaxScripter instances.
</p>
</blockquote>
<a name="RegisterConstant"><h3>RegisterConstant</h3></a>
<!-------------------------------------------------------------------->
<blockquote>
Registeres a constant.
<pre>
<font color="blue"><b>procedure</b></font> RegisterConstant(<font color="blue"><b>const</b></font> Name: <font color="blue"><b>String</b></font>; Value: Variant; Owner: Integer = -1);
</pre>
<H4>
Arguments
</H4>
<blockquote>
<i>Name</i>
<blockquote>
<font color="black"><i>Name</i></font> of constant.
</blockquote>
</blockquote>
<blockquote>
<i>Value</i>
<blockquote>
<font color="black"><i>Value</i></font> of constant.
</blockquote>
</blockquote>
<blockquote>
<i>Owner</i>
<blockquote>
Determines handle of namespace which contains constant.
</blockquote>
</blockquote>
<p>
<H4>
Example
</H4>
<pre>
initialization
................

H := RegisterNamespace(<font color="Red">'MyNamespace'</font>);
RegisterConstant(<font color="Red">'MyConst'</font>, 90, H);
</pre>
</p>
<p>
The constant becomes available for all TPaxScripter instances.
</p>
</blockquote>
<a name="RegisterField"><h3>RegisterField</h3></a>
<!-------------------------------------------------------------------->
<blockquote>
Allows you to register a private, protected or public field of a Delphi class.
<pre>
<font color="blue"><b>procedure</b></font> RegisterField(PClass: TClass; <font color="blue"><b>const</b></font> FieldName, FieldType: <font color="blue"><b>String</b></font>;
                        Offset: Integer);
</pre>
<H4>
Arguments
</H4>
<blockquote>
<i>PClass</i>
<blockquote>
A Delphi class.
</blockquote>
</blockquote>
<blockquote>
<i>FieldName</i>
<blockquote>
Name of field.
</blockquote>
</blockquote>
<blockquote>
<i>FieldType</i>
<blockquote>
Type of field.
</blockquote>
</blockquote>
<blockquote>
<i>Offset</i>
<blockquote>
<font color="black"><i>Offset</i></font> of field.
</blockquote>
</blockquote>
<p>
<H4>
Example
</H4>
<pre>
<A HREF="tps_demo_fields.htm">Click here</A>.
</pre>
</p>
</blockquote>


<a name="TPaxScripter.RegisterInterfaceType"><h3>TPaxScripter.RegisterInterfaceType</h3></a>
<!-------------------------------------------------------------------->
<blockquote>
Allows you to register an interface type.
<pre>
<font color="blue"><b>function</b></font> RegisterInterfaceType(<font color="blue"><b>const</b></font> Name: <font color="blue"><b>String</b></font>; <font color="blue"><b>const</b></font> Guid: TGuid; <font color="blue"><b>const</b></font> ParentName: <font color="blue"><b>String</b></font>; <font color="blue"><b>const</b></font> ParentGuid: TGUID; OwnerIndex: Integer = -1): Integer;
</pre>
<H4>
Arguments
</H4>
<blockquote>
<i>Name</i>
<blockquote>
<font color="black"><i>Name</i></font> of interface type
</blockquote>
</blockquote>
<blockquote>
<i>Guid</i>
<blockquote>
<font color="black"><i>GUID</i></font> of the interface type.
</blockquote>
</blockquote>
<blockquote>
<i>ParentName</i>
<blockquote>
<font color="black"><i>Name</i></font> of parent type
</blockquote>
</blockquote>
<blockquote>
<i>ParentGuid</i>
<blockquote>
<font color="black"><i>GUID</i></font> of parent type.
</blockquote>
</blockquote>
<blockquote>
<i>OwnerIndex</i>
<blockquote>
Index of namespace.
</blockquote>
</blockquote>
<p>
<H4>
Example
</H4>
<pre>
H := RegisterNamespace(<font color="Red">'MyUnit'</font>, -1);
RegisterInterfaceType(<font color="Red">'ITest'</font>,ITest,<font color="Red">'IUnknown'</font>,IUnknown,H);
RegisterInterfaceMethod(ITest, <font color="Red">'procedure Proc(A: Integer); overload;'</font>);
</pre>
</p>
</blockquote>



<a name="TPaxScripter.RegisterInterfaceMethod"><h3>TPaxScripter.RegisterInterfaceMethod</h3></a>
<!-------------------------------------------------------------------->
<blockquote>
Allows you to register a method of interface type.
<pre>
<font color="blue"><b>procedure</b></font> RegisterInterfaceMethod(<font color="blue"><b>const</b></font> Guid: TGUID; <font color="blue"><b>const</b></font> Header: <font color="blue"><b>String</b></font>;MethodIndex: Integer = -1);
</pre>
<H4>
Arguments
</H4>
<blockquote>
<i>Guid</i>
<blockquote>
<font color="black"><i>Guid</i></font> of the interface
</blockquote>
</blockquote>
<blockquote>
<i>Header</i>
<blockquote>
<font color="black"><i>Header</i></font> of method
</blockquote>
</blockquote>
<blockquote>
<i>MethodIndex</i>
<blockquote>
Index of method. QueryInterface has index 1, _AddRef has index 1, _Release has index 3 and go on. If <font color="black"><i>MethodIndex</i></font> is -1, it will be determined automatically.
</blockquote>
</blockquote>
<p>
<H4>
Example
</H4>
<pre>
H := RegisterNamespace(<font color="Red">'MyUnit'</font>, -1);
RegisterInterfaceType(<font color="Red">'ITest'</font>,ITest,<font color="Red">'IUnknown'</font>,IUnknown,H);
RegisterInterfaceMethod(ITest, <font color="Red">'procedure Proc(A: Integer); overload;'</font>);
</pre>
</p>
</blockquote>
12

tpaxscripter_routines.htm - 源码说明

本页面展示了「Delphi脚本控件」中的 tpaxscripter_routines.htm 源码文件，采用 HTM 编程语言编写，共 610 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫下载站收录了大量与Delphi相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?