我有一个Doc文档,我希望将这个文档转成bmp(100分)

  • 主题发起人 主题发起人 cequal
  • 开始时间 开始时间
C

cequal

Unregistered / Unconfirmed
GUEST, unregistred user!
我有一个Doc文档,我希望将这个文档转成bmp
希望是使用Delphi编程实现
机器上已经安装了Word

有什么方法?
 
1、RTF文件转换程bmp的途径
RICHEDIT-->BMP的方法
uses RichEdit;

procedure TForm1.Button1Click(Sender: TObject);
var
Range: TFormatRange;
LastChar, MaxLen, LogX, LogY: Integer;
begin
FillChar(Range, SizeOf(TFormatRange), 0);
with Image1, Range do
begin
LogX := GetDeviceCaps(Canvas.Handle, LOGPIXELSX);
LogY := GetDeviceCaps(Canvas.Handle, LOGPIXELSY);
hdc := Canvas.Handle;
hdcTarget := hdc;
rc.right := Image1.ClientWidth * 1440 div LogX;
rc.bottom := Image1.ClientHeight * 1440 div LogY;
rcPage := rc;
LastChar := 0;
MaxLen := GetTextLen;
chrg.cpMax := -1;
repeat
chrg.cpMin := LastChar;
LastChar := SendMessage(RichEdit1.Handle, EM_FORMATRANGE, 1,
Longint(@Range));
until (LastChar >= MaxLen) or (LastChar = -1);
end;
SendMessage(RichEdit1.Handle, EM_FORMATRANGE, 0, 0);
Image1.Refresh;
end;

2、直接复制Word文稿,然后粘贴到画笔中也可以。
但是画笔仅仅能够接收一部分,你可以自己测试一下
 
要用RxRichEdit控件
详见http://211.101.4.25/delphibbs/dispq.asp?lid=1114791
 
用word打开你的文档,想办法转换成[red]IViewObject[/red],再调用Draw即可,ms的方法。
[red]IViewObject[/red]
The IViewObject interface enables an object to display itself directly without passing a data object to the caller. In addition, this interface can create and manage a connection with an advise sink so the caller can be notified of changes in the view object.

The caller can request specific representations and specific target devices. For example, a caller can ask for either an object's content or an iconic representation. Also, the caller can ask the object to compose a picture for a target device that is independent of the drawing device context. As a result, the picture can be composed for one target device and drawn on another device context. For example, to provide a print preview operation, you can compose the drawing for a printer target device but actually draw the representation on the display.

The IViewObject interface is similar to IDataObject; except that IViewObject places a representation of the data onto a device context while IDataObject places the representation onto a transfer medium.

Unlike most other interfaces, IViewObject cannot be marshaled to another process. This is because device contexts are only effective in the context of one process.

When to Implement
Object handlers and in-process servers that manage their own presentations implement IViewObject for use by compound document containers. OLE provides an IViewObject implementation for its default object handler's cache.
When to Use
You call IViewObject from a container application if you need to draw a contained object on a specific device context. For example, if you want to print the object to a printer, you call the Draw method in the IViewObject interface.
Methods in VTable Order
IUnknown Methods Description
QueryInterface Returns pointers to supported interfaces.
AddRef Increments the reference count.
Release Decrements the reference count.

IViewObject Methods Description
Draw Draws a representation of the object onto a device context.
GetColorSet Returns the logical palette the object uses for drawing.
Freeze Freezes the drawn representation of an object so it will not change until a subsequent Unfreeze.
Unfreeze Unfreezes the drawn representation of an object.
SetAdvise Sets up a connection between the view object and an advise sink so that the advise sink can receive notifications of changes in the view object.
GetAdvise Returns the information on the most recent SetAdvise.


Requirements

Windows NT/2000/XP: Requires Windows NT 3.1 or later.
Windows 95/98: Requires Windows 95 or later.
Header: Declared in oleidl.h.


 
To CathyEagle :
You maybe right , but could you give me some example of delphi ?
And I had not found any delphi examples from google of this interface.

thanks
 
简单尝试了一下,没成功,你自己再试试吧,
如果有空我再看看。
 
后退
顶部