| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Как правильно работать с BLOB [D7, IB6.x]
Igorr © (2003-12-22 16:40:00)
Такая цитата на ibase.ru
procedure TForm1.Button1Click(Sender: TObject);
var B: TIBBlobStream;
begin
B:=IBDataSet1.CreateBlobStream(IBDataSet1.FieldByName("BLB") as
TBlobField, bmRead);
B.SaveToFile("c:\blob.bin");
B.Free;
end;
Создаю у себя аналогичный код:
B:=IBQo.CreateBlobStream(IBQo.FieldByName(GetNParam(paParams,0)) as
TBlobField, bmRead);
B.SaveToFile(GetNParam(paParams,1));
B.Free;
IBQo - IBQuery
Ругается Incompatible types TIBBlobStream and TStream
Если делаю B:TStreem, то SaveToFile не работает. Как же правильно прочитать
из Blob
MV (2003-12-22 17:24:00) [21]
Ну, например, грузим картинку в Image1 из поля Map текущей записи:
var S : TStream;
begin
// Загрузка картинки
if not DataSet.FieldByName("Map").IsNull then begin
S := DataSet.CreateBlobStream(
DataSet.FieldByName("Map"), bmReadWrite);
try
try
Image1.Picture.Bitmap.LoadFromStream(S);
except
on E : Exception do ShowMessage("Ошибка при загрузке картинки"#13+
E.Message);
end
finally
S.Free;
end
end;
Igorr (2003-12-22 17:07:00) [22]
Нашел ответы тут, а там ве то же что я и знал. И все таки у кого-то есть пример, как это правильно делать (сохранять из файла в Blob и восстанавливать из Blob в файл)
JibSkeart (2003-12-22 16:42:00) [23]
воспользуйся поиском сдесь уже были подобные темы
Sandman25 (2003-12-22 16:41:00) [24]
B := (TIBBlobStream)IBQo.CreateBlobStream(...)
| |
Страницы: 