|
|
|
Как из Delphi работать с MS SQL полями типа binary(8)?
|
|||
|---|---|---|---|
|
#18+
Hi All! У меня возникла такая проблема: Работаю из Delphi c MS SQL 7.0. В таблицах содержатся поля типа binary(8). В Query Analizer значения этих полей выводятся в формате 0x8001000000D32767. Delphi же определяет эти поля как TbytesField И в качестве значений выводит (BYTES). Как в Delphi увидеть реальное значение в том же формате что выводит Query Analizer? (0x0000000000000000) Заранее благодарен за помощь ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 06.09.2002, 16:21:39 |
|
||
|
Как из Delphi работать с MS SQL полями типа binary(8)?
|
|||
|---|---|---|---|
|
#18+
Какая потрясающая беспомощность! По сути ты просишь, чтобы тебе написали на дельфи или T-SQL функцию, которая бы из массива байтов формировала строку. Извини, но лениво. Хотя заняло бы всего 5 минут. ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 06.09.2002, 16:40:06 |
|
||
|
Как из Delphi работать с MS SQL полями типа binary(8)?
|
|||
|---|---|---|---|
|
#18+
2 Dankov: Совершенно недостойный ответ ... Выглядит так: я жутко распальцованный чувак и все знаю, но вам не скажу ибо крутые ПАЦАНЫ с ламаками места на винте не делят ... 2 igornov: Код: plaintext 1. 2. Вроде так ... ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 07.09.2002, 21:12:18 |
|
||
|
Как из Delphi работать с MS SQL полями типа binary(8)?
|
|||
|---|---|---|---|
|
#18+
Согласен с Trong. Правда его предложение не работает. Согласен и с Dankov - дело плевое. Но иногда у каждого случается затык. Но и igornov не стоило бы бросать вопрос в разные форумы. Причем этот вопрос чисто дельфийский. ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 07.09.2002, 22:13:26 |
|
||
|
Как из Delphi работать с MS SQL полями типа binary(8)?
|
|||
|---|---|---|---|
|
#18+
Ну вот ... меня почти запинали и поскольку на форуме я в первый раз то если честно и не надеялся на помощь. Просто думал есть уже у людей готовые решения... ...и вот состряпал вот такое как вариант: function BytesToStr(Fld: TBytesField): String; var aByte: array of Byte; i: Integer; begin SetLength(aByte, Fld.DataSize); if Fld.GetData(aByte) then begin Result := '0x'; for i := 0 to Fld.DataSize - 1 do Result := Result + IntToHex(aByte , 2) end else Result := '' end; Спасибо всем за помощь и справедливую критику. Вопрос снят. ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 11.09.2002, 09:34:29 |
|
||
|
Как из Delphi работать с MS SQL полями типа binary(8)?
|
|||
|---|---|---|---|
|
#18+
Насчет "запинали" ты не совсем прав. Насчет постов от "Trong" и "Cat2" не скажу, скажу только за свой. Это была рекомендация подумать над решением с недвусмысленным намеком, что это решение может быть простым ("потрясающая беспомощность") и недолгим ("5 минут"), а также с точным указанием направления, каким путем этого решения достичь ("функция на Delphi или T-SQL..."). С удовлетворением вижу, что мой совет 100% помог, на что я и расчитывал. А уж за стиль совета - извините. В данном случае он мне показался наиболее подходящим. Главное в совете - рациональное зерно, реально помогающее и направляющее, а не стиль. ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 11.09.2002, 11:40:04 |
|
||
|
|

start [/forum/topic.php?fid=46&msg=32049621&tid=1820434]: |
0ms |
get settings: |
6ms |
get forum list: |
15ms |
check forum access: |
3ms |
check topic access: |
3ms |
track hit: |
66ms |
get topic data: |
10ms |
get forum data: |
3ms |
get page messages: |
42ms |
get tp. blocked users: |
2ms |
| others: | 221ms |
| total: | 371ms |

| 0 / 0 |
