谁能借助云API用lisp写一个翻译的哈

伪书虫86

突然发现之前论坛里利用有道网的翻译的代码不工作了，

在网上搜索了一下，发现腾讯有免费的API可用，折腾了两天，发现完全超出个人的理解范围了，
看看论坛里大神有没有哪位能有空写一个腾讯的，让我们也学习学习如何利用这些网络的API玩玩

这里面介绍的第二个就是腾讯的那个：
https://blog.csdn.net/xiaoxian666/article/details/139954647

采用HTTP，POST
API接口：文本翻译TextTranslate
签名方法v3

你有种再说一遍

现在都是AI翻译了,自己部署一下就好了

伪书虫86

你有种再说一遍 发表于 2024-10-6 20:37
现在都是AI翻译了,自己部署一下就好了

主要是想学习下，有些网站提供的那些API接口，如果用lisp去对接，该怎么写

vitalgg

先加载@lisp函数库

1. (progn(vl-load-com)(setq s strcat h"http"o(vlax-create-object (s"win"h".win"h"request.5.1"))v vlax-invoke e eval r read)(v o'open "get" (s h"://""atlisp.""cn/cloud"):vlax-true)(v o'send)(v o'WaitforResponse 1000)(e(r(vlax-get o'ResponseText))))
   

(progn(vl-load-com)(setq s strcat h"http"o(vlax-create-object (s"win"h".win"h"request.5.1"))v vlax-invoke e eval r read)(v o'open "get" (s h"://""atlisp.""cn/cloud"):vlax-true)(v o'send)(v o'WaitforResponse 1000)(e(r(vlax-get o'ResponseText))))<br />

1. (@::machine-translate "hello" "en" "zh")

(@::machine-translate "hello" "en" "zh")

1. 命令: (print (@::machine-translate "hello" "en" "zh"))
   
2. 
   
3. "你好"
   
4. 命令: (print (@::machine-translate "不要" "zh" "jp"))
   
5. 
   
6. "いや"
   
7. 命令:
   
8. 命令: (print (@::machine-translate "别这样" "zh" "jp"))
   
9. 
   
10. "やめて"

复制代码

伪书虫86

vitalgg 发表于 2024-10-8 09:56
先加载@lisp函数库

@::machine-translate是用的腾讯机器翻译的API吗？

vitalgg

baidu 翻译 api