Tim

> SetLength(TempString,(Length(DoubleArray)*SizeOf(Double)));
> Move(DoubleArray[0],TempString[1],Length(TempString));

Neat way to convert to a string - I'll add to my toolbox.

Does using .AsBlob mean you don't have to use BinaryToSQLStr?

Roy Lambert

Roy,

<< Does using .AsBlob mean you don't have to use BinaryToSQLStr? >>

AsBlob basically is just an AnsiString property in the older versions of
Delphi so yes, you should not use BinaryToSQLStr because the TParam actually
wants a straight-up buffer, not a hex-encoded string.  There's a lot of this
"string abuse" in the earlier days of Delphi where byte arrays weren't used
as much.  Now that byte arrays are more prevalent, the AsBlob property in
the newer versions of Delphi use byte arrays (TBytes).

Which basically brings me to my next statement:  David, I gave you the
information for older versions of Delphi, not Delphi XE.  With Delphi XE,
you can use this:

var
  DoubleArray: array of Double;
  TempBytes: TBytes;
begin
  SetLength(DoubleArray,10);
  DoubleArray[0]:=100;
  DoubleArray[9]:=200;
  SetLength(TempBytes,(Length(DoubleArray)*SizeOf(Double)));
  Move(DoubleArray[0],TempBytes[0],Length(TempBytes));
  with EDBQuery1 do
     begin
     SQL.Text:='insert into david (ID, DATA) values (:ID, :DATA)';
     Prepare;
     ParamByName('ID').ParamType:=ptInputOutput;
     ParamByName('DATA').AsBlob:=TempBytes;
     ExecSQL;
     end;
end;

--
Tim Young
Elevate Software
www.elevatesoft.com