image = HPDF_LoadJpegImageFromFile(pdf, "fblogo.jpeg")
HPDF_Page_DrawImage (page, image, 100, 300, HPDF_Image_GetWidth(image), HPDF_Image_GetHeight (image))

'******************************************************************************    
'*  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
'*
'*  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.sourceforge.net/
'* Copyright (c) 1999-2006 Takeshi Kanno
'*
'******************************************************************************    
'******************************************************************************    
'* Includes for Haru Free PDF Library    
'******************************************************************************    
#include "crt/errno.bi"
#include "zlib.bi"          
#Include "crt.bi"
#ifndef __mod_hpdf_bi__
#define __mod_hpdf_bi__
#include once "hpdf_consts.bi"
#include once "hpdf_types.bi"
#include once "hpdf.bi"
#include once "png.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
dim shared As HPDF_Destination dst

'******************************************************************************    
'* Begin of main program
'******************************************************************************    
'print "let's go"
'let's go ... (initialize hpdf)
pdf = HPDF_New(@error_handler, NULL)
'print "after hpdf_new"
'add a new page object

page = HPDF_AddPage (pdf)
'print "after hpdf_AddPage"
doc_height = HPDF_Page_GetHeight (page)
'print "after hpdf_GetHeight"
doc_width = HPDF_Page_GetWidth (page)
HPDF_SetCompressionMode (pdf, HPDF_COMP_ALL)
       dst = HPDF_Page_CreateDestination (page)
        HPDF_Destination_SetXYZ (dst, 0, HPDF_Page_GetHeight (page), 1)
          HPDF_SetOpenAction(pdf, dst)

Dim As HPDF_Image image

image = HPDF_LoadJpegImageFromFile(pdf, "fblogo.jpeg")
HPDF_Page_DrawImage (page, image, 100, 300, HPDF_Image_GetWidth(image), HPDF_Image_GetHeight (image))

'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")

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

#Include "window9.bi"
#include "crt/errno.bi"
#Ifndef __mod_hpdf_bi__
#define __mod_hpdf_bi__
#include once "hpdf_consts.bi"
#include once "hpdf_types.bi"
#include once "hpdf.bi"
#include once "png.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 page         as HPDF_Page
Dim shared doc_height   as HPDF_REAL
dim shared doc_width    as HPDF_REAL
Dim shared As HPDF_Destination dst

'******************************************************************************
'* Begin of main program
'******************************************************************************
'print "let's go"
'let's go ... (initialize hpdf)
pdf = HPDF_New(@error_handler, NULL)
'print "after hpdf_new"
'add a new page object

page = HPDF_AddPage (pdf)
'print "after hpdf_AddPage"
doc_height = HPDF_Page_GetHeight (page)
'print "after hpdf_GetHeight"
doc_width = HPDF_Page_GetWidth (page)
HPDF_SetCompressionMode (pdf, HPDF_COMP_ALL)
dst = HPDF_Page_CreateDestination (page)
HPDF_Destination_SetXYZ (dst, 0, HPDF_Page_GetHeight (page), 1)
HPDF_SetOpenAction(pdf, dst)

Dim As HPDF_Image image
Dim As Bitmap bmp
Dim As Hbitmap  hBitmap = LoadImageFromResource(Cast(LPCTSTR,100))

GetObject(hBitmap,SizeOf(BITMAP),@bmp)

Dim As UByte Ptr pbBytes = Allocate((bmp.bmHeight)*(bmp.bmWidth)*3)
Dim As Integer j

For y As Integer = bmp.bmHeight-1 To 0 Step -1
  For x As Integer = 0 To bmp.bmWidth-1   
   Dim as Integer ptr iColor = cast(integer Ptr,(bmp.bmBits+y*bmp.bmWidth*4)+x*4)
   pbBytes[j] = cast(UByte Ptr,iColor)[2]
   pbBytes[j+1] = cast(UByte Ptr,iColor)[1]
   pbBytes[j+2] = cast(UByte Ptr,iColor)[0]
   j+=3
  Next
Next

Free_Image(hBitmap)

image = HPDF_LoadRawImageFromMem(pdf,pbBytes,bmp.bmWidth,bmp.bmHeight,HPDF_CS_DEVICE_RGB,8)
HPDF_Page_DrawImage (page, image, 100, 300, HPDF_Image_GetWidth(image), HPDF_Image_GetHeight (image))

'print a frame
HPDF_Page_SetLineWidth (page, .5)
HPDF_Page_Rectangle (page, 50, 50, doc_width - 100, doc_height - 110)
HPDF_Page_Stroke (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