Sayfayı Yazdır | Pencereyi Kapat

Delphi ile google translete kullanımı

Nereden Yazdırıldığı: Datakent
Kategori: Diğer bölümler
Forum Adı: Borland Delphi
Forum Tanımlaması: Borland Delphi ile ilgili soru / sorun / paylaşım bölümü
URL: http://forum.datakent.com/forum_posts.asp?TID=3044
Tarih: 28.Mart.2024 Saat 14:17


Konu: Delphi ile google translete kullanımı
Mesajı Yazan: murat turan
Konu: Delphi ile google translete kullanımı
Mesaj Tarihi: 30.Eylül.2018 Saat 17:00
Delphi ile google translete kullanımı:

uses kısmına aşağıdaki unitleri ekleyiniz:
HTTPApp, IdHTTP, IdSSLOpenSSL

uygulamanızın exe dosyasının olduğu konuma  "libeay32.dll, ssleay32.dll" isimli iki DLL dosyasını kopyalayınız. Bu DLL dosyaları aşağıdaki konumda bulunmaktadır:

C:\Program Files (x86)\Embarcadero\RAD Studio\x.x\bin\subversion


var
 _q:String;
 _url:String;
 Buffer: String;
 HTTP: TIdHTTP;
 SSLIO:TIdSSLIOHandlerSocketOpenSSL;
begin
result_google.Text :='';

_q  := 'big bang';
_url:= 'https://translate.googleapis.com/translate_a/single?client=gtx&sl=en&tl=tr&dt=t&q=' + HTTPEncode(_q);

HTTP := TIdHTTP.Create(nil);
Http.ProtocolVersion := pv1_1;
Http.HandleRedirects := True;

SSLIO := TIdSSLIOHandlerSocketOpenSSL.Create(nil);
SSLIO.SSLOptions.Method:=sslvTLSv1;
SSLIO.SSLOptions.Mode := sslmClient;

Http.IOHandler:=SSLIO;
Buffer := HTTP.Get(_url);

SSLIO.Destroy;
HTTP.Destroy;

ShowMessage(Buffer);

end;



-------------
http://www.kasatakip.com - Kasa Takip  |  http://www.caritakip.com - Cari Takip  |  http://www.evraktakip.com - Evrak Takip  |  http://www.etasqlmobil.com - ETA SQL Mobil



Sayfayı Yazdır | Pencereyi Kapat