Отправляет email-рассылки с помощью сервиса Sendsay

Программирование. Форум !!!

Дельфи6. Чтение/запись WMF-файла в BLOB-поле.

Здравствуйте все,

Что-то не получается.
Заношу так:
var nameFile:string;
wmf:TMetafile;
oMem:TMemoryStream;
begin
OpenDialog1.Filter :='Изображение (*.wmf)|*.WMF';
if OpenDialog1.Execute then begin
Namefile:=OpenDialog1.FileName;
wmf:=TMetafile.Create;
wmf.LoadFromFile(Namefile);
oMem:=TMemoryStream.Create;
wmf.SaveToStream(oMem);
dm_docs.tbl_forms.Edit;
dm_docs.tbl_formsSlide.LoadFromStream(oMem);
dm_docs.tbl_forms.Post;
wmf.Free;
end;
end;
А вот обратно читать не дает:
oMem:=TMemoryStream.Create;
dm_docs.tbl_formsSlide.SaveToStream(oMem);
wmf:=TMetafile.Create;
wmf.LoadFromStream(oMem);
Выдает ошибку: 'Metafile is not valid'.

Как же мне прочитать? Может по другому заносить, что-бы правильно
прочитало?

Ответить   Mon, 22 Aug 2005 12:33:34 +0600 (#421466)