Size: a a a

2020 February 12

RS

Renat Suleymanov in Delphi & Lazarus
Alexey Shumkin
👍
она развивается ваще? на сайте 12-й год.. версия 40 (если правильно помню).. та же ставится в пакете laz_synapse
Вообще стабильная 40, но 40.1 транковая. И я использую и фрипаскалисты используют как правило транковую потому что  именно она загружена в OnlinePackageManager.
Ну и да, развивается вроде. Но я в том же OPM видел форки synapse... Возможно у авторов синапс нет желания его пилить... Вижу в планах вебсокеты у них были
источник

AK

Alexey Kulakov in Delphi & Lazarus
ну, я все досступные методы там не проверял ещё. Потому и не делал реализацию, а пока собираю информацию
источник

RS

Renat Suleymanov in Delphi & Lazarus
Alexey Kulakov
ну, скажем, так...
   res:=TFPHTTPClient.SimplePost(
       g_host+
       g_lang+'ru'+
       g_text+EncodeURLElement(src));
при вызове
TranslateGoogle('stars are Fl&ry bright. Isn''t it?')
перевидывало меня на страницу с каптчей (если полученый адрес в браузере открыть), а прога тупо "зависала" до нажатия Esc. Вот для такого случая и хотел возврат по таймеру сделать.
Таймауты пропиши
источник

AK

