莲花注意:如何仅使用缩略图限制富文本Lite字段的对话框中的扩展文件类型

Question

这是我的问题：我有一个丰富的文本字段，用于存储联系人照片。该字段的参数是： - 仅允许带有图像附件名称(强制性(的缩略图= Contactphoto富文本的参数

当用户单击它时，打开一个标准导入对话框(自动通过注释管理(，可以选择所有图像类型，如下所示：导入对话框的屏幕截图

使用以下代码，我可以检查照片的大小：

Set uidoc=ws.CurrentDocument
Call uidoc.Refresh(True,True)
Set doc=uidoc.Document
oneKB = 1024
PhotoTrouve = False
Forall i In doc.Items
    If i.type = Attachment Then
        Set emb = doc.GetAttachment(i.values(0))
        If emb.source="ContactPhoto" Then
            PhotoTrouve = True
            If emb.filesize > (50 * oneKB) Then
                strError="The size of the photo should be less than 50 Kb." 
            End If
        End If
    End If
End Forall 
If PhotoTrouve= False Then
    strError="Photo is mandatory."                  
End If

但这还不够。我还需要检查这是否很好。jpg文件。问题是，由于这是一个缩略图，其名称是Contactphoto，没有任何扩展名，我不知道如何获取用户选择的文件的原始扩展名(似乎是不可能的(。

所以我的问题是：是否有可能强制"缩略图富文本Lite"字段的标准对话框，以便向用户提出.jpg扩展文件类型？如何？

或如果没有，您知道一个解决方案以检查原始文件是否很好。

注意：即使我将附件cphoto.jpg(而不是contactphoto(命名，用户也可以选择所有类型的图像，而不仅仅是JPG。该照片以cphoto.jpg的名称保存在文档的$文件中，但我认为该文件最终不是真实的.jpg格式。我绝对需要JPG图像作为我的最终目标，然后以jpg的良好格式导出该图像。

。

非常感谢您的答复和帮助。Karen

Answer 1

您必须将其从c＃转换为C＃，但是代码要检查文件内容以查看是否可以在此网站上的上一个问题的答案中找到它。