瀏覽代碼

* call mysql_init

fpc 20 年之前
父節點
當前提交
f8849f9396
共有 1 個文件被更改,包括 1 次插入0 次删除
  1. 1 0
      tests/utils/dbtests.pp

+ 1 - 0
tests/utils/dbtests.pp

@@ -72,6 +72,7 @@ begin
 {$ifdef ver1_0}  
 {$ifdef ver1_0}  
   Result:=mysql_connect(@Connection,PChar(Host),PChar(User),PChar(Password))<>Nil;
   Result:=mysql_connect(@Connection,PChar(Host),PChar(User),PChar(Password))<>Nil;
 {$else}  
 {$else}  
+  mysql_init(@Connection);
   Result:=mysql_real_connect(@Connection,PChar(Host),PChar(User),PChar(Password),Nil,0,Nil,0)<>Nil;
   Result:=mysql_real_connect(@Connection,PChar(Host),PChar(User),PChar(Password),Nil,0,Nil,0)<>Nil;
 {$endif}  
 {$endif}  
   If Not Result then
   If Not Result then