| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Только для настоящих мастеров:сохранение Битмапа и Лайнс в оди...

Cr@sh ©   (2002-09-01 10:36:00) 

н файл.
Добрый день, Ув. Мастера.
Не могли бы Вы подсказать, как реализовать следующее:
Имеется имэйдж с некоторым графиком и имеется мемо с параметрами графика(высоты, отметки и др.).
Как сделать так, чтобы можно было сохранить график и содержимое мемо в один файл, но чтобы при этом можно было бы извлечь, как рисунок(график), так и параметры, для дальнейшей обработки.
Заранее спасибо.

---

Almaz   (2002-09-02 02:30:00) [1]

Например так:

procedure TForm1.SaveToFile(FileName: String);
var
F: TFileStream;
begin
F := TFileStream.Create(FileName, fmCreate);
Image1.Picture.Bitmap.SaveToStream(F);
Memo1.Lines.SaveToStream(F);
F.Free;
end;

procedure TForm1.LoadFromFile(FileName: String);
var
F: TFileStream;
begin
F := TFileStream.Create(FileName, fmOpenReadWrite);
Image1.Picture.Bitmap := TBitmap.Create;
Image1.Picture.Bitmap.LoadFromStream(F);
Memo1.Lines.LoadFromStream(F);
F.Free;
end;

Удачи.

---

Song   (2002-09-01 19:29:00) [2]

Получить в TCanvas изображение формы, потом вырезать что нужно через TCanvas.CopyRect() и сохранить.

---

Наверх