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;
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;
解决方案 »
- 点击BUTTON后,输入点在一个EDIT上?
- 怎么样调用dll文件里面的窗体?
- access数据库的局域网连接 (与操作系统有关)
- 想找限制edit输入字符 的有关贴子,在搜索中该填写什么关键字,给EDIT的输入增加输入限制
- 动态生成的label为何会只显示一半文字(上方一半)?
- 在线等啊!!快帮我解决啊
- ftp搭建好了,TFTP控件连不上什么原因?
- 请教大家几个问题?(我好菜的)
- 数据窗体与报表窗体的冲突问题?
- 急救!!!!!!delphi XE7安装不了,怎么办
- 我的数据库是用DATABASE DESKTOP做的.请问,如何往MEMO字段和GRAPHIC字段添加内容.在线等.
- 我在串口接收交换机的统计报告,同时分解送往数据库,总是不稳定。
//Initialization //1去掉
CoInitialize(nil); //2 //Finalization //3去掉
// CoUnInitialize; //4去掉end.