Param loaded from stream raises an EVariantBadIndexError

[a.alekizoglou]

I have a problem with latest UniDAC.

I load a parameter from a stream file with

Code: Select all

fMemStream.Position := 0;
MyQuery.Params[i].LoadFromStream(fMemStream, ftBlob);
fMemStream.Clear;

When I run MyQuery.Execute I get an EVariantBadIndexError. The problem is in the procedure TCustomDASQL.AssignParamValue(ParamDesc: TParamDesc; Param: TDAParam).

In fact the Param.GetNativeParamObject does not get propagated immediately when the parameter is some KB. If i put a breakpoint and wait for the hint to come on the IDE for the Param.GetNativeParamObject, then the whole execution works.

Does this have to do with LoadFromStream(fMemStream, ftBlob)?

[AlexP]

Hello,

Please specify the name of the DB you are using, also send a small sample reproducing the problem to alexp*devart*com (including the script for creating the table)

[a.alekizoglou]

AlexP thanks,

I found the problem is related to Delphi XE3. I have to check the blob for blank and set it to null like

Code: Select all

          if fMemStream.Size = 0 then
            Params[i].Value := null
          else
            Params[i].LoadFromStream(fMemStream, ftBlob);

[AlexP]

Hello,

Glad to see that you solved the problem. If you have any other questions, feel free to contact us