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

made in programmersforum 3

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

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

15th
Июн

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

Posted by obzor under Delphi

Подскажите, есть скрипт на моем веб сервере. Через 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;

Utf8ToAnsi(RawByteString( — это уже от безисходности начал варианты с интернета перебирать…

Может есть у кого совет ?

remus-xe2

Проблема не с приемом, а с передачей параметров…

Код:

var
  HTTPs: THTTPSend;
  res: TStringList;
  JS: ISuperObject;
  url: string;
begin
  HTTPs := THTTPSend.Create;
  res := TStringList.Create;
  url :=TIdURI. URLEncode(
    'https://.com/translate/translate.php?source=ru&target=en&text='+
    RUSMemo.Text
  );

  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(res.Text);

  end;
end;