| 277 |
|
case params[i].vtype of |
| 278 |
|
vtinteger : |
| 279 |
|
SQLParams[i].AsInteger := params[i].vinteger; |
| 280 |
+ |
vtInt64: |
| 281 |
+ |
SQLParams[i].AsInt64 := params[i].VInt64^; |
| 282 |
+ |
{$IF declared (vtQWord)} |
| 283 |
+ |
vtQWord: |
| 284 |
+ |
SQLParams[i].AsInt64 := params[i].VQWord^; |
| 285 |
+ |
{$IFEND} |
| 286 |
|
vtboolean : |
| 287 |
|
SQLParams[i].AsBoolean := params[i].vboolean; |
| 288 |
|
vtchar : |
| 292 |
|
vtCurrency: |
| 293 |
|
SQLParams[i].AsDouble := params[i].VCurrency^; |
| 294 |
|
vtString : |
| 295 |
< |
SQLParams[i].AsString := params[i].VString^; |
| 295 |
> |
SQLParams[i].AsString := strpas(PChar(params[i].VString)); |
| 296 |
|
vtPChar : |
| 297 |
|
SQLParams[i].AsString := strpas(params[i].VPChar); |
| 298 |
|
vtAnsiString : |
| 299 |
< |
SQLParams[i].AsString := AnsiString(params[i].VAnsiString^); |
| 299 |
> |
SQLParams[i].AsString := strpas(PAnsiChar(params[i].VAnsiString)); |
| 300 |
|
vtVariant: |
| 301 |
|
SQLParams[i].AsVariant := params[i].VVariant^; |
| 302 |
+ |
vtWideChar: |
| 303 |
+ |
SQLParams[i].AsString := UTF8Encode(WideCharLenToString(@params[i].VWideChar,1)); |
| 304 |
+ |
vtPWideChar: |
| 305 |
+ |
SQLParams[i].AsString := UTF8Encode(strpas(PWideChar(params[i].VPWideChar))); |
| 306 |
+ |
vtWideString: |
| 307 |
+ |
SQLParams[i].AsString := UTF8Encode(strpas(PWideChar(params[i].VWideString))); |
| 308 |
+ |
vtUnicodeString: |
| 309 |
+ |
SQLParams[i].AsString := UTF8Encode(strpas(PWideChar(params[i].VUnicodeString))); |
| 310 |
|
else |
| 311 |
|
IBError(ibxeInvalidVariantType,[nil]); |
| 312 |
|
end; |
