| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

BLOB to string

_andrews_ ©   (2007-04-20 14:41:00) 

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

---

Desdechado   (2007-04-20 17:13:00) [1]

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

---

clickmaker   (2007-04-20 16:53:00) [2]

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

Base64Encode

---

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

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

---

Desdechado   (2007-04-20 15:30:00) [4]

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

---

Johnmen   (2007-04-20 15:03:00) [5]

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

---

Ega23   (2007-04-20 14:47:00) [6]


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;


---

Наверх