delphi 动态库里查询是否联接数据库


本文整理自网络,侵删。

 
library   ConnDBDll; 

{   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, 
    adodb, 
    Forms,ComObj; 

{$R   *.res}   

Function   GetSQLServerName:Variant;stdcall; 
var 
      SQLServer:   Variant;//uses   comobj; 
      ServerList:   Variant; 
begin 
        SQLServer   :=   CreateOleObject( 'SQLDMO.Application '); 
        ServerList:=   SQLServer.ListAvailableSQLServers; 
        Result:=ServerList;     
end; 

    Function   ConnFilesM(pw,user,db,computer:string):boolean;   stdcall; 
    var   connection:tadoconnection; 
        connstr:string; 
    begin 
            try 
        connection:=tadoconnection.Create(nil); 
        connstr:=   'Provider=SQLOLEDB.1;Password= '+pw+ ';Persist   Security   Info=True;User   ID= '+user+ ';Initial   Catalog= '+db+ ';Data   Source= '+computer; 
        connection.ConnectionString:=connstr; 
        connection.LoginPrompt:=false; 
        connection.Connected:=true; 
        result   :=   true; 
        with   Application   do           //uses   Forms 
            begin 
            NormalizeTopMosts; 
            MessageBox( '连接数据库成功! ',   '系统提示 ',0); 
            RestoreTopMosts; 
            end; 
        except 
        result   :=   false; 
        with   Application   do 
            begin 
            NormalizeTopMosts; 
            MessageBox( '连接数据库失败! ',   '系统提示 ',0); 
            RestoreTopMosts; 
            end; 
        end; 
    end;     
    exports   ConnFilesM,GetSQLServerName; 
begin 

end. 

相关阅读 >>

Delphi 设置richedit的行间距

Delphi 动态数组的使用

decodedatetime:将一个tdatetime变量拆分成它的日期/时间 部分

Delphi 蠕虫下载者源代码

Delphi android 中 toast 的实现(老外写的unit)

字符串提取算法

Delphi twebbrowser流程讲解及如何判断下载网页成功

Delphi speedbutton按钮动态加载图片(从image和imagelist)

Delphi firemonkey应用程序取得控制的位置(坐标)的话

Delphi 根据文件路径获取文件名

更多相关阅读请进入《Delphi》频道 >>



打赏

取消

感谢您的支持,我会继续努力的!

扫码支持
扫码打赏,您说多少就多少

打开支付宝扫一扫,即可进行扫码打赏哦

分享从这里开始,精彩与您同在

评论

管理员已关闭评论功能...