delphi下的google翻译

最新推荐文章于 2020-11-25 09:34:15 发布

Forest_Yan

最新推荐文章于 2020-11-25 09:34:15 发布

阅读量2.4k

点赞数

文章标签： delphi google string function url initialization

本文链接：https://blog.youkuaiyun.com/Forest_Yan/article/details/636269

版权

这篇博客介绍了一个使用Delphi编写的程序，该程序能够利用Google翻译API进行中文到英文以及英文到中文的翻译。通过定义`TranslateChineseToEnglish`和`TranslateEnglishToChinese`两个函数，实现了字符串的转换。程序首先将输入字符串转换为UTF8编码，并构造Google翻译的URL，然后通过TIDHttp组件获取并解析翻译结果。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

使用google翻译的delphi程序

unit Unit2;

interface

uses IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient, IdHTTP, strutils;

function TranslateChineseToEnglish(str : string) : string;
function TranslateEnglishToChinese(str : string) : string;

implementation

var
http : TIDHttp;

function ToUTF8(str : string) : string;
begin
result := UTF8Encode(AnsireplaceStr(str,' ','%20'));
end;

function GetUrl(langsel : string; txt : string) : string;
begin
result := 'http://www.google.com/translate_t?hl=zh-CN&ie=UTF8&oe=UTF8&submit=Translate&langpair='+langsel+'&text='+ToUTF8(txt);
end;

function getResult(url : string):string;
var
res : string;
st,ed : integer;
begin
res := UTF8Decode(http.Get(url));

st := posEx('<textarea name=q',res);

if (st <=0) then
begin
result := '';
exit;
end;

st := posEx('>',res,st);

ed := posEx('<',res,st);

result := midBStr(res,st+1,ed-st-1);
end;

function TranslateChineseToEnglish(str : string) : string;
var
url : string;
begin
url := GetUrl('zh-CN|en',str);

result := getResult(url);
end;

function TranslateEnglishToChinese(str : string):string;
var
url : string;
begin
url := GetUrl('en|zh-CN',str);

result := getResult(url);
end;

initialization
http := TIDHttp.Create(nil);
http.Host := 'http://www.google.com/translate_t';

finalization
http.Free;
end.