paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-17 18:09:15 +02:00
Code Issues Packages Projects Releases Wiki Activity

fcl-db: implemented GetConnectionInfo for TMSSQLConnection

Browse Source 
(basic support, more options later)

git-svn-id: trunk@22919 -
This commit is contained in:
lacak 2012-11-02 11:10:33 +00:00
parent b8116de644
commit a8404dbf7f
1 changed files with 42 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

43
packages/fcl-db/src/sqldb/mssql/mssqlconn.pp
View File

@ -98,6 +98,7 @@ type
function GetSchemaInfoSQL(SchemaType:TSchemaType; SchemaObjectName, SchemaObjectPattern:string):string; override;
public
constructor Create(AOwner : TComponent); override;
function GetConnectionInfo(InfoType:TConnInfoType): string; override;
procedure CreateDB; override;
procedure DropDB; override;
//property TDS:integer read Ftds;
@ -138,11 +139,15 @@ type
Class Function TypeName : String; override;
Class Function ConnectionClass : TSQLConnectionClass; override;
Class Function Description : String; override;
Class Function DefaultLibraryName : String; override;
Class Function LoadFunction : TLibraryLoadFunction; override;
Class Function UnLoadFunction : TLibraryUnLoadFunction; override;
Class Function LoadedLibraryName: string; override;
end;
{ TSybaseConnectionDef }
TSybaseConnectionDef = Class(TConnectionDef)
TSybaseConnectionDef = Class(TMSSQLConnectionDef)
Class Function TypeName : String; override;
Class Function ConnectionClass : TSQLConnectionClass; override;
Class Function Description : String; override;
@ -885,6 +890,22 @@ begin
end;
end;
function TMSSQLConnection.GetConnectionInfo(InfoType: TConnInfoType): string;
begin
Result:='';
try
InitialiseDBLib(DBLibLibraryName);
case InfoType of
citClientName:
Result:=TMSSQLConnectionDef.LoadedLibraryName;
else
Result:=inherited GetConnectionInfo(InfoType);
end;
finally
ReleaseDBLib;
end;
end;
{ TMSSQLConnectionDef }
@ -903,6 +924,26 @@ begin
Result:='Connect to MS SQL Server via Microsoft client library or via FreeTDS db-lib';
end;
class function TMSSQLConnectionDef.DefaultLibraryName: String;
begin
Result:=DBLibLibraryName;
end;
class function TMSSQLConnectionDef.LoadFunction: TLibraryLoadFunction;
begin
Result:=@InitialiseDBLib;
end;
class function TMSSQLConnectionDef.UnLoadFunction: TLibraryUnLoadFunction;
begin
Result:=@ReleaseDBLib;
end;
class function TMSSQLConnectionDef.LoadedLibraryName: string;
begin
Result:=DBLibLoadedLibrary;
end;
{ TSybaseConnectionDef }