Datakent Ana Sayfa
Anasayfa Anasayfa > Diğer bölümler > Borland Delphi
  Aktif Konular Aktif Konular RSS: Delphi ile google translete kullanımı
  Yardım Yardım  Hızlı Ara   Kayıt Ol Kayıt Ol  Giriş Giriş

Delphi ile google translete kullanımı

 Yanıt Yaz Yanıt Yaz
Yazar
Mesaj
murat turan Açılır Menü Göster
Admin Group
Admin Group
Simge
Datakent

Kayıt Tarihi: 01.Ekim.2003
Bulundugu Yer: Turkey
Online: Sitede Değil
Gönderilenler: 1798
  Alıntı murat turan Alıntı  Yanıt YazCevapla Mesajın Direkt Linki Konu: Delphi ile google translete kullanımı
    Gönderim Zamanı: 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;



Düzenleyen murat turan - 04.Ekim.2018 Saat 08:10
Yukarı Dön
 Yanıt Yaz Yanıt Yaz

Forum Atla Forum İzinleri Açılır Menü Göster



Bu Sayfa 0,459 Saniyede Yüklendi. [power by : WebWiz]