@三条大汉
非常感谢,弄了还是搞不定,请帮我看看
procedure TForm1.Button1Click(Sender: TObject);
var
dll:cardinal;
pp:function(x:pchar;y:pointer):integer;stdcall;
cc:function(x:pointer):integer;stdcall;
sqlite3:pointer;
begin
sqlite3:=nil;
dll:=LoadLibrary(pchar('c:/sqlite/sqlite3.dll'));
if dll<>0 then
begin
@pp:=GetProcAddress(dll,'sqlite3_open');
@cc:=getprocaddress(dll,'sqlite3_close');
if @pp<>nil then
begin
pp(pchar('d:/112.db'),@sqlite3); //估计这里错了
cc(sqlite3); //估计这里错了,但我不知道怎么弄了,试了很多了
end;
end;
freelibrary(dll);
end;
运行可以创建出数据库了,但是提示错误,信息如下
