| yihuas
29872
|
2007/6/8 14:17:30 |
图片最终是以文件的方式来传递 .从 richedit 里面返回的只是文件的路径.
如果能直接返回文件流.我也想知道. |
| yihuas
29871
|
2007/6/8 14:15:48 |
建议你还是看源程序.你只要看 richunt 里面的插入,返回图片过程.
更加具体的操作是在 olerichedit 里面. |
| tanjun101
29868
|
2007/6/8 13:08:34 |
| 不好意思，我没有仔细去看那个程序，我想知道，他是把里面的图片当作文件来传输的是吧？那请问Richedit是不是有获取里面文件的函数呢？获取后是返回文件流还是其他的类型？ |
| yihuas
29857
|
2007/6/8 8:33:13 |
在 olerichedit.pas 里面有如下函数
function TRichEditOleCallback.GetContextMenu(seltype: Word; oleobj: IOleObject;
const chrg: TCharRange; var menu: HMENU): HRESULT;
var mouse:tpoint; bool:boolean;
begin
Result:= E_NOTIMPL;
getcursorpos(mouse);
FOwner.onContextPopup(nil,mouse,bool); //注意将这一行删除掉(右键出错)
FOwner.PopupMenu.Popup(mouse.x,mouse.y);
end;
图片是先算出图片的唯一MD5值 然后通过他来向对方发出文件请求.不是字符串. |
| tanjun101
29849
|
2007/6/7 20:55:16 |
那个olerichedit.pas我安装后能够用，但是在里面点鼠标右键就出错了。请问要怎么设置？
还有传输图片是把图片转成字符串来传输的？ |
| yihuas
29834
|
2007/6/7 8:56:12 |
| 在 model 目录下 richunt.pas 里面 |
| tanjun101
29829
|
2007/6/6 19:32:34 |
| parsepicturetomd5这个函数是那里的？ |
| yihuas
29599
|
2007/5/24 15:48:39 |
在 other 里面的 olerichedit.pas 是一个修改过的 RichEdit
用于显示文字和图片. |
| huangtao2020
29597
|
2007/5/24 13:47:15 |
| 谢谢斑竹!但我VCL中的控件怎么装不上去啊!other中是控件吗? |
| yihuas
29533
|
2007/5/21 17:19:39 |
| 所有的控件都在VCL目录下面.装上就可以了. |
| huangtao2020
29525
|
2007/5/21 15:23:45 |
我用Delphi7怎么运行不起来啊！请楼主帮助一下，非常感谢！
提示有太多的控件没有安装！ |
| yihuas
29495
|
2007/5/19 19:47:25 |
| Toleedit 控件在 vcl\other\ 里面 就是那个 olerichedit.pas |
| cljcyd
29493
|
2007/5/19 13:48:10 |
帮楼主说一下:
除了BcBarMenus要修改一下INC，加个D7的声明（里面最高到D6），其它的控件都可以在D7上使用的。
在我的计算机上，干净的D7，无任何第三方组件，改一个INC后、编译楼主的程序没有问题。 |
| rex1105
29492
|
2007/5/19 11:37:23 |
首先,要我謝謝樓主,但是沒有把ToleEdit控件發布出來呀.
我的mail:mynamerex@163.com
能否發到我郵件.
感謝萬分. |
| rex1105
29490
|
2007/5/19 10:45:13 |
| 沒有ToleEdit 控件呀 |
| chenyehuang
29487
|
2007/5/18 20:04:31 |
| 好东西，收下，谢谢楼主!! |
| yihuas
29483
|
2007/5/18 17:29:57 |
| 远程没有做完.自己想办法完成吧. |
| xawangting
29470
|
2007/5/17 20:53:08 |
| 远程就是不能用,这个是不没有公布 |
| lin077
29468
|
2007/5/17 19:31:40 |
| 我为什么不能用啊 |
| lcyandzj
29459
|
2007/5/16 20:07:57 |
| 聊天窗口中的gif图片不能拖放 要是可以拖放就好了 呵呵 我没有改明白 |
