回复 8楼yangjianlang的帖子
可以设置 ImageSaveMode 为1 作为二进制流进行保存:
-
- CmDialog1.DialogTitle = "Insert Image"
- CmDialog1.Filter = TXTextControl1.ImageFilters
- CmDialog1.FileName = ""
- CmDialog1.Flags = cdlOFNPathMustExist Or cdlOFNOverwritePrompt Or cdlOFNHideReadOnly
- CmDialog1.CancelError = True
- CmDialog1.ShowOpen
- TXTextControl1.ImageInsert CmDialog1.FileName, -1, 1, 0, 0, 100, 100, 3, 100, 100, 100, 100
- TXTextControl1.ImageSaveMode = 1
- TXTextControl1.Save App.Path + "\text.doc", 0, 9, 0
- Exit Sub
复制代码 |