delphi翻译中文，微软bing翻译API获取

本内容由系统网小编为大家分享，Windows系统安装教程、办公系统、软件怎么使用、软件使用教程、办公软件攻略等信息。

这是老师的插图多语种翻译软件,您可以自动评估您输入的语言 。为了转换 UTF8 字符串,软件使用了 http 连接技术、json 技术和 xml 分辨率技术。这个计划有一些问题。例如,可以通过Beng支持的各种语文守则可以用作未来的指针。如何将中文名称转换为其他语言?请大家给予帮助。

直接上代码：

unit Unit7;

interface

usesWindows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,Dialogs,msxml, StdCtrls, ExtCtrls,IniFiles,XMLDoc, xmldom, XMLIntf, msxmldom;

typeTMainForm = class(TForm)Memo1: TMemo;Splitter1: TSplitter;Memo2: TMemo;Panel1: TPanel;Button1: TButton;ComboBox1: TComboBox;Label1: TLabel;XMLDocument1: TXMLDocument;procedure Memo1KeyPress(Sender: TObject; var Key: Char);procedure Button1Click(Sender: TObject);procedure Memo1Change(Sender: TObject);procedure ComboBox1Change(Sender: TObject);procedure FormShow(Sender: TObject);private{ Private declarations }langList:THashedStringList;function Translate(AAppID: string; AText: string; InLanguage: string='en'; OutLanguage: string='zh-CHS'): string;procedure initParam;public{ Public declarations }end;const GETLANGUAGESFORTRANSLATE=' http://api.microsofttranslator.com/v2/Http.svc/GetLanguagesForTranslate?appId=%s'; GETLANGUAGENAMES=' http://api.microsofttranslator.com/v2/Http.svc/GetLanguageNames?appId=%s&locale=%s&languageCodes=%s'; DETECT=' http://api.microsofttranslator.com/V2//V2/http.svc/Translate?appId=%s&text=%s&from=%s&to=%s'; APPID= 'C98FDCE95A2FD7BA417F260D43763C40232E****';

varMainForm: TMainForm;

implementation

{$R *.dfm}谷歌地址的 UTF8 编码函数字符串到 UTF8function ToUTF8Encode(str: string): string;varb: Byte;beginfor b in BytesOf(UTF8Encode(str)) doResult := Format('%s%s%.2x', [Result, '%', b]);end;

procedure TMainForm.Button1Click(Sender: TObject);

begininitParam;

end;

procedure TMainForm.ComboBox1Change(Sender: TObject);beginButton1.Enabled:= (length(trim(memo1.text))>0) and (ComboBox1.ItemIndex>=0);end;

procedure TMainForm.FormShow(Sender: TObject);varI:Integer;begin

ComboBox1.Items.Clear;langList:=THashedStringList.Create;with langList dobegin“ZH-CHS=可靠的中国人”;“ZH-CHT=中国代表大会”;包括('en=English');(“ar=阿拉伯文”);bg=保加利亚人;('ca' =加泰罗尼亚语)cs=捷克;加上(“cs”=捷克);添加“da=丹麦”;nl=dutch; 添加('nl=dutch'); 添加('nl=dutch');(“et”=爱沙尼亚”;('Fi=芬兰语');(fr=法文);加上“de = 德语”;el=Greek; 添加 (“ el=Greek ” );ht=海地人;加上('ht=海地人);(“他”=希伯来语);"嗨" = "Hindi" ;Hu=匈牙利;加上(“Hu=匈牙利”);“id=印度尼西亚组”;(“意大利语”);(“ja=日语”);(“韩国人”);('lv'=拉脱维亚');“它=立陶宛”);"不=挪威"被添加。(“pl=波兰”);“pt=葡萄牙语”);插入('ro=罗马尼亚');“ru=俄罗斯”);添加“sk= slovak” ;加上“sl=斯洛文尼亚”。包括(`es'=西班牙语');添加“ sv=瑞典语” 。添加('th=泰国');添加了“ tr=土耳其 ” 。包括(“ uk=乌克兰” );"vi = 越南人;"end;for I := 0 to langList.Count - 1 dobeginComboBox1.Items.Add(langList.ValueFromIndex[i]);end;ComboBox1.ItemIndex:=0;end;

procedure TMainForm.Memo1Change(Sender: TObject);beginButton1.Enabled:= (length(trim(memo1.text))>0) and (ComboBox1.ItemIndex>=0);

end;

procedure TMainForm.Memo1KeyPress(Sender: TObject; var Key: Char);beginif key=#13 theninitParam;end;

function TMainForm.Translate(AAppID, AText, InLanguage,OutLanguage: string): string;varUrl: string;req: IXMLHTTPRequest;beginUrl := Format(TRANSLATESTR, [AAppID, AText, InLanguage, OutLanguage]);req := CoXMLHTTP.Create;req.open('Get', Url, False, EmptyParam, EmptyParam);req.send(EmptyParam);XMLDocument1.LoadFromXML( req.responseText);

结果:= XMLDocument1. - 你明白我的意思吗? 文本; / / 删除标签前和标签后end;

procedure TMainForm.initParam;varlangFrom: string;req: IXMLHTTPRequest;tolang: string;URL: string;beginUrl := Format(DETECT, [APPID, ToUTF8Encode(Memo1.Text)]);req := CoXMLHTTP.Create;req.open('Get', URL, False, EmptyParam, EmptyParam);req.send(EmptyParam);langFrom := req.responseText;XMLDocument1.LoadFromXML(langFrom);langFrom := XMLDocument1.DocumentElement.Text;tolang := langList.Names[ComboBox1.ItemIndex];memo2.Text := Translate(APPID, ToUTF8Encode(Memo1.Text), langfrom, tolang);end;end.

XTw.com.Cn系统网专业应用软件下载教程，免费windows10系统,win11,办公软件,OA办公系统,OA软件,办公自动化软件,开源系统,移动办公软件等信息，解决一体化的办公方案。