Lazarus + Linux console

[still]

v-t-l...
Это да, только повторюсь, это чистая работа с терминалом. Например очистка экрана - вывод пустых строк. И тд и тп.
Такое для принтера хорошо, а не для терминального приложения чуть сложнее чем просмотр лога.

[Alex2013]

1 В консоли линукса нет врожденного эмулятора дос как в Виндовс . (А Туробовижен работает с видепмятью напрямую $B800:ХХХХ )
2 Это именно терминал которому можно подключаться хоть телнетом хоть через модем
3 Если копать исходники то лучше смотреть в строну МиднайтКомандера (МС) помню дико восхищала возможность "пробраться куда нибудь в shell" (На древние серваки американских универов например ) и запустить МС ...
4 ANSI код действительно работает почти везде но есть версии МС которые могут работать и без него (Есть еще более простые терминальные последовательности )
https://ru.wikipedia.org/wiki/%D0%A3%D0 ... 0%BB%D1%8B
(Для очистки консоли почти везде работает вывод Chr(12) $0C FORM FEED прогон страницы, смена страницы ^L \f )
P.S.
Буга ! scn.org еще жив (прямо типа "Флин жив!" ) ...
(Кстати посмотри как там страницы очищает )

@ubuntu:/home$ telnet scn.org
Trying 66.212.64.194...
Connected to scn.org.
Escape character is '^]'.

Seattle Community Network Sun Solaris 1.1.1.B
Please login as 'visitor' if you are a visitor


SunOS UNIX (scn)

login:

[still]

В общем нарисовал объект, даже с цветами и буферизацией.
Проблема в общема под мои нужны решена.

[azsx]

Проблема в общема под мои нужны решена.

не совсем понятно, а как решена? То есть инструментом free vision?

[still]

не совсем понятно, а как решена? То есть инструментом free vision?

Нет. Самое сложное было получить разрешение консоли. Решилось так:

Код: Выделить всё

procedure TConsole.GetSize;
var
 WinInfo : TWinSize;
begin
 if (fpIOCtl(TextRec(Output).Handle, TIOCGWINSZ, @Wininfo)>=0) then begin
  AWidth:=Wininfo.ws_col;
  AHeight:=Wininfo.ws_row;
 end;
end;

Далее написал функцию отправки эскейп последовтельностей вот так:

Код: Выделить всё

procedure TConsole.WriteSCI(AString:String);
begin
 Write(Char(27)+'['+AString);
end;

Далее написал класс TConsole в котором реализовал всякую всячину работы с консолью UTF16, UTF8.

Код: Выделить всё

 constructor Create;
 destructor Destroy; override;
 procedure GetSize(var AWidth:word; var AHeight:word);
 procedure Clear;
 procedure WriteString(AString:string);
 procedure WriteSCI(AString:String);
 procedure SetCursorPosition(x:integer; y:integer);
 property Cursor:boolean read FCursor write SetCursor;
 property Width:integer read GetWidth;
 property Height:integer read GetHeight;
 // Буфферизация
 function FrameBegin:boolean;
 procedure FrameEnd;
 function GetBuffered:boolean;
 property Buffered:boolean read GetBuffered;
 property Window:TWindow read FWindow;
 function Resized:boolean;

 function GetColorInc:byte;
 procedure SetColorInc(AValue:byte);
 function GetColorPaper:byte;
 procedure SetColorPaper(AValue:byte);
 function GetColorAttr:TColorAttr;
 procedure SetColorAttr(AValue:TColorAttr);

 property ColorInc:byte read GetColorInc write SetColorInc;
 property ColorPaper:byte read GetColorPaper write SetColorPaper;
 property ColorAttr:TColorAttr read GetColorAttr write SetColorAttr;

TWindow - в котором сделал буфферизацию, сейчас сижу допиливаю вывод окон, перекрытие и так далее. Мне пока хватит для интерфейса.

Код: Выделить всё

 constructor Create;
 destructor Destroy; override;

 property Caption:string read FCaption write SetCaption;
 property Name:string read FName write FName;
 property Width:integer read FWidth write SetWidth;
 property Height:integer read FHeight write SetHeight;

 procedure SetSize(AWidth:integer; AHeight:integer);
 procedure WriteString(AString:string);
 property WrapLine:boolean read FWrapLine write FWrapLine;
 property ColorInc:byte read FColorInc write FColorInc;
 property ColorPaper:byte read FColorPaper write FColorPaper;
 property ColorAttr:TColorAttr read FColorAttr write FColorAttr;
 property CursorX:integer read FCursorX write FCursorX;
 property CursorY:integer read FCursorY write FCursorY;
 property Buffer:PBuffer read FBuffer;
 procedure SetCursorPosition(x,y:integer);
 procedure Clear;
 procedure Fill;
 procedure Display(AWindow:TWindow);
 property Left:integer read FLeft write SetLeft;
 property Top:integer read FTop write SetTop;  

Короче как обычно... Сейчас пытаюсь разобраться как с клавы читать.

[Alex2013]

Обычные read и readln как я понимаю не подходят ?
Хотя "честное консольное приложение" по идее должно уметь читать и "стандартный ввод" вдруг переопределят или кому-то макрос придет голову написать ...
Вообще должно "асигнавться" устройство в /dev/... (stdin или console ?)

https://ru.wikipedia.org/wiki/Conio.h

[still]

Я в конечном счете делаю вывод через write. До ввода потока еще не добрался. Нет необходимости пока.

[unxed]

С этим кто нить работал?

библиотека брошена и никто ей серьёзно не занимается

Не настолько прямо брошена. Самое главное, чего в ней не хватало — поддержки юникода — сделали:
https://gitlab.com/freepascal.org/fpc/s ... _833019965