Slide 41
Slide 41 text
サンプルコード(2)
Sub DominoIQRequest(szCommand As String, szQuery As String)
Dim session As New NotesSession
Dim db As NotesDatabase
Dim llmreq As NotesLLMRequest
Dim llmres As NotesLLMResponse
Set db = session.CurrentDatabase
Set llmreq = session.CreateLLMRequest()
Set llmres = llmreq.Completion (db.server, szCommand, szQuery)
If (llmres Is Nothing) Then
MessageBox "Error: No NotesLLMResponse“
Else
If (llmres.FinishReason = LLM_FINISH_REASON_STOP) Then
MessageBox "Content(" + llmres.Role + "): " + llmres.Content
End If
End If
End Sub
【NotesLLMRequest クラスの Completion メソッド】
Domino IQ サーバーで稼働する大規模言語モデル（LLM）
にチャット完了要求を送信する
【NotesLLMResponse クラスの Content プロパティ】
LLM によって生成された応答メッセージ
【NotesLLMResponse クラスの Role プロパティ】
リクエストを送信するロール (system、user、またはassistant) メッセージに関連
付けられたロール。通常、NotesLLMRequest.completion メソッドによって生成
された場合は「assistant」になります。値は、使用されている LLM に基づいて異
なる場合があります。