How to edit a EMF file

[vilian]

Hi Guys,

I have a program where I print something like this Page: 1/NNN, after generated all pages I wanted edit them and change NNN for the total of pages(Ex: 40), so the EMF files will have Page: 1/40, Page: 2/40, etc

Do you know if It´s possible ?

[cnavarro]

Look Len( ::oDevice:aMeta )

[vilian]

Thanks,

But I already have the total number of pages, what I need is to change this pages to insert this total in them.

[cnavarro]

Do you want to change NNN by the total number of pages after generating the EMF?
I think not possible, you have to regenerate the EMF

Well, you can try to read the emf and with a strtran change the contents of the file and re-record it, but I have not tried it

[vilian]

I have already tried it. But, after to change the file, its turns invalid.
IF I try open the modified file, it's showing the message bellow:

Can't read file reader!
Unknow file format, empty/damaged file

[AntoninoP]

The EMF file are binary so I think the strTran can not work... Besides the text inside them is saved as WideChar...
The correct solution is difficult but not impossible: https://msdn.microsoft.com/en-us/library/dd162509(v=vs.85).aspx..-.
you need to add a lot of support for harbour or write your procedure in C...

I think the simpler solution is do 2 prints, the first to see how much pages it will create, and the second with the correct page total number.

[Marcelo Via Giglio]

Hello,

many years ago, I made changes to the report class, one of them was the page total number

Code: Select all  Expand view  RUN

Function NumeraPag(oPrn,nRowStep,nColStep)
Local x
Local nPaginas := Len( oPrn:aMeta )
Local aFicheros := oPrn:aMeta
Local nCol := 70*nColStep      //colocalo donde prefieras
Local nLin := 64*nRowStep    //   ""

if nPaginas <= 1 // Solamente una pagina
  Return Nil
endif

oPrn:aMeta := {}

FOR x := 1 TO nPaginas
   //PAGE
   oPrn:startpage()
   oPrn:ImportWMF( aFicheros[ x ], .F. )
   oPrn:Say( nLin,nCol, +Alltrim( Str( x ) ) +"/" + Alltrim( Str( nPaginas ) ) ,,,,,1 )
   oPrn:endPage()
   //ENDPAGE
NEXT

Return NIl
 

You can call this function from the Report END() method NumeraPag(::oDevice,1,1) or define in external event ON END, etc

[cnavarro]

The EMF file are binary so I think the strTran can not work... Besides the text inside them is saved as WideChar...

No, with StrTran not, that is obvious
But it is possible change text

[nageswaragunupudi]

Marcelo Via Giglio's solution is Good

[vilian]

How did you do this change ?

The EMF file are binary so I think the strTran can not work... Besides the text inside them is saved as WideChar...

No, with StrTran not, that is obvious
But it is possible change text

[AntoninoP]

Did you use a binary editor?

The EMF file are binary so I think the strTran can not work... Besides the text inside them is saved as WideChar...

No, with StrTran not, that is obvious
But it is possible change text

[cnavarro]

No, through programming

[nageswaragunupudi]

Mr Cristobal's approach must be something like this:

Code: Select all  Expand view  RUN

  cBuf  := MEMOREAD( "test.emf"
   cBuf  := StrTran( cBuf, AnsiToWide( "/99" ), AnsiToWide( "/40" ) )
   MEMOWRIT( "test.emf", cBuf )
 

This could work in some simple cases that Mr Vilian requires, but not in all cases.

Explanation why "not in all cases".
emf file stores a lot more information than text and font info. In some cases alignment, kerning etc of characters may get disturbed.

Example:
This substitution looks quite reasonable:

Code: Select all  Expand view  RUN

cBuf  := StrTran( cBuf, AnsiToWide( "City" ), AnsiToWide( "CITY" ) )

But let us see the result:



We can use this approach if we keep in mind its limitations.
In any case, this should work well for page numbers as required by Mr Vilian

[vilian]

Thank you,
It's exactly I need