Windows CE printing turkish character
lazarus / 35-Windows CE

----------------------------------------------------------------------
safa4141 · 2015-10-13 23:35

Hi, i am developing WinCE application with Lazarus. I'm using
bluetooth dot-matrix printer to print invoice.
I'm sending printer to the text on windows 7 my printer prints turkish
characters correctly. But i'm sending printer to windows CE 5.0 my
printer doesn't  print
Turkish characters correctly. Only "?" printing for Turkish characters
(İ, Ş, Ç, Ö)
Please help me!!!

my print code is;

Code: Pascal  [Select][+][-]window.onload = function(){var x1 =
document.getElementById("main_content_section"); if (x1) { var x =
document.getElementsByClassName("geshi");for (var i = 0; i procedure
PrintInvoice(AText: String); var  buff : PByte;  FH: THandle; 
sOutPut: String;  lenBuff: Integer;  RetW: DWORD; begin   sOutput
:=UTF8ToConsole(AText);  lenBuff:=Length(sOutput);   FH:=
CreateFile('COM9:', GENERIC_READ or GENERIC_WRITE, 0, Nil,
OPEN_EXISTING, 0, 0);    if (FH = INVALID_HANDLE_VALUE) then     
ShowMessage('Invalid handle!')   else begin   try     
Buff:=PByte(@sOutput[1]);      WriteFile(FH, buff^, lenBuff, RetW,
Nil);       if Integer(RetW) = lenBuff then       
ShowMessage('Printed!');   finally      Windows.CloseHandle(FH); 
 end;   end;

----------------------------------------------------------------------
felipemdc · 2015-10-22 10:26

sOutput :=UTF8ToConsole(AText);

Try changing this into:

sOutput := AText;

or this:

uses lconvencoding;

sOutput := UTF8ToCP1254(AText);

See all available encoding conversion routines from lconvencoding
here: http://svn.freepascal.org/cgi-bin/viewvc.cgi/trunk/components/la
zutils/lconvencoding.pas?view=markup&root=lazarus