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

解决方案 »

  1.   

    我是想写一个完成具体功能的dll然后给VB调用.能否给个具体的例子?谢谢
      

  2.   

    很简单的代码,但是在外部看不到接口哪位高人帮忙看看,因为有一个硬件接口需要用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;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.