Вопрос: Есть картинка в RT поле и надо поверх картинки написать текст. Как такое можно сделать?

    Function joProcess()
        On Error GoTo ErrH
        me.joCon.setRequestMethod(me.method_)
        Dim in_ As Javaobject, clreader As Javaclass, clBuf As Javaclass, is_ As Javaobject
        Dim os_ As Javaobject, osw_ As Javaobject, clWriter As Javaclass
        If Len(me.body_)>0 Then
            Call joCon.setDoOutput(True)
            Set os_ = joCon.getOutputStream()
            Set clWriter=jSession.GetClass(WRITER_CL)
            Set osw_=clWriter.CreateObject({(L} & OUTSTREAM_CL &{;Ljava/lang/String;)V}, os_, {UTF-8})
            osw_.write(me.body_)
            Call osw_.flush()
            Call osw_.close()
            Call os_.close()
            Call joCon.connect()
        End If
'        On Error 318 GoTo jErr
        Set is_=joCon.getInputStream()
        Dim ret As String
        ret=me.joStreamProcessing.getBuffer(is_).toString()
        me.responseCode_=joCon.getResponseMessage()
        If joCon.getResponseCode()=200 Then
            '    me.responseCode_=CStr(joCon.getResponseCode()) & { OK}
            Set me.headers_=joCon.getHeaderFields()
        Else
        End If
        joProcess=ret

Private Const HTTPCLIENT_CL={java/net/http/HttpClient}
Private Const HTTPREQUEST_CL={java/net/http/HttpRequest}
Private Const HTTPRESPONSE_CL={java/net/http/HttpResponse}
Private Const STRING_CL={java/lang/String}
Private Const STRINGBUF_CL={java/lang/StringBuffer}

import java.io.BufferedReader;
import java.io.IOException;
import java.io.InputStream;
import java.io.InputStreamReader;

public class StreamProcessing {
    
    public StringBuffer getBuffer(InputStream is) throws IOException{
        BufferedReader in = new BufferedReader(new InputStreamReader(is));
        String output;

        StringBuffer response = new StringBuffer();
        while ((output = in.readLine()) != null) {
            response.append(output);
        }

        in.close();
        return response;
        
    }
}

public class utils {
    public static String getTmpDir() {
        String tempdir = System.getProperty("java.io.tmpdir");
        String sep = System.getProperty("file.separator");
        return !tempdir.endsWith(sep) ?  tempdir.concat(sep) : tempdir;  
    }  
}

%Include "lsxsd.lss"
UseLSX "*javacon"
Use "utilsJava"


Function getTmpDir() As String
    On Error GoTo ErrorHandler
    Dim jSession As New JavaSession
    Dim jClass As JavaClass
    Set jClass = jSession.Getclass("utils")
    Dim jObject As JavaObject
    Set jObject = jClass.Createobject()
    getTmpDir = jObject.getTmpDir()  
 Exit function

Наложение текста на изображение с использованием LotusScript и LS2J (LotusScript to Java) может быть выполнено с использованием Java-библиотек, таких как `java.awt` и `javax.imageio`. LotusScript сам по себе не имеет встроенных функций для работы с изображениями, поэтому мы будем использовать LS2J для вызова Java-кода.

Вот пример кода на LotusScript, который использует LS2J для наложения текста на изображение:

### LotusScript код:

```lotusscript
Option Public
Option Declare

UseLSX "*javacon"

Sub Initialize
    Dim session As New NotesSession
    Dim db As NotesDatabase
    Dim doc As NotesDocument
    Set db = session.CurrentDatabase
    Set doc = db.CreateDocument

    ' Путь к исходному изображению и выходному файлу
    Dim imagePath As String
    Dim outputPath As String
    imagePath = "C:\path\to\input\image.jpg"
    outputPath = "C:\path\to\output\image_with_text.jpg"

    ' Текст для наложения
    Dim textToAdd As String
    textToAdd = "Hello, World!"

    ' Вызов Java-кода через LS2J
    Dim javaSession As JAVASESSION
    Dim javaClass As JAVACLASS
    Dim javaObject As JAVACLASS
    Set javaSession = New JAVASESSION
    Set javaClass = javaSession.GetClass("com.example.ImageTextOverlay")
    Set javaObject = javaClass.CreateObject()

    ' Вызов метода для наложения текста
    Call javaObject.OverlayText(imagePath, outputPath, textToAdd)

    ' Сохранение документа
    doc.Form = "MainForm"
    doc.Subject = "Image with Text Overlay"
    doc.Body = "Text added to image: " & textToAdd
    Call doc.Save(True, False)

    Print "Text has been added to the image and saved to " & outputPath
End Sub
```

### Java код (ImageTextOverlay.java):

