안녕하세요~ ^^
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-->