Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Общие вопросы Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 01.06.2023, 21:48   #1
remus-xe2
Пользователь
 
Регистрация: 27.10.2017
Сообщений: 54
По умолчанию проблемы с кодировкой

Подскажите, есть скрипт на моем веб сервере. Через 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( - это уже от безисходности начал варианты с интернета перебирать...

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

https://radikal.host/i/X8PFhT
translate - это перевод от гугла..
а source Это то что приходит на сервер из делфи для перевода

может нужно кодировать и отправку как то ?

Последний раз редактировалось remus-xe2; 01.06.2023 в 21:57.
remus-xe2 вне форума Ответить с цитированием
Старый 01.06.2023, 21:59   #2
remus-xe2
Пользователь
 
Регистрация: 27.10.2017
Сообщений: 54
По умолчанию

блин как пост создашь все работать начинает....
в общем да у меня проблема не с приемом, а с передачей параметров...
Может кому то пригадится
Код:
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;

Последний раз редактировалось remus-xe2; 01.06.2023 в 22:24.
remus-xe2 вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Проблемы с кодировкой Александр74 Помощь студентам 1 09.06.2012 22:21
Проблемы с кодировкой Mrsqler Общие вопросы Delphi 4 25.04.2012 22:09
Проблемы с кодировкой и sql'ем N-Cat PHP 10 14.07.2011 14:07
Проблемы с кодировкой! bookkc PHP 5 17.05.2009 22:25
Проблемы с кодировкой Levchik HTML и CSS 2 16.12.2008 16:12