用dephi可以编写activex.dll吗?哪里有例子可以下载.谢谢 用dephi可以编写activex.dll吗?哪里有例子可以下载.谢谢 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 我是想写一个完成具体功能的dll然后给VB调用.能否给个具体的例子?谢谢 很简单的代码,但是在外部看不到接口哪位高人帮忙看看,因为有一个硬件接口需要用dephi做.之前没有搞个dephi的东西.按书上的做了.还是不行.library prjCardHX;uses 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}beginend.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;implementationuses CardDll, Global;function init_Card(portID:integer):integer ;Var iResultValue: integer;begin ........end. 异构数据库之间整表数据导入 如何创建复制一个窗体?? 请问如何跨两个数据连接间的更新 将窗体最小化,最大化的事件是什么? 一个让人非常头疼的问题,高手来帮忙啊!!! 高分请教高手excel 数据导出的问题 有关Delphi和Excel转换的一个小问题(关于range类型的) 如何实现那种浏览目录的树状图,可以选择目录?快……急救!!!! 李维的网站where? 通过ole往excel中插入图片与人工插入图片的差异 帮我看看对象释放 是否正确 在线等,最好说明下理由 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.