如何将word，pdf,Excel等文档转化成bmp图片

Question

rt

Answer 1

Alt+PrintScreen 考屏
新建BMP粘贴。

Answer 2

用屏幕截取,生成BMP文件
procedure TfrmMain.ScreenCap(LeftPos,TopPos,RightPos,BottomPos:integer);
var RectWidth,RectHeight:integer;
    SourceDC,DestDC,Bhandle:integer;
    Bitmap:TBitmap;
begin
  RectWidth:=RightPos-LeftPos;
  RectHeight:=BottomPos-TopPos;
  SourceDC:=CreateDC('DISPLAY','','',nil);
  DestDC:=CreateCompatibleDC(SourceDC);
  Bhandle:=CreateCompatibleBitmap(SourceDC,RectWidth,RectHeight);
  SelectObject(DestDC,Bhandle);
  BitBlt(DestDC,0,0,RectWidth,RectHeight,SourceDC,LeftPos,TopPos,SRCCOPY);
  Bitmap:=TBitmap.Create;
  Bitmap.Handle:=BHandle;
  DeleteDC(DestDC);
  ReleaseDC(Bhandle,SourceDC);
  BmpStream.Position:=0;
  ImageMain.Picture.Bitmap.LoadFromStream(BmpStream);
...
...
  BmpStream.Free;
  DeleteDC(DestDC);
  ReleaseDC(Bhandle,SourceDC);
end;