DotMatrix ukrain

Domkrat

Ув. госода програмисты, как напечатать украинские буквы "Іі" на матричном принтере.

Bortnik Alexandr

Domkrat написал:

Ув. госода програмисты, как напечатать украинские буквы "Іі" на матричном принтере.

одна из причин - отсутствие пошивки DOS866 в матричном принтере (или старая, так в EPSON - 300 украинская Її отсутствовала, а в EPSON - 300+ - прописана - ASCI код 244)
P.S. - при условии, что перекодировка с WIN в DOS корректная

Domkrat

Дело в том что в 866 кодовой странице нет украинской Ii, но есть английская,
соответственно в репорте только RussianCharset. Поэтому преобразование происходит некоректно.

dummy1

В frxDMPExport .pas

написал:

  function StrToOem(const AnsiStr: String): String;
  var i:integer;
    s:string;
  begin
    s:=AnsiStr;
    i:=pos('і',s);    // укр буква i
    while i<>0 do
    begin
      s:='i';          // англ буква i
      i:=pos('i',s);    // укр буква i
    end;
    i:=pos('I',s);      // укр буква I
    while i<>0 do
    begin
      s:='I';            // англ буква I
      i:=pos('I',s);          // укр буква I
    end;

    SetLength(Result, Length(s));
    if Length(Result) > 0 then
      CharToOemBuff(PChar(s), PChar(Result), Length(Result));
  end;

Тупо , но работает