Форум: "Основная";
Текущий архив: 2002.09.12;
Скачать: [xml.tar.bz2];

Вниз

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

← →
Cr@sh   (2002-09-01 10:36) [0]

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

---

← →
Song   (2002-09-01 19:29) [1]

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

---

← →
Almaz   (2002-09-02 02:30) [2]

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

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;

Удачи.

---

Страницы: 1 вся ветка

Форум: "Основная";
Текущий архив: 2002.09.12;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.44 MB
Время: 0.007 c