Форум: "Базы";
Текущий архив: 2007.07.22;
Скачать: [xml.tar.bz2];

Вниз

BLOB to string   Найти похожие ветки 

← →
_andrews_ ©   (2007-04-20 14:41) [0]

Delphi 2006, FIBPlus.
Есть BLOB поле (многострочный текст). Нужно преобразовать его Value в строку для записи в xml-файл. Как сделать преобразование (String), не подскажите?..

---

← →
Ega23 ©   (2007-04-20 14:47) [1]


function BLOBToMSSQLStr(aBLOB:TBlobField):String;
var
ms:TMemoryStream;
i:Integer;
bb:array[0..1] of byte;
begin
Result:="NULL";
if aBLOB.IsNull then Exit;
ms:=TMemoryStream.Create;
try
 aBLOB.SaveToStream(ms);
 ms.Position:=0;
 Result:="0x";
 for i:=0 to ms.Size-1 do
  begin
   ms.Read(bb,1);
   Result:=Result+Dec2Hex(bb[0],2);
  end;
finally
 ms.Free;
end;
end;


---

← →
Johnmen ©   (2007-04-20 15:03) [2]

TBlobField.SaveToFile(YourFileName);
и всё...

---

← →
Jan1   (2007-04-20 15:30) [3]

TBlobField.Value - возвращает уже строку.

---

← →
Desdechado ©   (2007-04-20 15:30) [4]

Ну, если блоб может хранить произвольные бинарные данные, то в XML его просто так не запхать.

---

← →
clickmaker ©   (2007-04-20 16:53) [5]

> Нужно преобразовать его Value в строку для записи в xml-файл

Base64Encode

---

← →
Desdechado ©   (2007-04-20 17:13) [6]

Jan1   (20.04.07 15:30) [3]
А будет ли он дышать, если длина блоба превышает 2 Гб?

---

Страницы: 1 вся ветка

Форум: "Базы";
Текущий архив: 2007.07.22;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.45 MB
Время: 0.034 c