unit OdbcSession;
interface
uses Windows, Messages, SysUtils;
//外部函数声明:integer;stdcall;
function myfunction(DNS,Config:pchar):integer;
implementation
外部函数;external '动态库';
function myfunction(DNS,Config:pchar):integer;export;
begin
ErrorCodenum:=外部函数( 0, 1,DNS,Config);
result:=ErrorCodenum;
end;
end.exports
MyFunction;
interface
uses Windows, Messages, SysUtils;
//外部函数声明:integer;stdcall;
function myfunction(DNS,Config:pchar):integer;
implementation
外部函数;external '动态库';
function myfunction(DNS,Config:pchar):integer;export;
begin
ErrorCodenum:=外部函数( 0, 1,DNS,Config);
result:=ErrorCodenum;
end;
end.exports
MyFunction;
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货