EVariantBadVar: Invalid Variant Type with TBytesField since upgrade to Delphi Seattle

Asked Jan 19 '16 at 12:36

Active Oct 06 '16 at 14:56

Viewed 253 times

since I upgrade from Delphi XE to Delphi Seattle I got an EVariantBadVar when I try to assign a value to a TBytesField like

procedure Test.SetHash(hash : TByteDynArray);
var
query : TAdoQuery;
a: TArray<byte>;
begin
query := ....
query.Sql.Text := 'SELECT [Key], [Hash] FROM [HashValues]...';
query.Insert();
a := TArray<byte>(hash);
// hash is from a webservice with type TByteDynArray
query.Fields[1].AsBytes := a; // here occurs the exception
query.Post();
...

The same code works without problems in Delphi XE.

edited Oct 06 '16 at 14:56

Danilo Casa

asked Jan 19 '16 at 12:36

Sebastian

Sorry it was Byte not Bytes – Sebastian Jan 19 '16 at 14:19
1

Yes, this smells a little like fake code. Anyway, why are you using `TByteDynArray`? You should use `TBytes`. Replace all use of `TByteDynArray` in your program with `TBytes`. Then you can remove the variable `a` and remove that rather dubious cast. – David Heffernan Jan 19 '16 at 14:36
TByteDynArray comes from the autogenerated class from a wsdl – Sebastian Jan 19 '16 at 14:47
What is the field type of `Hash`? – J... Jan 19 '16 at 15:02
`TByteDynArray` and the cast don't feel very good though do they? Are you sure that's the best way to write the code? – David Heffernan Jan 19 '16 at 15:07

EVariantBadVar: Invalid Variant Type with TBytesField since upgrade to Delphi Seattle

0 Answers0