用dephi可以编写activex.dll吗?哪里有例子可以下载.谢谢
解决方案 »
- 求助,怎么能使TDBEdit(components[i])连续
- edit 控件光标停留问题?
- external调用DLL文件的路径怎么使用变量?
- loadFromFile如何对一个文本文件直接编辑?
- 简单的问题
- 各位!你们自己的网站每月花费是多少钱啊?
- 如何使用Delphi6.0的Access控件,请具体说明.如果好的,马上给分,不够在加
- 关于Dephi的文档?
- 请问一个有关于使用ADO原生对象的问题(在线给分)
- 为什么会出现“无法找到动态链接库”
- 帮我看看对象释放 是否正确 在线等,最好说明下理由
- TStringGrid 控件,当从一行移动到另外一行的时候,希望触发一个事件,来处理先前行上的数据。
ComServ,
CardDll in 'CardDll.pas',
CardRead in 'CardRead.pas',
ReadSID in 'ReadSID.pas' {frmReadSID},
Global in 'Global.pas',
InputThread in 'InputThread.pas';exports
DllGetClassObject,
DllCanUnloadNow,
DllRegisterServer,
DllUnregisterServer,
init_Card ; //这个就是要对外的接口
{$R *.RES}begin
end.unit CardRead;interfaceuses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, TFlatSpeedButtonUnit, StdCtrls, TFlatComboBoxUnit, ExtCtrls,
TFlatPanelUnit, TFlatCheckBoxUnit, TFlatEditUnit, TFlatGroupBoxUnit,
TFlatButtonUnit, Buttons;function init_Card(portID:integer):integer;export;var
CurReaderComPort: integer;// 读写器串口
Baud, BaudSet, Baudrate :longint;implementation
uses CardDll, Global;function init_Card(portID:integer):integer ;
Var
iResultValue: integer;begin
........
end.