КПК, Palm
Здравствуйте, Все.
Кто-нибудь пишет под них, если да то какой язык и где бы про это
почитать.
Заранее спасибо!
Подписаться
Бесплатный дискуссионный лист
Подписчиков 308
| ← Август 2005 → | ||||||
|
6
|
||||||
|---|---|---|---|---|---|---|
|
8
|
9
|
12
|
||||
|
17
|
||||||
|
27
|
||||||
|
29
|
30
|
|||||
За последние 60 дней ни разу не выходила
Сайт листа:
http://codeguru.ru
Открыт:
21-09-2003
Пре-модерация: Нет
Адрес для писем в лист: comp.soft.prog.prog-list@subscribe.ru
Адрес
модератора: comp.soft.prog.prog-owner@subscribe.ru
Модератор
Статистика
308 подписчиков
0 за неделю
0 за неделю
За 2005-08-22
КПК, Palm
Здравствуйте, Все.
Кто-нибудь пишет под них, если да то какой язык и где бы про это
почитать.
Заранее спасибо!
Дельфи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'.
Как же мне прочитать? Может по другому заносить, что-бы правильно
прочитало?
Re[3]: TStrings in Record
Здравствуйте, -=BETA,
ШП>> Реализовать свой класс с методом сохранения.
BT> Как это?
Например так:
type
TMyRec = class
stri: TStrings;
procedure SaveToFile(NameFile:string);
end;
procedure TMyRec.SaveToFile(NameFile:string);
begin
//А тут реализуешь процедуру сохранения, можешь через потоки, можешь
по простецки.
end;
procedure TForm1.Button1Click(Sender: TObject);
var
F: file of TMyRec;
R: TMyRec;
begin
R.stri := TStringList.Create;
R.stri.Add('test');
R.SaveToFile('c:\MyFile.dat');
R.stri.Free;
end;
