ViewVC Help
View File | Revision Log | Show Annotations | Download File | View Changeset | Root Listing
root/public/ibx/trunk/fbintf/client/FBAttachment.pas
(Generate patch)

Comparing ibx/trunk/fbintf/client/FBAttachment.pas (file contents):
Revision 60 by tony, Mon Mar 27 15:21:02 2017 UTC vs.
Revision 70 by tony, Thu Oct 26 12:59:51 2017 UTC

# Line 277 | Line 277 | begin
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       :
# Line 286 | Line 292 | begin
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;

Diff Legend

Removed lines
+ Added lines
< Changed lines
> Changed lines