读取数据库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;

 

你可能感兴趣的:(Delphi)