delphi利用bing翻译API做的多国语言翻译软件源代码
delphi利用bing翻译API做的多国语言翻译软件
以下是参照万一老师的例子，做的多国语言翻译软件，可以自动判断输入的语言。软件中用到了http连接技术、json技术和xml解析技术、转化UTF8字符串。软件中还有一些问题，例如可以得到bing 支持的各种语言代号，但是怎么转化为中文描述的语言名称等，请大家给予帮助。
直接上代码：
unit Unit7;
interface
us
Windows, Messages, SysUtils, Variants, Class, Graphics, Controls, Forms,
Dialogs,msxml, StdCtrls, ExtCtrls,IniFiles,XMLDoc, xmldom, XMLIntf, msxmldom;
type
TMainForm = class(TForm)teachers
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);
cj什么意思
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=' m/v2/Http.svc/GetLanguagesForTranslate?appId=%s';
GETLANGUAGENAMES='/v2/Htt p.svc/GetLanguageNames?appId=%s&locale=%s&languageCodes=%s' ;
DETECT='/V2/http.svc/Dete ct?appId=%s&text=%s';
TRANSLATESTR=
'/V2/http.svc/Translate?a ppId=%s&text=%s&from=%s&to=%s';
APPID= 'C98FDCE95A2FD7BA417F260D43763C40232E****';
var
MainForm: TMainForm;
implementation
{$R *.dfm}
//字符串到 UTF8 编码的函数, 用于 Google 地址
function ToUTF8Encode(str: string): string;
var
b: Byte;
begin
for b in BytesOf(UTF8Encode(str)) do
Result := Format('%s%s%.2x', [Result, '%', b]);
end;
procedure TMainForm.Button1Click(Sender: TObject);
begin
initParam;
end;
procedure TMainForm.ComboBox1Change(Sender: TObject); begin
Button1.Enabled:= (length())>0) and (ComboBox1.ItemIndex>=0);
end;
非限定性定语从句procedure TMainForm.FormShow(Sender: TObject);
var
I:Integer;
begin
ComboBox1.Items.Clear;
langList:=THashedStringList.Create;
with langList do
begin
add('zh-CHS=简体中文');
add('zh-CHT=繁体中文');
add('en=英语');
add('ar=阿拉伯语');
add('bg=保加利亚语');
add('ca=加泰罗尼亚人语');
add('cs=捷克语');
add('da=丹麦语');
add('nl=荷兰语');
add('et=爱沙尼亚语');
add('fi=芬兰语');
add('fr=法语');
add('de=德语');
add('el=希腊语');
add('ht=海地语');
add('he=希伯来语');
add('hi=北印度语');
add('hu=匈牙利语');
add('id=印尼语群');
add('it=意大利语');
add('ja=日本语');
add('ko=韩语');economically
add('lv=拉脱维亚语');
add('lt=立陶宛语');
add('no=挪威语');
add('pl=波兰语');
blmadd('pt=葡萄牙语');
add('ro=罗马尼亚语');
add('ru=俄语');
add('sk=斯洛伐克语');
add('sl=斯洛文尼亚语');
add('es=西班牙语');
add('sv=瑞典语');
闪烁的意思add('th=泰文');
add('tr=土耳其语');sb什么意思
add('uk=乌克兰语');
the middleadd('vi=越南语');
end;
for I := 0 to langList.Count - 1 do
begin
ComboBox1.Items.Add(langList.ValueFromIndex[i]);
end;
ComboBox1.ItemIndex:=0;师大二附
end;
procedure TMainForm.Memo1Change(Sender: TObject);
