paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-20 04:59:26 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Switched to using ansistring, because dynlibs use ansistrings

Browse Source 
git-svn-id: trunk@22949 -
This commit is contained in:
michael 2012-11-07 23:08:31 +00:00
parent d9511be84b
commit 5f053be31d
5 changed files with 13 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
packages/dblib/src/dblib.pp
View File

@ -380,7 +380,7 @@ procedure dbwinexit;
function dbsetlcharset(login:PLOGINREC; charset:PChar):RETCODE;
function dbsetlsecure(login:PLOGINREC):RETCODE;
function InitialiseDBLib(const LibraryName : shortstring = ''): integer;
function InitialiseDBLib(const LibraryName : ansistring): integer;
procedure ReleaseDBLib;
implementation
@ -391,7 +391,7 @@ uses SysUtils, Dynlibs;
var DBLibLibraryHandle: TLibHandle;
RefCount: integer;
function InitialiseDBLib(const LibraryName : shortstring): integer;
function InitialiseDBLib(const LibraryName : ansistring): integer;
var libname : string;
begin
inc(RefCount);

2
packages/fcl-db/src/sqldb/sqldb.pp
View File

@ -475,7 +475,7 @@ type
TSQLConnectionClass = Class of TSQLConnection;
{ TConnectionDef }
TLibraryLoadFunction = Function (Const S : ShortString) : Integer;
TLibraryLoadFunction = Function (Const S : AnsiString) : Integer;
TLibraryUnLoadFunction = Procedure;
TConnectionDef = Class(TPersistent)
Class Function TypeName : String; virtual;

6
packages/ibase/src/ibase60.inc
View File

@ -2459,7 +2459,7 @@ var
isc_suspend_window : function (_para1:PISC_STATUS; _para2:Pisc_win_handle):ISC_STATUS; extdecl;
{$ENDIF}
function InitialiseIBase60(Const LibraryName : String) : integer;
function InitialiseIBase60(Const LibraryName : AnsiString) : integer;
function InitialiseIBase60 : integer;
procedure ReleaseIBase60;
@ -2481,7 +2481,7 @@ var
RefCount : integer;
LoadedLibrary : String;
Function TryInitialiseIBase60(Const LibraryName : String) : integer;
Function TryInitialiseIBase60(Const LibraryName : AnsiString) : integer;
begin
Result := 0;
@ -2689,7 +2689,7 @@ begin
Result := RefCount;
end;
function InitialiseIBase60(Const LibraryName : String) : integer;
function InitialiseIBase60(Const LibraryName : AnsiString) : integer;
begin
Result := TryInitialiseIBase60(LibraryName);

10
packages/mysql/src/mysql.inc
View File

@ -1596,8 +1596,8 @@ uses
{$endif}
{$IFDEF LinkDynamically}
Function InitialiseMysql(Const LibraryName : String) : Integer;
Function InitialiseMysql(Const LibraryName : String; argc: cint; argv:PPchar = Nil; groups:PPchar = nil) : Integer;
Function InitialiseMysql(Const LibraryName : AnsiString) : Integer;
Function InitialiseMysql(Const LibraryName : AnsiString; argc: cint; argv:PPchar = Nil; groups:PPchar = nil) : Integer;
Function InitialiseMysql(argc:cint = -1; argv:PPchar = nil; groups:PPchar = nil) : Integer;
Procedure ReleaseMysql;
@ -1617,7 +1617,7 @@ ResourceString
var
RefCount : integer;
Function TryInitialiseMysql(Const LibraryName: String; argc: cint; argv: PPchar; groups: PPchar) : Integer;
Function TryInitialiseMysql(Const LibraryName: AnsiString; argc: cint; argv: PPchar; groups: PPchar) : Integer;
begin
Result := 0;
@ -1756,13 +1756,13 @@ begin
Result := RefCount;
end;
Function InitialiseMysql(Const LibraryName: String) : Integer;
Function InitialiseMysql(Const LibraryName: AnsiString) : Integer;
begin
Result:=InitialiseMySQL(LibraryName,-1,Nil,Nil);
end;
Function InitialiseMysql(Const LibraryName: String; argc: cint; argv: PPchar; groups:PPchar) : Integer;
Function InitialiseMysql(Const LibraryName: AnsiString; argc: cint; argv: PPchar; groups:PPchar) : Integer;
begin
Result := TryInitialiseMysql(LibraryName,argc,argv,groups);

4
packages/postgres/src/postgres3dyn.pp
View File

@ -218,7 +218,7 @@ var
{ Get encoding id from environment variable PGCLIENTENCODING }
PQenv2encoding: function :longint;cdecl;
Function InitialisePostgres3(Const libpath : shortstring) : integer;
Function InitialisePostgres3(Const libpath : ansistring) : integer;
Procedure InitialisePostgres3;
Procedure ReleasePostgres3;
@ -247,7 +247,7 @@ begin
end;
function InitialisePostgres3(Const libpath : shortstring) : Integer;
function InitialisePostgres3(Const libpath : ansistring) : Integer;
begin
inc(RefCount);