ReSQL.ru
     
powered by simpleCommunicator - 2.0.60     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Из VarBinary к Array of byte
3 сообщений из 3, страница 1 из 1
Из VarBinary к Array of byte
    #32327484
Steeks
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Steeks
Гость
Через ADOQuery получаю RecordSet, в котором одно из полей varbinary(200).
Тип значения любого поля у RecordSet - OleVariant. Как мне преобразовать данное значение в Array of byte, или HexString, или в что-нибудь удобное потом для разбора?
Пробовал VarToStr, но упираюсь в нулевые байты, если они есть.
...
Рейтинг: 0 / 0
18.11.2003, 14:16
| Ответить | Цитировать | Написать  
Из VarBinary к Array of byte
    #32327513
ZrenBy
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ZrenBy
Участник
Код: 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:27
| Ответить | Цитировать | Написать  
Из VarBinary к Array of byte
    #32327531
Steeks
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Steeks
Гость
а ведь работает зараза :)
...
Рейтинг: 0 / 0
18.11.2003, 14:39
| Ответить | Цитировать | Написать  
3 сообщений из 3, страница 1 из 1
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Из VarBinary к Array of byte
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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