Текущий архив: 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
