On Mon, 12 Nov 2007 20:25:13 +0100
Jilani Khaldi <[EMAIL PROTECTED]> wrote:
> Hi All,
> I am translating a piece of code from C to Pascal...
> Any help? Thanks!
>
> /* C code */
> void draw_fonts (HPDF_Page page)
> {
> int i;
> int j;
>
> HPDF_Page_BeginText (page);
>
> /* Draw all character from 0x20 to 0xFF to the canvas. */
> for (i = 1; i < 17; i++) {
> for (j = 1; j < 17; j++) {
> unsigned char buf[2];
> int y = PAGE_HEIGHT - 55 - ((i - 1) * CELL_HEIGHT);
> int x = j * CELL_WIDTH + 50;
>
> buf[1] = 0x00;
>
> buf[0] = (i - 1) * 16 + (j - 1);
> if (buf[0] >= 32) {
> double d;
>
> d = x - HPDF_Page_TextWidth (page, (char*)buf) / 2;
> HPDF_Page_TextOut (page, d, y, (char*)buf);
>
> }
> }
> }
>
> HPDF_Page_EndText (page);
> }
>
> // Pascal translation
> procedure draw_fonts(page: HPDF_Page);
> var
> buf: array[0..1] of byte;
> i, j, x, y: integer;
> d: double;
> PP: PChar;
> begin
> HPDF_Page_BeginText (page);
> //* Draw all character from 0x20 to 0xFF to the canvas. */
> for i := 1 to 16 do
> for j := 1 to 16 do
> begin
> y := PAGE_HEIGHT - 55 - ((i - 1) * CELL_HEIGHT);
> x := j * CELL_WIDTH + 50;
> buf[1] := $0;
> buf[0] := (i - 1) * 16 + (j - 1);
> if (buf[0] >= 32) then
> begin
> PP := PChar(buf[0]);
PP := PChar(@buf[0]);
> d := x - HPDF_Page_TextWidth(page, PP) / 2;
> ///////// Executing the line above gives an Access
> Violation!!!!! HPDF_Page_TextOut (page, d, y, PP);
> end;
> end;
> HPDF_Page_EndText (page);
> end;
Mattias
_______________________________________________
fpc-pascal maillist - fpc-pascal@lists.freepascal.org
http://lists.freepascal.org/mailman/listinfo/fpc-pascal
