Create PDF from your application

[white8889]

Hi taietel

I like this great script.

One question is how to try using other fonts that not installed in the script.

For example,if I copy a chinese font file (such as simkai.afm) to the %Temp%\Fonts,how to use this font in the script?

[taietel]

Hi white8889

I'm afraid you can not, because I don't know/use/speak/write chinese (I'm to old for that but not too old to play with AutoIt) and this version of activex was initial for my own projects, then I have decided to share. The fonts are read from within dll. 

M.I.

[StefanoS]

Hi all

I have a problem with this script, may you help me?

pdfAutoit.au3 (552) : ==> The requested action with this object has failed.:

.TextOut($sText, $iX, $iY)

.TextOut($sText, $iX, $iY)^ ERROR

Thanks a lot

[taietel]

Stefano, as you read in one of my previous posts, the problem was when setting style to certain fonts.

Of course I can/will help you!

Here is the modified dll. I have tested it with all the fonts/styles available in this version; in the zip file there is a sample pdf resulted from this (see pages 3 and 4).

Sorry for the delay, but I'm a little busy for the moment and tired also.

M.I.

[Edit] *typo

[Edit] Attachment moved to first post

Edited August 10, 2011 by taietel

[dmob]

Any progress on this great piece of work?

Also, where can I find more info about your dll? I have created a

sort of UDF for personal use, but I still need more info about the

functionality of this script, especially table creation / formatting.

[engjcowi]

Hi

Im on windows 7 X64 and everytime i try to use this it keeps saying that it cannot register the dll. Ive tried going to the temp dir and deleting the fonts and the dll and trying again but no joy

jamie

[dmob]

Tried to register it as admin?

Edited May 20, 2011 by dmob

[engjcowi]

Tried to register it as admin?

yeah. even compiled and then ran as admin

[taietel]

engjcowi, have you compiled your script for x32 or x64 architecture?

Try to compile for x32. The activex was intended for x32, since I use only that.

#AutoIt3Wrapper_UseX64=n

dmob, the info about the dll is not available for the moment.

I've updated the ActiveX for not using the external fonts and I will post it as soon as possible (still needs some testing).

Regards,

taietel

[dmob]

I use your dll on a daily basis on two separate apps.... I'd be happy

to do some testing, if you wish.

[FriendsFade]

Hey can you please post the code for creating the binary for resource files

[taietel]

FriendsFade,

expandcollapse popup

#NoTrayIcon
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
$Gui = GUICreate("Convert2au3",  200, 94, @DesktopWidth - 220, @DesktopHeight - 130, BitOR($WS_POPUP,$WS_BORDER), BitOR($WS_EX_ACCEPTFILES,$WS_EX_TOOLWINDOW))
GUISetBkColor(0x000000)
WinSetOnTop($Gui,"",1)
$Input1 = GUICtrlCreateLabel('', 0, 0, 200, 94)
GUICtrlSetState(-1, 136)
GUICtrlCreateLabel ("Drag your file here...", 10,10,180,17,$SS_CENTER, $GUI_WS_EX_PARENTDRAG)
GUICtrlSetColor(-1, 0xFFCC00)
$StatusBar=GUICtrlCreateLabel (@CRLF&@CRLF&'', 10,30,180,57,$SS_CENTER, $GUI_WS_EX_PARENTDRAG)
GUICtrlSetColor(-1, 0xFFFF00)
WinSetTrans($Gui,"",220)
GUISetState ()
    While 1
        $msg = GUIGetMsg()
        Select
            Case $msg = -13
                $filename=StringRegExp(@GUI_DRAGFILE,'(^.*)\\(.*)\.(.*)',3)
                GUICtrlSetData($StatusBar, 'Reading file '&$filename[1]&'.'&$filename[2]&' ...')
                ConsoleWrite($filename[0]&@CRLF)
                $ScrBin='Local $sData=''0x'''&@CRLF
                $file = FileOpen(@GUI_DRAGFILE, 16)
                While 1
                    $Bin = FileRead($file, 512)
                    If @error = -1 Then ExitLoop
                    $ScrBin&='$sData&='''&StringTrimLeft($Bin,2)&''''&@CRLF
                    Sleep(1)
                WEnd
                FileClose($file)

                GUICtrlSetData($StatusBar, 'Transforming file '&$filename[1]&'.'&$filename[2]&' ...')
                Sleep(1000)
                $Output = $filename[0] & '\Inc_'
                $i = 1
                While FileExists($Output & $i & '_'&$filename[1]&'.au3')
                    $i += 1
                WEnd
                $Output = $Output & $i & '_'&$filename[1]&'.au3'

                $file = FileOpen($Output,2)
                FileWrite($file, 'Func _IncludeFile($sPath="")'&@CRLF&$ScrBin&@CRLF& _
                'If $sPath="" Then $sPath=@TempDir'&@CRLF&'$sData=Binary($sData)'&@CRLF& _
                @TAB&'$f=$sPath&"\'&$filename[1]&'.'&$filename[2]&'"'&@CRLF& _
                @TAB&'If Not FileExists($sPath&"\'&$filename[1]&'.'&$filename[2]&'") Then'&@CRLF& _
                @TAB&@TAB&'$file=FileOpen($f,18)'&@CRLF& _
                @TAB&@TAB&'FileWrite($file,$sData)'&@CRLF& _
                @TAB&@TAB&'FileClose($file)'&@CRLF&@TAB&'EndIf'&@CRLF&@TAB&'Return $f'&@CRLF&"EndFunc")
                FileClose($file)
                GUICtrlSetData($StatusBar, 'Done! File Inc_'& $i & '_'&$filename[1]&'.au3 was created!')
                Sleep(3000)
                Exit
            Case $msg = -3
                Exit
        EndSelect
    WEnd

dmob, when I get back home.

Regards,

taietel

[edit] bad formating

Edited May 24, 2011 by taietel

[engjcowi]

engjcowi, have you compiled your script for x32 or x64 architecture?

Try to compile for x32. The activex was intended for x32, since I use only that.

#AutoIt3Wrapper_UseX64=n

dmob, the info about the dll is not available for the moment.

I've updated the ActiveX for not using the external fonts and I will post it as soon as possible (still needs some testing).

Regards,

taietel

Hi

Thanks for your help. ive added the above and still says cannot register. when i get more time im gonna try to register the dll manually

[taietel]

engjcowi, when I ran the application in windows 7 (32 bit), it can not register the activex as long as I run it as admin. On windows 7 (x64), the script will register the ActiveX if it is compiled as 32 bit application. The script, as it is now, tries to register the activex with the x64 version of the regsvr32 (that one from System32). Change the path to %systemroot%\SysWoW64\regsvr32.exe (see this article) in the script and I think it will solve your problem.

Regards,

taietel

[pinkfoyd]

Hi !

Got this error when running pdfAutoit.au3

+>15:51:08 Starting AutoIt3Wrapper v.2.0.1.24    Environment(Language:040C  Keyboard:0000040C  OS:WIN_XP/Service Pack 3  CPU:X64 OS:X86)
>Running AU3Check (1.54.19.0)  from:C:\Program Files\AutoIt3
+>15:51:08 AU3Check ended.rc:0
>Running:(3.3.6.1):C:\Program Files\AutoIt3\autoit3.exe "E:\_Downloads\pdfAutoit\pdfAutoit.au3"    
E:\_Downloads\pdfAutoit\pdfAutoit.au3 (543) : ==> The requested action with this object has failed.:
.Cell ($sText, $C[1], $C[2]+5, $C[3], 10)
.Cell ($sText, $C[1], $C[2]+5, $C[3], 10)^ ERROR
->15:51:11 AutoIT3.exe ended.rc:1
>Exit code: 1    Time: 3.927

[Emiel Wieldraaijer]

Hi Taietel,

Thanks for this master piece

I have no luck adding an image to a PDF with .Image

Which image formats are supported ? I've tried gif and png both with no luck

*** Edit : jpg works ***

Thanks

Best regards,

Emiel

Edited May 31, 2011 by Emiel Wieldraaijer

[dmob]

JPG works for me...

[StuffByDennis]

 If you want to output pdf's from your application, you can use this ActiveX DLL (embeded in the script). It's small and very easy to use. Here is a screenshot of the first page generated by the example. 

First, unpack the Fonts directory in the scriptdir (if you put it in another location, replace the path in the script). 

[EDIT] Deleted old version (165 downloads) and uploaded new one*

           *all included in the au3 

Love it

Works greate except the pdf file created causes an Arial-Bold BBox error when opening.

Last file I downloaded had Helvetica-Italin BBox error.

Fixing it would be greatly appreciated.

StuffByDennis

[Emiel Wieldraaijer]

@StuffByDennis

If you don't use these fonts, just remove the code which is causing the problem, thats what i did.

Or search the internet and download the files and recreate them with the code -> second post on page 6.

I believe this code is based on

Basicly this embedding is useless because it isn't used as it supposed to be.. because the files are saved. I would prefer to use the

[pintas]

Any way to digitally sign the PDF? That would be very helpful to me.