目录

读取数据库varbinary字段的方法SqlServer,MySql

JAY.LIN 收录于 Delphi

2024-01-03 约 426 字预计阅读 1 分钟

https://bing.ee123.net/img/rand?artid=81413460

目录

读取数据库varbinary字段的方法（SqlServer，MySql）

（：数据库不一样，读取方法不一样

假如我数据中有一个字段名为vardata1的数据，存放的是int数组，每个数据4个字节，2000个整型字符数据共8000个字节，在数据库中一般定义为： vardata1 varbinary(8000)，SqlServer及Mysql的字段类型相同，在delphi中数组为arr1: array[0..1999] of integer，但是使用Ado及UniDac控件，读取的方法不尽相同，以下是参数代码：

//数据库为SqlServer，读取函数

type
  TArrdata = array[0..1999] of integer;

procedure read(arrData: TArrdata; var qQuery: TAdoQuery);
var
  byte_temp: Tbytes;
  field: TField;
begin
  qQuery.sql.text:= 'select vardata1 from table1';
  qQuery.open;

  if qQuery.recordCount > 0 then
  begin
    field:= qQuery.FieldByName('vardata1');
    if (field <> nil) and (not field.isnull) then
    begin
      byte_temp:= field.value;
      move(byte_temp[0], arrData[0], sizeof(Tarrdata));
      setlength(byte_temp,0);
    end;
  end;
end;

//数据库为Mysql，读取函数

type
  TArrdata = array[0..1999] of integer;

procedure read(arrData: TArrdata; var qQuery: TAdoQuery);
var
  field: TField;
  str1: string;
begin
  //语句中用了mysql的hex将字段转换成十六进制的字符串，必须
  qQuery.sql.text:= 'select hex(vardata1) data1 from table1';  
  qQuery.open;

  if qQuery.recordCount > 0 then
  begin
    field:= qQuery.FieldByName('data1');
    if (field <> nil) and (not field.isnull) then
    begin
      str1:= field.asString; //字符串
      if length(str1) = sizeof(arrData) * 2 then  //刚好两倍大小
        HexToBin(PAnsiChar(str1), PAnsiChar(@arrData[0]), sizeof(arrData)); //转为二进制

      str1:= '';
    end;
  end;
end;