Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Из VarBinary к Array of byte / 3 сообщений из 3, страница 1 из 1
18.11.2003, 14:16
    #32327484
Steeks
Steeks
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Из VarBinary к Array of byte
Через ADOQuery получаю RecordSet, в котором одно из полей varbinary(200).
Тип значения любого поля у RecordSet - OleVariant. Как мне преобразовать данное значение в Array of byte, или HexString, или в что-нибудь удобное потом для разбора?
Пробовал VarToStr, но упираюсь в нулевые байты, если они есть.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
18.11.2003, 14:27
    #32327513
ZrenBy
ZrenBy
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Из VarBinary к Array of byte
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
procedure TForm1.Button3Click(Sender: TObject);
var V:Variant; S:String; i:Integer;
begin
  ADODataSet1.CommandText := 'select ID,B from TBL_B where ID=2';
  //где поле B - varbinary( 500 )
  ADODataSet1.Open;
  V := ADODataSet1.Fields[ 1 ].Value;
  ADODataSet1.Close;
  S := '0x';
  for i :=  0  to (VarArrayHighBound(V, 1 )) do S := S+ IntToHex(V[i], 2 );
  Memo1.Lines.Text := S;
end;
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
18.11.2003, 14:39
    #32327531
Steeks
Steeks
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Из VarBinary к Array of byte
а ведь работает зараза :)
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Из VarBinary к Array of byte / 3 сообщений из 3, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]