Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2003.10.02;
Скачать: CL | DM;

Вниз

Как записать Blob в файл   Найти похожие ветки 

 
inwin   (2003-09-11 14:43) [0]

В таблице Table есть поле типа Blob. Как его содержимое записать в произвольный файл, т.е. типа Table.FieldByName("Blob").SaveToFile("...")?


 
Reindeer Moss Eater ©   (2003-09-11 14:46) [1]

TBlobStream и его методы


 
inwin   (2003-09-11 14:51) [2]

Делаю:

var
qry: TQuery;
begin
qry:=TQuery.Create(nil);
....
with qry do
begin
SQL.Add("SELECT BlobField FROM Table WHERE ...");
Open;
bs:=TBlobStream.Create(FieldByName("Blob"), bmRead); -
ругается "incompatible types TBlobField and TField". Делаем
bs:=TBlobStream.Create(TBlobField(FieldByName("Blob")), bmRead); - ошибка при выполнении


 
Reindeer Moss Eater ©   (2003-09-11 14:57) [3]

bs:=TBlobStream.Create(FieldByName("Blob"), bmRead); -
ругается "incompatible types TBlobField and TField".


1.А приведение типов для кого существует?

2.TDataSet.CreateBlobField


 
inwin   (2003-09-11 15:02) [4]

> Reindeer Moss Eater
А можно пример? Я еще не шибко все это умею...


 
Reindeer Moss Eater ©   (2003-09-11 15:03) [5]

TBlobField(FieldByName("Blob"))


 
Reindeer Moss Eater ©   (2003-09-11 15:05) [6]

CreateBlobStream(FieldByName("Blob"), bmRead)


 
-= Demon =-   (2003-09-11 15:07) [7]

var
ss: TStream;
begin
ss:=qry.CreateBlobStream(FieldByName("BlobField"), bmReadWrite);
SetLength(Buf, ss.Size + 1);
ss.ReadBuffer(Buf[0], ss.Size);
with FieldByName("BlobField") do
begin
{$I-}
AssignFile(f, FileName);
Rewrite(f);
BlockWrite(f, Buf[0], High(Buf) + 1);
CloseFile(f);
{$I+}
end;
end;


 
-= Demon =-   (2003-09-11 15:08) [8]

with FieldByName("BlobField") do
не нужно, забыл убрать :)



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

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

Наверх




Память: 0.48 MB
Время: 0.024 c
1-3873
Goorus
2003-09-18 16:56
2003.10.02
PageControl


1-3986
DBDev
2003-09-19 18:32
2003.10.02
как имея текущую дату вычислить порядковый номер недели


1-3856
Брат
2003-09-19 09:53
2003.10.02
Как активизировать открытое дочернее окно?


1-3932
Islander
2003-09-21 15:50
2003.10.02
Как называть объекты?


3-3777
P0tia
2003-09-10 18:15
2003.10.02
Все тоже удаление.