Alexey Kulakov in Delphi & Lazarus
ну, мне важнее сначала, в любом случае, добиться, чтоб этот гугль вообще давал перевод :( Яндекс почему-то самый беспроблемный вышел пока что...
источник

RS

Renat Suleymanov in Delphi & Lazarus
Renat Suleymanov
Вообще стабильная 40, но 40.1 транковая. И я использую и фрипаскалисты используют как правило транковую потому что  именно она загружена в OnlinePackageManager.
Ну и да, развивается вроде. Но я в том же OPM видел форки synapse... Возможно у авторов синапс нет желания его пилить... Вижу в планах вебсокеты у них были
Synapse wishlist

   Encode/Decode for DNS Packets
   SNMPv3 AUTHPRIV DES and AES
   WebSocket Protocol (RFC 6455)
   Redirects handling (like Indy's idHTTP.HandleRedirects := true;)
   IRC client
   Delphi8 support (Current D8 support is only experimental. I not plan to finish it! Lukas)
   Fuller demonstration code of how to encode a MIME attachment and attach to an oubound message. Present demos seem only to deal with decoding. (dittos on this request)
   DHCP Server (tweetyarg@hotmail.com 092004)
   LDAP Server (tweetyarg@hotmail.com 092004)
   Free Pascal compilation using native free libraries instead of proprietary libc (I've done it once using Free Pascal libraries included in Debian Linux. vovic-at-smtp-dot-ru) (Done in latest version.)
   IMAP4 Support (Exists long time ago. Lukas)
   Support for Mac OS X, at least on the Intel platform. I read Eon Clash's ATerm project had started using Synapse on Mac intel, maybe you can officially “take over” the effort. Thanks. ;)
   D2009 unicode support.
   Try use synapse in win7 and DNS functions dont work. win7 build 7100
   MLSD command support in FtpSend
   HTTP Send → add referer (Exists HTTP.Headers.Insert(0,'Referer: ');)
   * Android support
источник

AK

Alexey Kulakov in Delphi & Lazarus
зачёркнуто - это значит "реализовано"?
источник

RS

Renat Suleymanov in Delphi & Lazarus
Alexey Kulakov
зачёркнуто - это значит "реализовано"?
Видимо, да. Правда не знаю как это реализовать. Предполагаю, что в данном случае либы не нужно оставлять в папке с программой
источник

AS

Alexey Shumkin in Delphi & Lazarus
Alexey Kulakov
ну, скажем, так...
   res:=TFPHTTPClient.SimplePost(
       g_host+
       g_lang+'ru'+
       g_text+EncodeURLElement(src));
при вызове
TranslateGoogle('stars are Fl&ry bright. Isn''t it?')
перевидывало меня на страницу с каптчей (если полученый адрес в браузере открыть), а прога тупо "зависала" до нажатия Esc. Вот для такого случая и хотел возврат по таймеру сделать.
ну ты? как бы, в курсе, как работает HTTP? ))
источник

AS

Alexey Shumkin in Delphi & Lazarus
Renat Suleymanov
Synapse wishlist

   Encode/Decode for DNS Packets
   SNMPv3 AUTHPRIV DES and AES
   WebSocket Protocol (RFC 6455)
   Redirects handling (like Indy's idHTTP.HandleRedirects := true;)
   IRC client
   Delphi8 support (Current D8 support is only experimental. I not plan to finish it! Lukas)
   Fuller demonstration code of how to encode a MIME attachment and attach to an oubound message. Present demos seem only to deal with decoding. (dittos on this request)
   DHCP Server (tweetyarg@hotmail.com 092004)
   LDAP Server (tweetyarg@hotmail.com 092004)
   Free Pascal compilation using native free libraries instead of proprietary libc (I've done it once using Free Pascal libraries included in Debian Linux. vovic-at-smtp-dot-ru) (Done in latest version.)
   IMAP4 Support (Exists long time ago. Lukas)
   Support for Mac OS X, at least on the Intel platform. I read Eon Clash's ATerm project had started using Synapse on Mac intel, maybe you can officially “take over” the effort. Thanks. ;)
   D2009 unicode support.
   Try use synapse in win7 and DNS functions dont work. win7 build 7100
   MLSD command support in FtpSend
   HTTP Send → add referer (Exists HTTP.Headers.Insert(0,'Referer: ');)
   * Android support
сколько лет этому?!
источник

AK

Alexey Kulakov in Delphi & Lazarus
я не сделал финальнеую версию, пробовал простейший подход. Естественно, где надо будет кукисы или допю заголовки использовать, буду полноценный класс создавать, а не использовать этот вариант
источник

AS

Alexey Shumkin in Delphi & Lazarus
Renat Suleymanov
Synapse wishlist

   Encode/Decode for DNS Packets
   SNMPv3 AUTHPRIV DES and AES
   WebSocket Protocol (RFC 6455)
   Redirects handling (like Indy's idHTTP.HandleRedirects := true;)
   IRC client
   Delphi8 support (Current D8 support is only experimental. I not plan to finish it! Lukas)
   Fuller demonstration code of how to encode a MIME attachment and attach to an oubound message. Present demos seem only to deal with decoding. (dittos on this request)
   DHCP Server (tweetyarg@hotmail.com 092004)
   LDAP Server (tweetyarg@hotmail.com 092004)
   Free Pascal compilation using native free libraries instead of proprietary libc (I've done it once using Free Pascal libraries included in Debian Linux. vovic-at-smtp-dot-ru) (Done in latest version.)
   IMAP4 Support (Exists long time ago. Lukas)
   Support for Mac OS X, at least on the Intel platform. I read Eon Clash's ATerm project had started using Synapse on Mac intel, maybe you can officially “take over” the effort. Thanks. ;)
   D2009 unicode support.
   Try use synapse in win7 and DNS functions dont work. win7 build 7100
   MLSD command support in FtpSend
   HTTP Send → add referer (Exists HTTP.Headers.Insert(0,'Referer: ');)
   * Android support
D2009 unicode support.
WTF?!

   WebSocket Protocol (RFC 6455)
   HTTP Send → add referer (Exists HTTP.Headers.Insert(0,'Referer: ');)

2020й год
источник

RS

Renat Suleymanov in Delphi & Lazarus
Alexey Shumkin
сколько лет этому?!
Вот не знаю, наверное много.
Так лично мне хотелось бы, чтобы нативный клиентв в FPC допилили для полноценной работы с прокси. Думаю будет стабильней и меньше зависимостей... Брокер HTTP клиента стал делать по необходимости,  а не желания (
источник

AK

Alexey Kulakov in Delphi & Lazarus
Alexey Shumkin
ну ты? как бы, в курсе, как работает HTTP? ))
  gt:=TFPHTTPClient.Create(nil);
 res:= g_host+
       g_lang+'ru'+
       g_text+EncodeURLElement(src);
 gt.AddHeader('Content-length',IntToStr(Length(res)));

 result:=gt.Post(res);

 gt.Free;
не особо помогало :(
источник

AK

Alexey Kulakov in Delphi & Lazarus
ладно, в любом случае, нужную информацию я получил, спасибо!
источник

RS

Renat Suleymanov in Delphi & Lazarus
Alexey Kulakov
ладно, в любом случае, нужную информацию я получил, спасибо!
На форуме буржуйском как-то промелькала работа с гугл транслейт, кажется. Поищи
источник

AK

Alexey Kulakov in Delphi & Lazarus
это было давно, до ввода платной услуги :( года 3-4 назад и у меня старый метод работал исправно
источник

AS

Alexey Shumkin in Delphi & Lazarus
Alexey Kulakov
  gt:=TFPHTTPClient.Create(nil);
 res:= g_host+
       g_lang+'ru'+
       g_text+EncodeURLElement(src);
 gt.AddHeader('Content-length',IntToStr(Length(res)));

 result:=gt.Post(res);

 gt.Free;
не особо помогало :(
ничо не понял ))
источник

AK

Alexey Kulakov in Delphi & Lazarus
если добавить
const
 g_host='https://translate.google.com/translate_a/t?client=x&q=wrapper&tbb=1';
 g_lang='&ie=UTF-8&oe=UTF-8&hl=en&sl=en&tl=';
 g_text='&text=';
будет проще?
источник

RS

Renat Suleymanov in Delphi & Lazarus
Alexey Kulakov
  gt:=TFPHTTPClient.Create(nil);
 res:= g_host+
       g_lang+'ru'+
       g_text+EncodeURLElement(src);
 gt.AddHeader('Content-length',IntToStr(Length(res)));

 result:=gt.Post(res);

 gt.Free;
не особо помогало :(
Пример простого запроса с помощью нативного клиента:
 FHTTPClient.AddHeader('User-Agent', UserAgent);
 aResult:=FHTTPClient.FormPost(URL, FormData);
Никакого Content-length не нужно
источник

AK

Alexey Kulakov in Delphi & Lazarus
создаётся экземпляр класса HTTPClient, добавляется заголовок с длиной текста, по методу Post пполучается отзыв, экземпляр класса уничтожается
источник