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

Merged revisions 4032,4043 via svnmerge from

Browse Source 
svn+ssh://joost@svn.freepascal.org/FPC/svn/fpc/trunk

........
r4032 | joost | 2006-07-01 12:17:22 +0200 (Sat, 01 Jul 2006) | 1 line

 + dbconst.pp should contain resourcestrings
........
r4043 | joost | 2006-07-01 23:25:52 +0200 (Sat, 01 Jul 2006) | 2 lines

 + Escape strings in string-parameters
 + fix in the MySQL-bindings
........

git-svn-id: branches/fixes_2_0@4045 -
This commit is contained in:
joost 2006-07-01 21:32:41 +00:00
parent 2d34f1ce50
commit 0bc6462da5
3 changed files with 38 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
fcl/db/dbconst.pp
View File

@ -18,7 +18,7 @@ unit dbconst;
Interface
Const
Resourcestring
SActiveDataset = 'Operation cannot be performed on an active dataset';
SBadParamFieldType = 'Bad fieldtype for parameter "%s".';
SCantSetAutoIncFields = 'AutoInc Fields are read-only';

36
fcl/db/sqldb/mysql/mysqlconn.inc
View File

@ -71,6 +71,9 @@ Type
procedure DoInternalDisconnect; override;
function GetHandle : pointer; override;
function GetAsSQLText(Field : TField) : string; overload; virtual;
function GetAsSQLText(Param : TParam) : string; overload; virtual;
Function AllocateCursorHandle : TSQLCursor; override;
Procedure DeAllocateCursorHandle(var cursor : TSQLCursor); override;
Function AllocateTransactionHandle : TSQLHandle; override;
@ -184,6 +187,39 @@ begin
MySQlError(Nil,SErrServerConnectFailed,Self);
end;
function TConnectionName.GetAsSQLText(Field : TField) : string;
var esc_str : pchar;
begin
if (not assigned(field)) or field.IsNull then Result := 'Null'
else if field.DataType = ftString then
begin
Getmem(esc_str,sizeof(field.asstring)*2+1);
mysql_real_escape_string(FMySQL,esc_str,pchar(field.asstring),length(field.asstring));
Result := '''' + esc_str + '''';
Freemem(esc_str);
end
else Result := inherited GetAsSqlText(field);
end;
function TConnectionName.GetAsSQLText(Param: TParam) : string;
var esc_str : pchar;
begin
if (not assigned(param)) or param.IsNull then Result := 'Null'
else if param.DataType = ftString then
begin
Getmem(esc_str,sizeof(param.asstring)*2+1);
mysql_real_escape_string(FMySQL,esc_str,pchar(param.asstring),length(param.asstring));
Result := '''' + esc_str + '''';
Freemem(esc_str);
end
else Result := inherited GetAsSqlText(Param);
end;
procedure TConnectionName.ConnectToServer;
Var

2
packages/base/mysql/mysql.inc
View File

@ -1568,7 +1568,7 @@ begin
pointer(mysql_ping) := GetProcedureAddress(MysqlLibraryHandle,'mysql_ping');
pointer(mysql_query) := GetProcedureAddress(MysqlLibraryHandle,'mysql_query');
pointer(mysql_real_connect) := GetProcedureAddress(MysqlLibraryHandle,'mysql_real_connect');
pointer(mysql_real_escape_string) := GetProcedureAddress(MysqlLibraryHandle,'mysql_real_escape_String');
pointer(mysql_real_escape_string) := GetProcedureAddress(MysqlLibraryHandle,'mysql_real_escape_string');
pointer(mysql_real_query) := GetProcedureAddress(MysqlLibraryHandle,'mysql_real_query');
pointer(mysql_refresh) := GetProcedureAddress(MysqlLibraryHandle,'mysql_refresh');
// pointer(mysql_reload) := GetProcedureAddress(MysqlLibraryHandle,'mysql_reload');