Ohh.DashScope.AI 1.0.0

公众号:办公魔盒

博客:https://bgmh.work

VB.NET 示例代码

    ''' <summary>
    ''' 按钮
    ''' </summary>
    ''' <param name="sender"></param>
    ''' <param name="e"></param>
    Private Async Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        ' 通义千问平台KEY
        Dim apiKey As String = "sk-xxxxxxxxxxxxxxxxxxxx"
        ' 配置模型
        Dim Model As New QwenPlusChatModel(
            New DashScopeProvider(
                New DashScopeConfiguration() With
                    {
                    .ApiKey = apiKey,
                    .Endpoint = "dashscope.aliyuncs.com/compatible-mode",
                    .ChatSettings = New OpenAiChatSettings() With
                        {
                            .UseStreaming = True,
                            .MaxTokens = 2000
                        }
                    }
                )
            )
        ' 配置聊天请求体
        Dim ChatRequest As New ChatRequest With
        {
            .Messages = New List(Of Message) From {
                New Message() With {.Role = MessageRole.System, .Content = "你是一个代码助手,打工人助手,Excel公式助手"},
                New Message() With {.Role = MessageRole.Human, .Content = TextBox1.Text}
            }
        }
        ' 绑定模型事件
        AddHandler Model.PromptSent, New EventHandler(Of String)(AddressOf Model_PromptSent)
        AddHandler Model.PartialResponseGenerated, New EventHandler(Of String)(AddressOf Model_PartialResponseGenerated)
        AddHandler Model.CompletedResponseGenerated, New EventHandler(Of String)(AddressOf Model_CompletedResponseGenerated)
        ' 生成结果
        Dim result = Await Model.GenerateAsync(ChatRequest, Nothing)
    End Sub


    ''' <summary>
    ''' 模型结果全部输入完毕
    ''' </summary>
    ''' <param name="sender"></param>
    ''' <param name="e"></param>
    Sub Model_CompletedResponseGenerated(sender, e)
        ''Debug.WriteLine(e)
        Invoke(Sub() If e IsNot Nothing Then RichTextBox1.Text = e)
    End Sub

    ''' <summary>
    ''' 模型结果正在输出
    ''' </summary>
    ''' <param name="sender"></param>
    ''' <param name="e"></param>
    Sub Model_PartialResponseGenerated(sender, e)
        ''Debug.WriteLine(e)
        Invoke(Sub() If e IsNot Nothing Then RichTextBox1.AppendText(e.ToString().Replace(vbCrLf, "")))
    End Sub

    ''' <summary>
    ''' 问题发送中
    ''' </summary>
    ''' <param name="sender"></param>
    ''' <param name="e"></param>
    Sub Model_PromptSent(sender, e)
        ''Debug.WriteLine(e)
    End Sub

C#示例

        /// <summary>
        /// 发送
        /// </summary>
        /// <param name="sender"></param>
        /// <param name="e"></param>
        private async void button1_Click(object sender, EventArgs e)
        {
            var apiKey = "sk-xxxxxxxxxxxxxxxxxx";
            var model = new QwenPlusChatModel(
            new DashScopeProvider(
            new DashScopeConfiguration()
            {
                ApiKey = apiKey,
                Endpoint = "dashscope.aliyuncs.com/compatible-mode",
                ChatSettings = new OpenAiChatSettings()
                {
                    UseStreaming = true,
                    MaxTokens = 2000
                }
            })
            );

            ChatRequest chatRequest = new()
            {
                Messages = new List<LangChain.Providers.Message> {
                     new() { Role = MessageRole.System, Content = "你是一个代码助手,打工人助手,Excel公式助手" },
                     new() { Role = MessageRole.Human, Content =textBox1.Text }
                 }
            };

            model.PromptSent += Model_PromptSent;
            model.PartialResponseGenerated += Model_PartialResponseGenerated;
            model.CompletedResponseGenerated += Model_CompletedResponseGenerated;


            var result = await model.GenerateAsync(chatRequest);
        }

        /// <summary>
        /// 模型结果全部输入完毕
        /// </summary>
        /// <param name="sender"></param>
        /// <param name="e"></param>
        void Model_CompletedResponseGenerated(object sender, string e)
        {
            // Console.WriteLine(e);
            Invoke(new Action(() =>
            {
                if (e != null)
                {
                    richTextBox1.Text = e;
                }
            }));
        }

        /// <summary>
        /// 模型结果正在输出
        /// </summary>
        /// <param name="sender"></param>
        /// <param name="e"></param>
        void Model_PartialResponseGenerated(object sender, string e)
        {
            // Console.WriteLine(e);

            Invoke(new Action(() =>
            {
                if (e != null)
                {
                    richTextBox1.AppendText(e.Replace("\r", ""));
                }
            }));
        }
        /// <summary>
        /// 问题发送中
        /// </summary>
        /// <param name="sender"></param>
        /// <param name="e"></param>
        void Model_PromptSent(object sender, string e)
        {
            Console.WriteLine(e);
        }