Databáze > Obecné

Google Překladač integrovat do Delphi aplikace

(1/2) > >>

jtfcobra:
Ahoj našel jsem že by šlo inegrovat google prekladac mate s tim nekdo zkusenosti ?

Nasel jsem kod kde neni treba API.

Ale v XE7 nefunguje...


--- Kód: ---function translate(ss,lng:string):string;
var s:widestring;
a,b:integer;
http:tidhttp;
begin
http:=tidhttp.Create;
s:=http.Get('http://translate.google.com/translate_t?text='
+httpencode(ss)+'&langpair='+lng);
a:=posex('›',s,pos('‹textarea',s));
b:=posex('‹/textarea›',s,a);
result:=copy(s,a+1,b-a-1);
http.Free;
end;
--- Konec kódu ---

LNG definice:

--- Kód: ---lng:array[0..17]of string=('zh-CN%7Cen',
'en%7Czh-CN',
'en%7Cfr',
'en%7Cde',
'en%7Cit',
'en%7Cja',
'en%7Cko',
'en%7Cpt',
'en%7Ces',
'fr%7Cen',
'fr%7Cde',
'de%7Cen',
'de%7Cfr',
'it%7Cen',
'ja%7Cen',
'ko%7Cen',
'pt%7Cen',
'es%7Cen');
--- Konec kódu ---

< z >:
Tohle je asi nejak stary. Musel bys poslat spravny pozadavek
"http://translate.google.com/translate_a/t?client=at&hl=en&sl=auto&tl=cs&text=Text"

jtfcobra:
A poradis jak tohle zmenit aby to slo v XE7?


--- Kód: ---function translate(ss,lng:string):string;
var s:widestring;
a,b:integer;
http:tidhttp;
begin
http:=tidhttp.Create;
s:=http.Get('http://translate.google.com/translate_t?text='
+httpencode(ss)+'&langpair='+lng);
a:=posex('›',s,pos('‹textarea',s));
b:=posex('‹/textarea›',s,a);
result:=copy(s,a+1,b-a-1);
http.Free;
end;
--- Konec kódu ---

jtfcobra:
Zpátky se mi vrací

Přeložil jsem automobil z češtiny do anglictiny


--- Kód: ---{"sentences":[{"trans":"Car","orig":"Automobil","translit":"","src_translit":""}],"dict":[{"pos":"podstatné jméno","terms":["automobile","car","buggy"],"entry":[{"word":"automobile","reverse_translation":["automobil"],"synset_id":[20534],"score":0.63563865},{"word":"car","reverse_translation":["auto","automobil","vůz","vagón","kabina"],"synset_id":[20534],"score":0.37955719},{"word":"buggy","reverse_translation":["bryčka","automobil"]}],"base_form":"automobil","pos_enum":1}],"src":"cs","ld_result":{},"server_time":15}
--- Konec kódu ---

Ale netusim jak z toho radku

--- Kód: ---{"sentences":[{"trans":"Car","orig":"Automobil","translit":"","src_translit":""}]
--- Konec kódu ---

Vzít ten překlad jenom slovíčko Car:

--- Kód: ---"trans":"Car"
--- Konec kódu ---

< z >:
http://delphi.cz/post/Zaklady-JSON-v-Delphi.aspx
json.S['sentences[0].trans']

Navigace

[0] Seznam témat

[#] Další strana

Přejít na plnou verzi