用dephi可以编写activex.dll吗?哪里有例子可以下载.谢谢

一川烟草123 2006-09-18 01:11:28
用dephi可以编写activex.dll吗?哪里有例子可以下载.谢谢
...全文
216 4 打赏 收藏 转发到动态 举报
写回复
用AI写文章
4 条回复
切换为时间正序
请发表友善的回复…
发表回复
一川烟草123 2006-09-18
  • 打赏
  • 举报
回复
很简单的代码,但是在外部看不到接口

哪位高人帮忙看看,因为有一个硬件接口需要用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}

begin
end.



unit CardRead;

interface

uses
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.
nevergetwin 2006-09-18
  • 打赏
  • 举报
回复
去盒子上找找
www.2ccc.com
一川烟草123 2006-09-18
  • 打赏
  • 举报
回复
我是想写一个完成具体功能的dll然后给VB调用.能否给个具体的例子?谢谢
andyzhou1101 2006-09-18
  • 打赏
  • 举报
回复
自带的Demo里有的吧

5,379

社区成员

发帖
与我相关
我的任务
社区描述
Delphi 开发及应用
社区管理员
  • VCL组件开发及应用社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