将windows的画图程序直接OLE到rxRichedit中，不调用insertObject方法的对话框。成功后另外加300分！(50分)

  • 主题发起人 主题发起人 littley
  • 开始时间 开始时间
L

littley

Unregistered / Unconfirmed
GUEST, unregistred user!
我使用rxlib的rxRichedit作为我程序的编辑器，它本身是一个OLE CONTAINER，我想在里面
画图时，只能调用insertObject方法，并在对话框中选择“插入BMP图形”。但是这个对话框
出现速度奇慢，二是对话框里面的东西太多，在里面查找“画图”程序太罗嗦。

因此，我想绕过这个对话框，在程序里提供一种方法，用户直接点击某个菜单项，便直接调用
MSPAINT程序并OLE到我的程序中。事成之后再加300分。

并非我小气，我以前提出过类似的例子，但最终没有直接的解决办法。大家可看
http://www.delphibbs.com/delphibbs/dispq.asp?lid=1117324
我的信用没问题，我以这种方式送出去过近2000分。请各位大侠出手赐教！
 
你这贴没人跟，可能：1.有一定难度；2.你的想法没说透。
>>插入BMP图形，图形从何处来？用户自己指定的吗？
 
linsb:
果然不出我所料，又见到你了，真让人感到欣喜，呵呵。
我是想在我的编辑器中给用户自己画图的功能，类似word的画“自定义图形”功能。
不知道我这样说清楚了没有？
 
你为用户想得很多，但是开发难度越大。
是否还是调用word，用户在word中完成一定操作，然后copy到RxRichedit。
 
不是我想这样，是客户自己坚持要这样，他声称见过有类似功能的软件，他认为这个功能
对他很有用，我有什么办法.....
 
关注：
建议：此功能用VC实现很容易，只需在创建项目时增加ole功能
 
我的程序已用DELPHI完成得差不多了，再改用VC做是来不及了，再说我对VC不是很熟……
不过还是要谢谢system_owen的建议。
 
你可以使用VC作一个OCX控件，然后在DELPHI中调用
 
system_owen:
我上次使用VC应是4年前的事，所以嘛....要是你能帮我把这个OCX做出来，不知900分够不
够？
 
用WordDocument.Shapes.AddOLEObject "Pbrush" ...
就可以了。后面的参数自己看一下VBA帮助就行了。
 
jiangxiancheng：
根据我的猜测，你的语句的作用是调用VBA在WORD里画图。如果是这样的话，离要求
就太远了，因为我是想让用户在我的编辑器里自己手工画图
 
方法一：
直接调用OLE接口；
方法二：
自己编一个简单的绘图扩展功能。我记得delphi好像自带一个例子。

由于工作电脑上不能安装delphi和MSDN(非工作用软件)，现在没法帮你查详细方法。抱歉！
 
kthy:
谢谢你的建议！我感兴趣的就是你的方法一，只是苦于小弟功底不够，什么时候老兄
有了较详细的解答，一定要好好谢谢你，分数不是问题
 
各位如果有较长的代码，不方便在这里张贴，可以Email 到：littley@yeah.net
 
to littley:
我也正在解决和你差不多的问题，现在我想问下怎么样才可以直接调用OLE调用的那个画图板程序？
主要是如果直接调用MSPAINT程序和用OLE调用的MSPAINT程序不太一样，不知道你发现没有？
不知道你能不能直接用一个事件调用OLE的MSPAINT画图程序？
如果知道请告诉我，不胜感激！分不多了，只能意思下：）
 
to cloud_scorpion：
我有答案的话我就结束帖子发分了，呵呵！我当然知道直接调用MSPAINT程序
和用OLE调用的MSPAINT程序不一样，主要是有没有和你的程序融合起来
的感觉，老兄要是比我先得到解决方法的话，我倒是愿意转些分给你，呵呵！
 
Hi，littley老兄，问题解决了吗？如果还没有我可以试一试？
你知道 BMP对象的ClassName吗？我实在是懒的找：（，
 
xjxdelphi:
太好了！我等了一个月，终于.....（此处省略语无伦次的激动形容语句nnnn句）
我的问题没有解决，老兄要是试出正解，这个解答至少值500-900分，没问题！
BMP对象的classname应在注册表里找。
我发现在“插入对象”的对话框里，选择插入“BMP图象”和“画笔图片”都行，效果
一样。
 
我按照你的要求点击按钮在ole容器中实现了Excel的Sheet对象的插入激活，但是，
windows中MSPaint的对象名我不知道，手头有没有MSDN，：（，
如果你现在还需要，可联系我：）
 
xjxdelphi:
你可以做一个简单的demo,在rxlib的RxRichedit中插入WORD文档（如果你查到了mspaint的
对象名，也在该demo中做一直接插入bmp对象的例子，可加分)。源码可email到
littley@yeah.net
验货后即发分。大侠您真让我有柳暗花明又一村的感觉，呵呵！
 
您必须登录或注册才可回复。

Similar threads

Ray
[转]终于可以发布Delphi下收点OSGI精髓皮毛而设计的插件框架WisdomPluginFramework
回复
4
查看
4K
chlkuei
C
L
Delphi对WordOLE自动化的一个bug?为何在Delphi中无法调出word的打印对话框(100分)
回复
6
查看
194
leohubble
L
F
ole控制word打印的问题,3q(50分)
回复
2
查看
139
firnwolf
F
I
RxRichEdit插入文件的问题以及RichView相关(300分)
回复
16
查看
247
iceboltchen
I
L
在rxlib的rxRichedit中插入WORD或MS GRAPH文档，如何能不借助rxRichedit.insertObjectDialog达到目的(100分
2
回复
27
查看
467
littley
L
后退
顶部