Как перевести текст в формат DOS

← →
Andrey K (2015-02-08 00:05) [0]

Доброго времени суток. Пишу редактор для станков с ЧПУ. На станке досовская операционка. УП (управляющая программа) выводит сообщения для оператора. Как перевести сообщения в досовский формат при передаче УП на станок. Или где можно про это почитать.

← →
Юрий Зотов © (2015-02-08 00:27) [1]

Насколько помню, CharToOem <-> OemToChar. Инструкции в гугле.

← →
Andrey K (2015-02-08 00:33) [2]

Спасибо

← →
Dennis I. Komarov © (2015-02-08 01:02) [3]

Удалено модератором

← →
i2e (2015-02-09 14:02) [4]

пользовался таким:

function TextDosToWin(S: String): String; var I, LenS: Integer; P: PChar; begin P := PChar(S); LenS := StrLen(P); I := 1; while I <= LenS do // áûëî ïîäïðàâëåíî "<=" begin if ( Ord(S[I]) = $F0 ) then S[I] := Chr($A8) else // ¨ if ( Ord(S[I]) = $F1 ) then S[I] := Chr($B8) else // ¸ if ( Ord(S[I]) >= $A0 ) and ( Ord(S[I]) <= $AF ) then //à-ï S[I] := Chr( Ord(S[I]) + $40 ) else if ( Ord(S[I]) >= $E0 ) and ( Ord(S[I]) <= $EF ) then //ð-ÿ S[I] := Chr( Ord(S[I]) + $10 ) else if ( Ord(S[I]) >= $80 ) and ( Ord(S[I]) <= $9F ) then //À-ß S[I] := Chr( Ord(S[I]) + $40 ); inc(I); end; TextDosToWin := S; end; function TextWinToDos(S: String): String; var I, LenS: Integer; P: PChar; begin P := PChar(S); LenS := StrLen(P); I := 1; while I <= LenS do begin if ( Ord(S[I]) = $A8 ) then S[I] := Chr($F0) else // ¨ if ( Ord(S[I]) = $B8 ) then S[I] := Chr($F1) else // ¸ if ( Ord(S[I]) >= $E0 ) and ( Ord(S[I]) <= $EF ) then //à-ï S[I] := Chr( Ord(S[I]) - $40 ) else if ( Ord(S[I]) >= $F0 ) and ( Ord(S[I]) <= $FF ) then //ð-ÿ S[I] := Chr( Ord(S[I]) - $10 ) else if ( Ord(S[I]) >= $C0 ) and ( Ord(S[I]) <= $DF ) then //À-ß S[I] := Chr( Ord(S[I]) - $40 ); inc(I); end; TextWinToDos := S; end;

← →
i2e (2015-02-09 14:03) [5]

в комментариях:
// Ё
// ё
// а-п
// р-я
// А-Я

Как перевести текст в формат DOS Найти похожие ветки