paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-14 19:29:39 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Fix bug ID #33922

Browse Source 
git-svn-id: trunk@39318 -
This commit is contained in:
michael 2018-06-28 07:54:29 +00:00
parent 88d9dd23ae
commit b2d386b404
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
packages/fcl-db/src/sqldb/mysql/mysqlconn.inc
View File

@ -117,12 +117,12 @@ Type
function GetServerStatus: String; function GetServerStatus: String;
procedure ConnectMySQL(var HMySQL: PMySQL); procedure ConnectMySQL(var HMySQL: PMySQL);
procedure ExecuteDirectMySQL(const query : string); procedure ExecuteDirectMySQL(const query : string);
function EscapeString(const Str : string) : string;
protected protected
Procedure ConnectToServer; virtual; Procedure ConnectToServer; virtual;
Procedure SelectDatabase; virtual; Procedure SelectDatabase; virtual;
function MySQLDataType(AField: PMYSQL_FIELD; var NewType: TFieldType; var NewSize: Integer): Boolean; function MySQLDataType(AField: PMYSQL_FIELD; var NewType: TFieldType; var NewSize: Integer): Boolean;
function MySQLWriteData(AField: PMYSQL_FIELD; FieldDef: TFieldDef; Source, Dest: PChar; Len: integer; out CreateBlob : boolean): Boolean; function MySQLWriteData(AField: PMYSQL_FIELD; FieldDef: TFieldDef; Source, Dest: PChar; Len: integer; out CreateBlob : boolean): Boolean;
function EscapeString(const Str : string) : string;
// SQLConnection methods // SQLConnection methods
procedure DoInternalConnect; override; procedure DoInternalConnect; override;