```java
package com.example;

import java.awt.*;
import java.awt.image.BufferedImage;
import java.io.File;
import java.io.IOException;
import javax.imageio.ImageIO;

public class ImageTextOverlay {

    public void OverlayText(String imagePath, String outputPath, String text) {
        try {
            // Загрузка изображения
            File file = new File(imagePath);
            BufferedImage image = ImageIO.read(file);

            // Создание графического контекста
            Graphics2D g2d = image.createGraphics();

            // Настройка шрифта и цвета текста
            g2d.setColor(Color.RED);
            g2d.setFont(new Font("Arial", Font.BOLD, 48));

            // Наложение текста на изображение
            g2d.drawString(text, 50, 50);

            // Освобождение ресурсов
            g2d.dispose();

            // Сохранение измененного изображения
            File outputFile = new File(outputPath);
            ImageIO.write(image, "jpg", outputFile);

        } catch (IOException e) {
            e.printStackTrace();
        }
    }
}
```

### Инструкции:

1. **Создание Java-класса**:
   - Создайте Java-класс `ImageTextOverlay` в пакете `com.example`.
   - Скомпилируйте этот класс и добавьте его в classpath вашего Domino-сервера.

2. **Настройка LS2J**:
   - Убедитесь, что LS2J правильно настроен на вашем сервере Domino.
   - Добавьте `javacon.lbx` в ваш скрипт LotusScript.

3. **Запуск кода**:
   - Запустите LotusScript-код в Notes/Domino, чтобы наложить текст на изображение.

Этот код загружает изображение, накладывает на него текст и сохраняет результат в новый файл. Вы можете настроить шрифт, цвет и положение текста в Java-коде по вашему усмотрению.

Option Public
Option Declare

UseLSX "*javacon"

Sub Initialize
    Dim session As New NotesSession
    Dim db As NotesDatabase
    Dim doc As NotesDocument
    Set db = session.CurrentDatabase

    ' Получаем документ, из которого будем извлекать изображение
    Set doc = db.GetDocumentByUNID("UNID_вашего_документа") ' Замените на UNID нужного документа

    ' Проверяем, существует ли документ
    If doc Is Nothing Then
        Print "Документ не найден!"
        Exit Sub
    End If

    ' Поле RichText, содержащее изображение
    Dim rtItem As NotesRichTextItem
    Set rtItem = doc.GetFirstItem("Body") ' Замените "Body" на имя вашего RichText-поля

    ' Проверяем, существует ли поле
    If rtItem Is Nothing Then
        Print "Поле RichText не найдено!"
        Exit Sub
    End If

    ' Временный файл для сохранения изображения
    Dim tempImagePath As String
    tempImagePath = "C:\temp\image_from_richtext.jpg"

    ' Извлекаем изображение из RichText и сохраняем его во временный файл
    If Not ExtractImageFromRichText(rtItem, tempImagePath) Then
        Print "Не удалось извлечь изображение из RichText!"
        Exit Sub
    End If

    ' Путь для сохранения результата
    Dim outputPath As String
    outputPath = "C:\temp\image_with_text.jpg"

    ' Текст для наложения
    Dim textToAdd As String
    textToAdd = "Hello, World!"

    ' Вызов Java-кода через LS2J
    Dim javaSession As JAVASESSION
    Dim javaClass As JAVACLASS
    Dim javaObject As JAVACLASS
    Set javaSession = New JAVASESSION
    Set javaClass = javaSession.GetClass("com.example.ImageTextOverlay")
    Set javaObject = javaClass.CreateObject()

    ' Вызов метода для наложения текста
    Call javaObject.OverlayText(tempImagePath, outputPath, textToAdd)

    ' Удаляем старое содержимое RichText-поля
    Call rtItem.Remove

    ' Создаем новое RichText-поле и добавляем в него обработанное изображение
    Set rtItem = doc.CreateRichTextItem("Body") ' Замените "Body" на имя вашего RichText-поля
    Call rtItem.EmbedObject(EMBED_ATTACHMENT, "", outputPath)

    ' Сохраняем документ
    Call doc.Save(True, False)

    ' Очистка временных файлов
    Kill tempImagePath
    Kill outputPath

    Print "Текст успешно наложен на изображение. Результат сохранен в поле RichText документа."
End Sub

Function ExtractImageFromRichText(rtItem As NotesRichTextItem, filePath As String) As Boolean
    On Error GoTo HandleError

    ' Получаем все вложения в RichText
    Dim embedObj As NotesEmbeddedObject
    Set embedObj = rtItem.GetEmbeddedObject(1) ' Предполагаем, что изображение — первое вложение

    ' Проверяем, что вложение существует
    If embedObj Is Nothing Then
        Print "В RichText нет вложений!"
        ExtractImageFromRichText = False
        Exit Function
    End If

    ' Сохраняем вложение как временный файл
    Call embedObj.ExtractFile(filePath)

    ExtractImageFromRichText = True
    Exit Function

HandleError:
    Print "Ошибка при извлечении изображения: " & Error$
    ExtractImageFromRichText = False
End Function

