Текущий архив: 2002.06.17;
Скачать: CL | DM;

Вниз

Запись в BLOB   Найти похожие ветки 

← →
Vadik ©   (2002-05-14 15:19) [0]

Подскажите как записать в BLOB файл порциями по 32к ?

---

← →
Nikols ©   (2002-05-14 15:32) [1]

В Oracle (Пример со строкой)

function TFBDE.InsertWithBLOB(Telo, SQL: string): Integer;
var
Stream: TMemoryStream;
p: TParam;
begin
Stream := TMemoryStream.Create();
Stream.write(Telo[1], Length(Telo));
Query1.SQL.Clear;
p := TParam.Create(Query1.Params, ptInput);
p.name := "BlobParam";
p.LoadFromStream(Stream, ftBlob);
Query1.SQL.Add(SQL);
Query1.ExecSQL();
Stream.Free;
p.Free;
end;

Пример:

SQL := "insert into sometable(SOMEID, BLOBFIELD) values (1, :BlobParam)";
InsertWithBLOB(XMLWork.XML, SQL);

Можно все что необходимо записать в поток (32 к), а потом в параметр. Это просто пример.

---

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

Текущий архив: 2002.06.17;
Скачать: CL | DM;

Наверх

Память: 0.46 MB
Время: 0.014 c