Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: ActiveX/СОМ/CORBA > сохранить содержимое ole-container'a

Автор: DDX 13.4.2005, 16:01

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

Автор: <Spawn> 15.4.2005, 13:04

Код


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

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