%REM
    Library image-tools.LS2J
    Created Mar 23, 2025 by Mikhail Cholokov/lmike
    Description: Comments for Library
%END REM
Option Public
Option Declare
'UseLSX "*javacon"
Use "image-tools.java"
Sub Initialize

End Sub

    
Function ExtractImageFromRichText(rtItem As NotesRichTextItem, filePath As String)
    On Error GoTo ErrH
    GoTo Begin
ErrH:
    Error Err, "Ошибка в " & GetThreadInfo(1) & ", строка " & CStr(Erl) & ": " & Error$
Begin:
    
    If ( rtitem.Type = RICHTEXT ) Then
        Dim i As Integer
        ForAll o In rtitem.EmbeddedObjects
            If ( o.Type = EMBED_ATTACHMENT ) Then
                ExtractImageFromRichText=filepath & o.Source
                o.ExtractFile ExtractImageFromRichText
            End If
            i=i+1
        End ForAll
        If i<1 Then Error 1024, {В RichText нет вложений!}
    Else
        Error 1024, {тип поля нет RichText: } &rtitem.Type
    End If
    ' Получаем все вложения в RichText
'    Dim embedObj As NotesEmbeddedObject
'    Set embedObj = rtItem.GetEmbeddedObject(1) ' Предполагаем, что изображение — первое вложение

    ' Проверяем, что вложение существует
'    If embedObj Is Nothing Then
'        Print "В RichText нет вложений!"
'        ExtractImageFromRichText = False
'        Exit Function
'    End If

    ' Сохраняем вложение как временный файл
 '   Call embedObj.ExtractFile(filePath)

End Function
%REM
    Function TextOverImage
    Description: Comments for Function
%END REM
Function TextOverImage(doc As NotesDocument)
    On Error GoTo ErrH
    GoTo Begin
ErrH:
    Error Err, "Ошибка в " & GetThreadInfo(1) & ", строка " & CStr(Erl) & ": " & Error$
Begin:

    Dim session As New NotesSession

    ' Проверяем, существует ли документ
    If doc Is Nothing Then
        Print "Документ не найден!"
        Exit Function
    End If

    ' Поле RichText, содержащее изображение
    Dim rtItem As NotesRichTextItem
    Set rtItem = doc.GetFirstItem("Body") ' Замените "Body" на имя вашего RichText-поля

    ' Проверяем, существует ли поле
    If rtItem Is Nothing Then
        Print "Поле RichText не найдено!"
        Exit Function
    End If

    ' Временный файл для сохранения изображения
    Dim tempImagePath As String
    tempImagePath = "C:\temp\"
    tempImagePath = ExtractImageFromRichText(rtItem, tempImagePath)
    ' Извлекаем изображение из RichText и сохраняем его во временный файл
    If Len(tempImagePath)<4 Then
        Error 1024, "Не удалось извлечь изображение из RichText!"
    End If

    ' Путь для сохранения результата
    Dim outputPath As String, ext As String
    ext=StrRightBack(tempImagePath,{.})
    outputPath = StrLeft(tempImagePath,{.}) &{+text.} &ext

    ' Текст для наложения
    Dim textToAdd As String
    textToAdd = "Hello, World!"

    ' Вызов Java-кода через LS2J
    Dim javaSession As JAVASESSION
    Dim javaCl As JAVACLASS
    Dim javaObj As JAVAOBJECT
    Set javaSession = New JAVASESSION
    Set javaCl = javaSession.GetClass("com.example.ImageTextOverlay")
    Set javaObj = javaCl.Createobject()

    ' Вызов метода для наложения текста
    Call javaObj.OverlayText(tempImagePath, outputPath, textToAdd)

    ' Удаляем старое содержимое RichText-поля
    Call rtItem.Remove

    ' Создаем новое RichText-поле и добавляем в него обработанное изображение
    Set rtItem = doc.CreateRichTextItem("Body") ' Замените "Body" на имя вашего RichText-поля
    Call rtItem.EmbedObject(EMBED_ATTACHMENT, "", outputPath)

    ' Сохраняем документ
    Call doc.Save(True, False)

    ' Очистка временных файлов
    Kill tempImagePath
    Kill outputPath

    Print "Текст успешно наложен на изображение. Результат сохранен в поле RichText документа."
End Function

%REM
    Agent image-tools
    Created Mar 23, 2025 by Mikhail Cholokov/lmike
    Description: Comments for Agent
%END REM
Option Public
Option Declare
Use "image-tools.LS2J"
Sub Initialize
On Error GoTo ErrH
GoTo Begin
ErrH:
    Error Err, "Ошибка в " & GetThreadInfo(1) & ", строка " & CStr(Erl) & ": " & Error$
Begin:
    Dim agent As NotesAgent, ses As New NotesSession, db As NotesDatabase
    Set agent = ses.Currentagent
    Dim doc As NotesDocument
    Set doc=ses.Documentcontext
    TextOverImage doc

End Sub