Mетафайлы
AlexP © (2001-12-26 22:09:00)
Уважаемые мастера, подскажите. Есть база InterBase Необходимо
сохранить некую схему в графическом формате в одном из BLOB полей с
возможностью использования этого рисунка в дальнейшем. На одной из
форм необходимо этот рисунок из базы воспроизводить (заменить,
удалить ...). Для отображения используется DBImage. С грехом
пополам удалось отобразить загружаемый с диска метафайл в этом
компоненте, но никак не удается этот графический файл сохранить в
поле базы. При исп. BMP - никаких проблем. Подскажите, в чем
секрет.
SergVlad (2001-12-26 23:16:00) [1]
BLOB принимает любые двоичные данные неважно какого исходного
формата.
Примерно так.
FileStream := TFileStream.Create(
"C:\COOL.WMF",
fmOpenRead);
Table1.Edit;
BlobStream := TBlobStream.Create(Table1WMF, bmReadWrite);
BlobStream.Seek(0, soFromBeginning);
BlobStream.Truncate;
BlobStream.CopyFrom(FileStream, FileStream.Size);
FileStream.Free;
BlobStream.Free;
Table1.Post;
Наверх 
ЧАТ |
Орешник |
|
