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

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

(читать всё…)

Как динамически создать массив TScrollBar, чтобы не возникло проблем?

(читать всё…)

Хочу разместить форму в панель задач. Как мне это сделать, например, вместо часов?

(читать всё…)

Можно ли запустить CMD скрипт с самой программы, например с компонента memo? Как если бы запустили его посредством запуска файла .cmd ???
Нужно чтобы весь скрипт считывался с компоненты.

(читать всё…)

Есть куча *.cer файлов. Как программно узнать дату окончания сертификата?

(читать всё…)

Как определить кол-во знаков после запятой в числе extended?

(читать всё…)

на форме простой веббраузер1
загружаю гуглю

WebBrowser1.Navigate(ComboBox1.Text);

нахожу сайт через гугл = любой. здесь можно:

var
  TabSheet: TTabSheet;
  WebBrowser : TWebBrowser ;
begin
  TabSheet := TTabSheet.Create(PageControl1);
  TabSheet.Caption := 'New Tab Sheet';
  TabSheet.PageControl := PageControl1;
WebBrowser := TWebBrowser.Create(Self);
TWinControl(WebBrowser).Parent:=TabSheet;
TWinControl(WebBrowser).Align := alClient;
pagecontrol1.ActivePage:=tabsheet;

сделать так.
а через яндекс открывает в другом браузере ie, firefox и.т.п.
но не webbrawser1
как сделать чтобы новые ссылки открывал в TabSheet в созданных

(читать всё…)

можно ли узнать частоту звука = эквалайзеры как то же делают.

MediaPlayer1.FileName := 'sound.mp3';

  if MediaPlayer1.Media <> nil then
  begin
      MediaPlayer1.Play;
end;

если высокая частота то выводить красную картинку JPG
если низкая то зеленую
андройд — delphi 11

(читать всё…)

Нужно отредактировать строку в буфере обмена. А именно: убрать из неё CRLF’ы с их заменой на » » или «,». Собственно замену символов в строке я могу сделать. Интересует именно как скопировать содержимое буфера обмена в String. Как это можно сделать?

Варианты подходящих решений, как я вижу на настоящий момент:
1) Отредактировать строку с заменой символов прямо в буфере обмена и потом скопировать её в переменную типа String
2) Скопировать в переменную типа String содержимое буфера обмена и уже там делать замену символов.

Второе думаю проще?

(читать всё…)

Для своих классов можно просто добавить свойство Self (или любое иное имя), которое вернет ссылку на объект.

И как его добавить?

(читать всё…)