VPF::сохранить содержимое ole-container'a

DDX

Дата 13.4.2005, 16:01 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 127
Регистрация: 31.1.2005
Где: Москва

Репутация: нет
Всего: 5

в olecontainer загоняется объект Word'a - текст, формулы и пр
Помогите сохранить всё содержимое контейнера как графический файл smile

--------------------

Учиться, учитьcя и ещё раз учиться

<Spawn>

Дата 15.4.2005, 13:04 (ссылка)

(нет голосов)

Загрузка ...

Око кары:)

Профиль
Группа: Экс. модератор
Сообщений: 2776
Регистрация: 29.1.2003
Где: Екатеринбург

Репутация: нет
Всего: 64

Код


procedure TForm1.Button1Click(Sender: TObject);
var
  Bmp: TBitmap;
  srcDC: HDC;
begin
  Bmp := TBitmap.Create;
  try
    srcDC := GetDC(OleContainer1.Handle);
    Bmp.Width := OleContainer1.Width;
    Bmp.Height := OleContainer1.Height;
    BitBlt(Bmp.Canvas.Handle, 0, 0, Bmp.Width, Bmp.Height,
      srcDC, 0, 0, SRCCOPY);
    Bmp.SaveToFile(ExtractFilePath(ParamStr(0)) + 'ole_container_snapshot.bmp');
  finally
    ReleaseDC(OleContainer1.Handle, srcDC);
    Bmp.Free;
  end;
end;

--------------------

"Для некоторых людей программирование является такой же внутренней потребностью, подобно тому, как коровы дают молоко, или писатели стремятся писать" - Николай Безруков.

DDX

Дата 16.4.2005, 18:01 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 127
Регистрация: 31.1.2005
Где: Москва

Репутация: нет
Всего: 5

<Spawn>
спасибо за отклик
я уже нашел способ попроще:
OleContainer1.PaintTo(Image1.Canvas,0,0)
smile

--------------------

Учиться, учитьcя и ещё раз учиться

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: ActiveX/СОМ/CORBA \| Следующая тема »