怎么将从数据库中获得的varbinary数据类型 转换成 delphi的 string型

Question

sql2000
delphi 7 中//我搜索到 postren(小虫)的方法 不能成功 
function BinToText(const Buf: PByteArray; const Len: Integer): string;
var
  I: Integer;
begin
  Result := '';
  for I := 0 to Len-1 do
    Result := Result + Format('%.2X ', [Buf[I]]);
end;procedure TForm1.Button1Click(Sender: TObject);
var
  S: string;
begin
  ADOQuery1.Close;
  ADOQuery1.SQL.Clear;
  ADOQuery1.SQL.Add('select * from Table1');
  ADOQuery1.Open;
  S := ADOQuery1.FieldByName('vBit').Value;
  //此时
  //S = Chr(10) + Chr(11) + Chr(12) + Chr(13) + Chr(14);
  Edit1.Text := BinToText(PByteArray(@S[1]), Length(S));
end;

Answer 1

建议首先在SQL里将varbinary数据类型转换为varchar再取出来，可用convert函数
如：
insert into v_binary values
(
convert(varbinary,'hewei2003')
)select convert(varchar,v) from v_binary注：v_binary为表名 v为varbinary数据类型的字段名My Email:[email protected]

Answer 2

S := ADOQuery1.FieldByName('vBit').Value.asstring;
好像有这种用法，你看看