S
San40S
Доброго времени суток!
Значит есть такая задачка... на форме есть два RichText-поля (SFile и SSample). в SFile будет вставляться файл картинки, а в SSample - типа превью этой картинки.
Так вот, как вставить саму картинку в поле - проблем вроде нет, но необходимо еще, перед тем как вставить эту картинку, сделать проверочку, а именно:
- чтобы файл был в формате *.jpg;
- чтобы он был с разрешением в 200 dpi;
- чтобы он был в оттенках серого (типа ч/б).
Кто подскажет как такое можно организовать??
З.Ы. Код самой вставки рисунка:
З.З.Ы. В ws.OpenFileDialog можно и нужно указать фильтр по JPEG, но если в поле имени файла ввести, например, С:\1.txt (предварительно, чтобы этот файл был на создан), то несмотря ни на какие фильтры - наш файлик 1.txt - будет успешно открыт!
В общем нужно организовать проверку перед вставкой... как?
Профи, прошу Ваших советов и рекомендаций!!
Значит есть такая задачка... на форме есть два RichText-поля (SFile и SSample). в SFile будет вставляться файл картинки, а в SSample - типа превью этой картинки.
Так вот, как вставить саму картинку в поле - проблем вроде нет, но необходимо еще, перед тем как вставить эту картинку, сделать проверочку, а именно:
- чтобы файл был в формате *.jpg;
- чтобы он был с разрешением в 200 dpi;
- чтобы он был в оттенках серого (типа ч/б).
Кто подскажет как такое можно организовать??
З.Ы. Код самой вставки рисунка:
Код:
Dim session As New NotesSession
Dim ws As New NotesUIWorkspace
Dim db As NotesDatabase
Dim uidoc As NotesUIDocument
Dim doc As NotesDocument
Dim rtitem As NotesRichTextItem
Dim object As NotesEmbeddedObject
Dim mFile As Variant
Set db = session.CurrentDatabase
Set uidoc = ws.CurrentDocument
Set doc = uidoc.Document
Set rtitem = doc.GetFirstItem("SFile")
If Not rtitem Is Nothing Then Call rtitem.Remove
Set rtitem = New NotesRichTextItem( doc, "SFile" )
mFile = ws.OpenFileDialog(False, "Choose your file", "JPG|*.jpg|JPEG|*.jpeg", "C:\")
If Not Isempty (mFile) Then
Set object = rtitem.EmbedObject ( EMBED_ATTACHMENT, "", mFile(0))
uidoc.Document.saveOptions = "0"
Call uidoc.Close
uidoc.Document.Form = "Sign"
Set uidoc = ws.EditDocument(True, uidoc.Document, False)
Call uidoc.Document.RemoveItem("SaveOptions")
Call uidoc.GotoField("SSample")
Call uidoc.Import ("JPEG Image", Cstr(mFile(0)))
Else
Exit Sub
End If
З.З.Ы. В ws.OpenFileDialog можно и нужно указать фильтр по JPEG, но если в поле имени файла ввести, например, С:\1.txt (предварительно, чтобы этот файл был на создан), то несмотря ни на какие фильтры - наш файлик 1.txt - будет успешно открыт!
В общем нужно организовать проверку перед вставкой... как?
Профи, прошу Ваших советов и рекомендаций!!