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

odbc: fix passing ANSI parameters with FPC character conversion

Browse Source 
git-svn-id: trunk@43698 -
This commit is contained in:
ondrej 2019-12-19 16:41:57 +00:00
parent 49ba4731ed
commit a66442ea47
1 changed files with 13 additions and 28 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

41
packages/fcl-db/src/sqldb/odbc/odbcconn.pas
View File

@ -400,6 +400,7 @@ var
BufferLength, StrLenOrInd: SQLLEN;
CType, SqlType, DecimalDigits:SQLSMALLINT;
APD: SQLHDESC;
BytesVal: TBytes;
begin
// Note: it is assumed that AParams is the same as the one passed to PrepareStatement, in the sense that
// the parameters have the same order and names
@ -440,43 +441,27 @@ begin
SqlType:=SQL_BIGINT;
ColumnSize:=19;
end;
ftString, ftFixedChar, ftBlob, ftMemo, ftGuid,
ftBytes, ftVarBytes:
ftBlob, ftBytes, ftVarBytes:
begin
StrVal:=AParams[ParamIndex].AsString;
StrLenOrInd:=Length(StrVal);
if StrVal='' then //HY104
BytesVal:=AParams[ParamIndex].AsBytes;
StrLenOrInd:=Length(BytesVal);
if Length(BytesVal)=0 then //HY104
begin
StrVal:=#0;
BytesVal:=[0];
StrLenOrInd:=SQL_NTS;
end;
PVal:=@StrVal[1];
Size:=Length(StrVal);
PVal:=@BytesVal[0];
Size:=Length(BytesVal);
ColumnSize:=Size;
BufferLength:=Size;
CType:=SQL_C_BINARY;
case AParams[ParamIndex].DataType of
ftBytes, ftVarBytes:
begin
CType:=SQL_C_BINARY;
SqlType:=SQL_VARBINARY;
end;
ftBlob:
begin
CType:=SQL_C_BINARY;
ftBytes, ftVarBytes: SqlType:=SQL_VARBINARY;
else // ftBlob
SqlType:=SQL_LONGVARBINARY;
end;
ftMemo:
begin
CType:=SQL_C_CHAR;
SqlType:=SQL_LONGVARCHAR;
end
else // ftString, ftFixedChar
begin
CType:=SQL_C_CHAR;
SqlType:=SQL_VARCHAR;
end;
end;
end;
ftString, ftFixedChar, ftMemo, ftGuid, // string parameters must be passed as widestring to support FPC 3.0.x character conversion
ftWideString, ftFixedWideChar, ftWideMemo:
begin
WideStrVal:=AParams[ParamIndex].AsWideString;
@ -492,7 +477,7 @@ begin
BufferLength:=Size;
CType:=SQL_C_WCHAR;
case AParams[ParamIndex].DataType of
ftWideMemo: SqlType:=SQL_WLONGVARCHAR;
ftMemo, ftWideMemo: SqlType:=SQL_WLONGVARCHAR;
else SqlType:=SQL_WVARCHAR;
end;
end;