Q&A

  • Office등의 문서파일을 이미지로 저장하는 방법?
안녕하세요~ ^^
ms-Word, Excel, powerpoint,pdf등의 문서파일을 이미지파일로 저장하고 싶습니다.
파워포인트의 경우.. 한장씩 이미지로 변환이 가능한데요.. 다른것들은 모르겠습니다..

여기 게시판을 뒤져보니까.. OleContainer로 불러서 OleContainer의 캔버스를 카피하는 방법이 있더라구요.. [아래코드 참조] 근데 이 방법은 페이지가 여러장인 경우에 어떻게 처리를 해야되는지 모르겠더라구요..

또 다른분은.. 이런 기능을 하는 컴포넌트를 구하시는것 같던데.. 혹시 그런 컴포넌트 아시는분 계세요?

비슷한 정보라도 아시는 분은 가르침을 좀 주시면 대단히 감사하겠습니다..

<!--CodeS-->
procedure TMainForm.SpeedButton2Click(Sender: TObject);
var
  bmp: TBitmap;
  aSize:TPoint;
  i: integer;
begin
   bmp := Tbitmap.Create;
   try
      OleContainer1.OleObjectInterface.GetExtent( DVASPECT_CONTENT, ASize );
      ASize.X := Round( ASize.X / 26.5 );
      ASize.Y := Round( ASize.Y / 26.5 );
      bmp.Width := Asize.x;
      bmp.Height := Asize.y;
      OleDraw(Olecontainer1.OleObjectInterface, DVASPECT_CONTENT,
      bmp.Canvas.Handle, Rect( 0, 0, ASize.X, ASize.Y ) );
      bmp.SaveToFile('d:\11.bmp');  //==>여기서 저장

   finally
      bmp.free;
   end;
end;
<!--CodeE-->
0  COMMENTS