Problem with Hebrew strings

amnon · 2012-11-26 14:32:13

When converting to PDF I have the following problem

a String containing then character " is reversed.

I.E x"y is printed as y"x

I tried to debug the code but it's too complicated. Can you point me to the right routine?

thanks

Amnon

ab · 2012-11-26 15:51:42

Did you enable Uniscribe rendering?

amnon · 2012-11-27 04:39:03

yes.

I use version 1.18

ab · 2012-11-27 07:27:26

Enabling Uniscribe not only by setting the USE_UNISCRIBE conditional, but by explicitly set UseUniscribe := true property of TPdfDocument.
Ensure you set this property.

If it does not work, try to force Canvas.RightToLeftText := TRUE line 8893 of SynPDF.
But from my understanding, ETO_RTLREADING should be set in R.emrtext.fOptions for hebrew.

amnon · 2012-11-27 11:03:50

Thanks for your fast answer

I already did "UseUniscribe := true"

I corrected line # 8112 to Canvas.RightToLeftText := true;// av R.emrtext.fOptions and ETO_RTLREADING<>0;

I have only 8400 lines in synPDF is there another version?

The problem I raises was solved but a new one appeared

Error in strings mixing Hebrea & digits
==============================
The string "1 xxxx" appears as "xxxx1" earlier it was ok

"6111 5 yyyy 1 xx" appears as "yyyy1 xx6111 5"

it was wrong earlier too i just ignored it.

The xxxx & yyyy are various Hebrew characters

Error strings mixing Latin & Hebrew

"AXmYon" appears as "nonYmXA"

It will help me if you point me to the routine doing the inverting.

thanks again

Amnon

ab · 2012-11-27 15:25:10

Do you use metafile rendering to produce the pdf?

amnon · 2012-11-28 08:26:18

attached is my full code

procedure TPreviewPrint.PDFClick(Sender: TObject);
var
i:integer;
_PDF:TPdfDocumentGDI;
FN:ansiString;
aMeta:TMetaFile;
begin
_PDF:= TPdfDocumentGDI.Create;
with _PDF do begin
UseUniscribe:= true;
try
_PDF.Canvas.RightToLeftText:= true;
ScreenLogPixels:= 600;
with PagePrinter do for i:= 1 to PagesList.count do begin
aMeta:= TMetaFile(Pages);
//ConvertWMF2BMP(aMeta,'c:\Temp\a.bmp');
if PagePrinter.Orientation=poLandscape then begin
_Pdf.DefaultPageWidth := MulDiv(aMeta.Width,72,_Pdf.ScreenLogPixels);
_Pdf.DefaultPageHeight := MulDiv(aMeta.Height,72,_Pdf.ScreenLogPixels);
end;

with AddPage do begin
// _pdf.VCLCanvas.Draw(0,0,aMeta); // from "http://forum.quickreport.co.uk/default. … osts&t=589"
_PDF.Canvas.RenderMetaFile(aMeta); // from "http://synopse.info/forum/viewtopic.php?id=138"
end;
end; // with PagePrinter
without this lin I get an error message " was found without a matching "

ab · 2015-04-18 08:11:49

Please try the latest SynPDF commit proposed by "nosa".
See http://synopse.info/forum/viewtopic.php?id=2515

It includes a lot of improvements for Uniscribe, especially for Right To Left languages.

mORMot Open Source

#1 2012-11-26 14:32:13

Problem with Hebrew strings

#2 2012-11-26 15:51:42

Re: Problem with Hebrew strings

#3 2012-11-27 04:39:03

Re: Problem with Hebrew strings

#4 2012-11-27 07:27:26

Re: Problem with Hebrew strings

#5 2012-11-27 11:03:50

Re: Problem with Hebrew strings

#6 2012-11-27 15:25:10

Re: Problem with Hebrew strings

#7 2012-11-28 08:26:18

Re: Problem with Hebrew strings

#8 2015-04-18 08:11:49

Re: Problem with Hebrew strings

Board footer