library Send;uses
  SysUtils,
  Classes,
  ADODB,
  DB,
  Forms,
  Dialogs,
  activex,
  UnDM in 'UnDM.pas' {DM: TDataModule};{$R *.res}function read(var PhoneNum,Txt:pchar):integer;stdcall;
 begin
  with dm.ADO do
  begin
   close;
   sql.Text:='select * from phonecard';
   open;
   phoneNum:=pchar(fieldbyname('callphone').AsString);
   Txt:=pchar(fieldbyname('name').AsString);
  end;
 end;exports
 read;begin
  Initialization      //1
   CoInitialize(nil); //2  Finalization        //3
   CoUnInitialize;    //4end.DLL里面加了一个DataModule,里面有ADOConnection,ADOQuery
调用的时候出错,"acess violation at 0x77e998ca :write of address 0x00030fb4."调用
function read(var PhoneNum,Txt:pchar):integer;stdcall;external'send.dll';procedure TForm1.Button1Click(Sender: TObject);
var
a,b:pchar;
begin
read(a,b);
end;