Последние записи

made in programmersforum 7

Интенсив по Python: Работа с API и фреймворками 24-26 ИЮНЯ 2022. Знаете Python, но хотите расширить свои навыки?
Slurm подготовили для вас особенный продукт! Оставить заявку по ссылке - https://slurm.club/3MeqNEk

Online-курс Java с оплатой после трудоустройства. Каждый выпускник получает предложение о работе
И зарплату на 30% выше ожидаемой, подробнее на сайте академии, ссылка - ttps://clck.ru/fCrQw

15th
Июн

Проблемы с кодировкой в запросе через THTTPSend

Подскажите, есть скрипт на моем веб сервере. Через get запрос принимает фразу и переводит на англ.
С веб браузера скрипт отображает текст нормально, кирилица + латиница.

А с делфи (THTTPSend) ни как не могу получить ответ без кракозябр..

Код:

const
  URL = 'https://.com/translate/translate.php?source=ru&target=en&text=привет';
var

  HTTPs: THTTPSend;
    res: TStringList;
    JS:ISuperObject;
begin
      HTTPs := THTTPSend.Create;
    res := TStringList.Create;


    HTTPs.Headers.Clear;
    if not HTTPs.HTTPMethod('GET', URL) then
      showmessage('internet connection: error') else
      begin
           res.LoadFromStream(HTTPs.Document);


           JS:=SO(res.text);
           Clipboard.AsText :=Utf8ToAnsi(RawByteString(res.Text));
           ShowMessage(res.text);
      end;
end;