Форум: "Базы";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.01.31;
Скачать: [xml.tar.bz2];




Вниз

Mетафайлы 


AlexP   (2001-12-26 22:09) [0]

Уважаемые мастера, подскажите. Есть база InterBase Необходимо сохранить некую схему в графическом формате в одном из BLOB полей с возможностью использования этого рисунка в дальнейшем. На одной из форм необходимо этот рисунок из базы воспроизводить (заменить, удалить ...). Для отображения используется DBImage. С грехом пополам удалось отобразить загружаемый с диска метафайл в этом компоненте, но никак не удается этот графический файл сохранить в поле базы. При исп. BMP - никаких проблем. Подскажите, в чем секрет.



SergVlad   (2001-12-26 23:16) [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;




Форум: "Базы";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.01.31;
Скачать: [xml.tar.bz2];




Наверх





Память: 0.71 MB
Время: 0.039 c
1-99982           roman001              2002-01-11 19:35  2002.01.31  
Эмуляция нажатия клавы


1-99929           usverg                2002-01-12 21:09  2002.01.31  
access violation error


3-99910           alextov               2001-12-24 19:33  2002.01.31  
Не могу корректно записать число, оканчивающееся на ноль в базу


1-99938           дикое Кенгуру         2002-01-06 06:46  2002.01.31  
Как вставить в TRichEdit такоеже выпадающее меню как в TEdit ? Чтобы не писать своё и не делать мартышкин труд.


3-99857           dorosh                2001-12-26 12:53  2002.01.31  
Date