Aurora
Adminer
Auto Root
WP Admin
cPanel Reset
Anti Backdoor
Root
usr
share
libharu
if
freebasic
Upload
New Folder
New File
Name
Size
Permissions
Actions
..
-
-
-
Upload File
Select File
New Folder
Folder Name
New File
File Name
Add WordPress Admin
Database Host
Database Name
Database User
Database Password
Admin Username
Admin Password
cPanel Password Reset
Email Address
Edit: hpdftest.bas
'****************************************************************************** '* Program name: hpdftest '* Version: 0.1 '* '* Author: Copyright (c) 2008 Klaus Siebke '* Siebke Unternehmensberatung '* URL http://www.siebke.com '* '* Description: '* ----------- '* '* Program to test the creation of a PDF file using the Haru Free PDF Library '* for more details see: http://www.freebasic.net/forum/viewtopic.php?t=9014 '* '* License: '* ------- '* '* Permission to use, copy, modify, distribute and sell this software '* and its documentation for any purpose is hereby granted without fee, '* provided that the above copyright notice appear in all copies and '* that both that copyright notice and this permission notice appear '* in supporting documentation. '* It is provided "as is" without express or implied warranty. '* '* '* External libraries used by the program: '* -------------------------------------- '* '* << Haru Free PDF Library 2.0.8 >> '* URL http://libharu.org/ '* Copyright (c) 1999-2006 Takeshi Kanno '* '****************************************************************************** #include "crt/errno.bi" #include "zlib.bi" '****************************************************************************** '* Includes for Haru Free PDF Library '****************************************************************************** #ifndef __mod_hpdf_bi__ #define __mod_hpdf_bi__ #include once "hpdf_consts.bi" #include once "hpdf_types.bi" #include once "hpdf.bi" #endif '****************************************************************************** '* Declarations of subroutines and functions '****************************************************************************** declare sub error_handler cdecl (byval error_no as HPDF_STATUS, byval detail_no as HPDF_STATUS, byval user_data as any ptr ) '****************************************************************************** '* Constants '****************************************************************************** #define NULL 0 const page_title = "PDF test document" '****************************************************************************** '* Variables '****************************************************************************** dim shared pdf as HPDF_Doc 'ptr dim shared fname as string * 256 dim shared page as HPDF_Page dim shared def_font as HPDF_Font dim shared txt_font as HPDF_Font dim shared tw as HPDF_REAL dim shared doc_height as HPDF_REAL dim shared doc_width as HPDF_REAL dim shared i as HPDF_UINT 'dim shared errno as HPDF_STATUS ptr dim shared detno as HPDF_STATUS ptr dim shared userdat as any ptr '****************************************************************************** '* Begin of main program '****************************************************************************** 'let's go ... (initialize hpdf) pdf = HPDF_New(@error_handler, NULL) 'add a new page object page = HPDF_AddPage (pdf) 'specify the document size doc_height = HPDF_Page_GetHeight (page) doc_width = HPDF_Page_GetWidth (page) 'print a frame HPDF_Page_SetLineWidth (page, .5) HPDF_Page_Rectangle (page, 50, 50, doc_width - 100, doc_height - 110) HPDF_Page_Stroke (page) 'print the title of the page (with positioning center) with font Helvetica def_font = HPDF_GetFont (pdf, "Helvetica", NULL) HPDF_Page_SetFontAndSize (page, def_font, 24) tw = HPDF_Page_TextWidth (page, page_title) HPDF_Page_BeginText (page) HPDF_Page_TextOut (page, (doc_width - tw) / 2, doc_height - 50, page_title) HPDF_Page_EndText (page) 'print some text inside the frame HPDF_Page_BeginText (page) 'first line with font Times Roman 14 txt_font = HPDF_GetFont (pdf, "Times-Roman", NULL) HPDF_Page_MoveTextPos (page, 60, doc_height - 105) HPDF_Page_SetFontAndSize (page, txt_font, 14) HPDF_Page_ShowText (page, "This is a first line") 'second line with font Courier 12 txt_font = HPDF_GetFont (pdf, "Courier", NULL) HPDF_Page_MoveTextPos (page, 0, -20) HPDF_Page_SetFontAndSize (page, txt_font, 12) HPDF_Page_ShowText (page, "This is a second line") 'third line with font Symbol 16 txt_font = HPDF_GetFont (pdf, "Symbol", NULL) HPDF_Page_MoveTextPos (page, 0, -20) HPDF_Page_SetFontAndSize (page, txt_font, 16) HPDF_Page_ShowText (page, "Here are some symbols") 'fourth line with font Helvetica 14 txt_font = HPDF_GetFont (pdf, "Helvetica", NULL) HPDF_Page_MoveTextPos (page, 0, -20) HPDF_Page_SetFontAndSize (page, txt_font, 14) HPDF_Page_ShowText (page, "This is arial") HPDF_Page_EndText (page) 'save the document HPDF_SaveToFile (pdf, "mydoc.pdf") 'clean up HPDF_Free (pdf) '****************************************************************************** '* End of main program '****************************************************************************** sub error_handler cdecl (byval error_no as HPDF_STATUS, byval detail_no as HPDF_STATUS, byval user_data as any ptr) '****************************************************************************** '* Error handler '****************************************************************************** ' do something here ... print "error_no: ", error_no print "detail_no:", detail_no print "data: ", user_data end sub