动态链接库问题

Question

想用delphi写一个打印程序，要用ADOQuery从表中查出要打印的内容，然后用第三方控件（报表）进行打印，然后编译成DLL文件。再调用的时候出错：Project Project2.Exe raised exception class EoleSysError with message '尚未调用 CoInitialize.'.   
  请各位大侠帮忙

Answer 1

ADO是MS的东西，在动态库中使用，要注册

Answer 2

在创建ADO对象之前，Coinitialize(nil)
完成使用之后 Couninitialize

Answer 3

大哥，由于小弟没有写过dll文件，能给个例子吗？

Answer 4

我们经理让我写一个delphi的打印程序，想用FoxPro调用，有其他好的方法吗？

Answer 5

//dll工程文件
library PSbSearch;{ Important note about DLL memory management: ShareMem must be the
  first unit in your library's USES clause AND your project's (select
  Project-View Source) USES clause if your DLL exports any procedures or
  functions that pass strings as parameters or function results. This
  applies to all strings passed to and from your DLL--even those that
  are nested in records and classes. ShareMem is the interface unit to
  the BORLNDMM.DLL shared memory manager, which must be deployed along
  with your DLL. To avoid using BORLNDMM.DLL, pass string information
  using PChar or ShortString parameters. }uses
  SysUtils,
  Classes,
  SbFp in 'SbFp.pas' {frmSbSearch},
  dtmdl in '..\dtmdl.pas' {dtmd: TDataModule};{$R *.res}begin
end.
------------------------------------------------------------------------------

Answer 6

//dll的窗体文件，使用ado组件
unit SbFp;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Grids, DBGrids, ExtCtrls, StdCtrls, Buttons, ComCtrls, DBCtrls,
   Excel2000, OleServer, Menus,activex, Mask;type
  TfrmSbSearch = class(TForm)
    DBGrid1: TDBGrid;
    grbxBaseInfo: TGroupBox;
    dtpkGmrq: TDateTimePicker;
    edDj: TEdit;
    edCj: TEdit;
    edSbid: TEdit;
    cmbxDt: TComboBox;
    cmbxdj: TComboBox;
    btnSearch: TSpeedButton;
    StaticText1: TStaticText;
    GroupBox1: TGroupBox;
    DBEdit1: TDBEdit;
    DBEdit2: TDBEdit;
    DBEdit3: TDBEdit;
    DBEdit4: TDBEdit;
    DBEdit8: TDBEdit;
    DBEdit5: TDBEdit;
    DBEdit6: TDBEdit;
    Label2: TLabel;
    DBEdit7: TDBEdit;
    DBMemo1: TDBMemo;
    DBImage1: TDBImage;
    ckbxKs: TCheckBox;
    cmbxks: TComboBox;
    ExcelApplication1: TExcelApplication;
    ExcelWorksheet1: TExcelWorksheet;
    ExcelWorkbook1: TExcelWorkbook;
    PopupMenu1: TPopupMenu;
    N1: TMenuItem;
    p: TPanel;
    procedure ckbxKsClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure btnSearchClick(Sender: TObject);
    procedure DBGrid1TitleClick(Column: TColumn);
    procedure DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
      DataCol: Integer; Column: TColumn; State: TGridDrawState);
    procedure DBGrid1CellClick(Column: TColumn);
    procedure edDjKeyPress(Sender: TObject; var Key: Char);
    procedure N1Click(Sender: TObject);
  private
    lastColumn : integer;
     icount : integer;
  public
    function ReturnSymbol(cmbx : TComboBox) : string;
  end;var
  frmSbSearch: TfrmSbSearch;implementationuses dtmdl, ADODB, DB;{$R *.dfm}procedure ShowSbSearch;stdcall
begin
   CoInitialize(nil);//注意这里
   dtmd := Tdtmd.Create(nil);
   frmSbSearch := TfrmSbSearch.Create(nil);
   try
     frmSbSearch.ShowModal;
   finally
     frmSbSearch.Free;
     dtmd.Free;
   end;
   CoUninitialize;
end;exports ShowSbSearch;//导出函数//下面是完成操作的程序代码-----------------------------------------------------------------------------------

Answer 7

procedure Print();stdcall
var
  MyPrint: TMyPrint;
begin
  //CoInitialize(nil);//注意这里 {这里出错}
  MyPrint := TMyPrint.Create(Application);
  try
    MyPrint.ShowModal;
  finally
  MyPrint.Free;
  end;
  //CoUninitialize;
end;
是怎么回事？

Answer 8

多谢楼上的大哥，现在解决了
少了一个ActiveX