Выполнить команду и результат вывести в memo

@eagle nest · Регистрация: 06.12.2013

Author24 — интернет-сервис помощи студентам

Доброго времени суток!

мне нужно повесить несколько команд на кнопки (к примеру выполнить команду ROUTE PRINT) и вывести результат в memo
в интернете нашел несколько вариантов, но как всегда проблема с кодировкой.
подскажите как решить проблему

@eagle nest · 03.10.2018, 15:22 **[ТС]**

Спасибо за понимание и терпение )

справился сам
удалил
OemToAnsi(Buffer, Buffer);
и дописал
AMemo.Text := ConsoleToUTF8(AMemo.text + string(Buffer));

Добавлено через 29 минут
Попутно еще вопрос, если ввести команду "help" то половина кракозябры половина нет
Как исправить чтобы все отображалось в читаемом виде?

@eagle nest · 04.10.2018, 09:31 **[ТС]**

Утро доброе!

проблему решил не там написал consoletoutf8
AMemo.Text := AMemo.text + consoletoutf8(string(Buffer));

@volvo · 04.10.2018, 09:36

А теперь внимательно смотрим на реализацию этой самой ConsoleToUTF8:

Pascal

function SysToUTF8(const s: string): string;
begin
  {$IFDEF UTF8_RTL}
  Result:=s;
  {$ELSE}
  if NeedRTLAnsi and (not IsASCII(s)) then
  begin
    Result:=AnsiToUTF8(s);
    {$ifdef FPC_HAS_CPSTRING}
    // prevent UTF8 codepage appear in the strings - we don't need codepage
    // conversion magic in LCL code
    SetCodePage(RawByteString(Result), StringCodePage(s), False);
    {$endif}
  end
  else
    Result:=s;
  {$ENDIF}
end;
 
function ConsoleToUTF8(const s: string): string;// converts UTF8 string to console encoding (used by Write, WriteLn)
begin
  Result := SysToUTF8(S);
end;

, откуда следует, что на нормальном Лазарусе (не устаревшем, а на том, где весь RTL - юникодный, что означает наличие UTF8_RTL) эту функцию можно выкинуть на фиг, потому что она тупо вернет исходную строку, но через две обертки.

@eagle nest · 04.10.2018, 09:47 **[ТС]**

Lazarus 1.8.4

@volvo · 04.10.2018, 10:12

Открой файл LazUTF8.pas в IDE Лазаруса, найди там ту самую функцию SysToUTF8 (проще всего это сделать через Ctrl+Click для перехода к заголовку и далее Ctrl+Shift+"стрелка вверх" для перехода к реализации функции), и посмотри, какая из веток активна: та, которая внутри {$ifdef UTF8_RTL} или другая. Это видно сразу: активная отображается нормальным шрифтом, неактивная - приглушенным).

@eagle nest · 04.10.2018, 10:38 **[ТС]**

та, которая внутри {$ifdef UTF8_RTL}
а consoletoutf8 другая

Pascal

function ConsoleToUTF8(const s: string): string;// converts console encoding to UTF8
var
  Dst: PChar;
begin
  Dst := AllocMem((Length(s) + 1) * SizeOf(Char));
  if OemToChar(PChar(s), Dst) then
    Result := StrPas(Dst)
  else
    Result := s;
  FreeMem(Dst);
  Result := WinCPToUTF8(Result);
end;

@volvo · 04.10.2018, 10:54

Ясно. Они для каждой платформы отдельный файл сделали. У меня unixlazutf8.inc...

@eagle nest 38 / 36 / 12 Регистрация: 06.12.2013 Сообщений: 330
	03.10.2018, 15:22 [ТС]	2
	Спасибо за понимание и терпение ) справился сам удалил OemToAnsi(Buffer, Buffer); и дописал AMemo.Text := ConsoleToUTF8(AMemo.text + string(Buffer)); Добавлено через 29 минут Попутно еще вопрос, если ввести команду "help" то половина кракозябры половина нет Как исправить чтобы все отображалось в читаемом виде? 0

@eagle nest 38 / 36 / 12 Регистрация: 06.12.2013 Сообщений: 330
	04.10.2018, 09:31 [ТС]	3
	Утро доброе! проблему решил не там написал consoletoutf8 AMemo.Text := AMemo.text + consoletoutf8(string(Buffer)); 0

@eagle nest 38 / 36 / 12 Регистрация: 06.12.2013 Сообщений: 330
	04.10.2018, 09:47 [ТС]	5
	Lazarus 1.8.4 0

@volvo Супер-модератор 32856 / 21190 / 8151 Регистрация: 22.10.2011 Сообщений: 36,447 Записей в блоге: 8
	04.10.2018, 10:12	6
	Открой файл LazUTF8.pas в IDE Лазаруса, найди там ту самую функцию SysToUTF8 (проще всего это сделать через Ctrl+Click для перехода к заголовку и далее Ctrl+Shift+"стрелка вверх" для перехода к реализации функции), и посмотри, какая из веток активна: та, которая внутри {$ifdef UTF8_RTL} или другая. Это видно сразу: активная отображается нормальным шрифтом, неактивная - приглушенным). 0

@volvo Супер-модератор 32856 / 21190 / 8151 Регистрация: 22.10.2011 Сообщений: 36,447 Записей в блоге: 8
	04.10.2018, 10:54	8
	Ясно. Они для каждой платформы отдельный файл сделали. У меня unixlazutf8.inc... 1