Leaderboard

I would like to present, the UDF for Debenu Quick PDF Library Getting Started: http://www.debenu.com/products/development/debenu-pdf-library/getting-started/getting-started-activex-edition/ Function Reference: http://www.debenu.com/docs/pdf_library_reference/FunctionGroups.php Useful information: http://www.quickpdf.org/forum/quickpdf-the-first-steps_topic1242.html http://www.quickpdflibrary.com/blog/2011/02/the-basics-getting-familiar-with-quick-pdf-library/ First time installing Debenu Quick PDF Library: You can download demo here: http://www.quickpdflibrary.com/downloads/quick_pdf_library_demo.exe Requirements: file "DebenuPDFLibraryLite1012.dll" or "DebenuPDFLibraryAX1014.dll" must be in @ScriptDir if you want to try you must download it from here: http://www.debenu.com/products/development/debenu-pdf-library/trial/ or http://www.debenu.com/products/development/debenu-pdf-library-lite/free/ after install you can find this dll in: "c:\Program Files (x86)\DebenuPDF Library\ActiveX\DebenuPDFLibraryAX1014.dll" or "c:\Program Files (x86)\DebenuPDF Library\Lite\DebenuPDFLibraryLite1012.dll" !!! you can change DLL to newer version using _QPDF_NewLibraryPath_Commercial() EDIT: actualy (19-06-2015) there is DebenuPDFLibraryAX1115.dll and DebenuPDFLibraryLite1115.dll to use the commercial version you need to use the _QPdf_SetLicenseKey()AutoIt 3.3.10.2++For UDF and examples download, and the current version information please go to download section: The following information are outdated 2014-05-14: 2014/05/14 v0.3 * removed examples from QuickPDF.au3 * added separate file with examples QuickPDF_Examples.au3 * added _QPDF_StartUp() * added _QPDF_NewLibraryPath_Commercial() * added _QPDF_NewLibraryPath_Lite() * __AddLeadingZeros changedt to __QPDF_AddLeadingZeros * CleanUp * _QPdf_ changed to _QPDF_ * Function Header - significantly supplemented * additional comments * new set of enum constants!!!!!!!!!!!!!!! SCRIPT BREAKING CHANGE !!!!!!!!!!!!!!! * Lite Function renaming to change your script you can use: ClipPut(StringRegExpReplace(ClipGet(),'(?i)(_QPDF)(_Lite)(_.*?)((|R)','$1$3$2$4')) * all functions which starts with "_QPDF__" now starts with "_QPDF_" it means one less "_" * _QPDF_FileSplitEachPage added new Parameters $sPDF_Password (as a second not third so $sDestinationDir is moved to third position * __QPDF_CreateObjectAndUnlock($oQP) change to _QPDF_CreateObjectAndUnlock($oQP) its mean is not internal any more =================================================== 2014-05-31: 2014/05/31 v0.4 QuickPDF.au3 * in __QPDF_UnlockKey() - Remarks changed * in _QPDF_StartUp() fixed: 'If Not FileExists($sDLLFile) Then' removed 'Not' * because of this process did not work on systems where the library was not registered using regsvr32.exe. * in _QPDF_StartUp() added: return values, but their functionality is not yet implemented and described (be expected to change within a week) * Added: new function: _QPDF_PrintPDFFile([$sPDF_FileFullPath = Default[, $sPDFPassword = ''[, $iDuplex = 1 ]]]) * Added: new function: _QPDF_MergeFiles($sFirstFileName, $sSecondFileName[, $sOutputFileName = Default]) QuickPDF_Examples.au3 * new example _QPDF_Example_MergeFiles() 2014/05/31 v0.5 QuickPDF.au3 * FIXED: in _QPDF_PrintPDFFile now printing all pages not only the first one 2014-07-02 NEW VERSION: 2014/07/02 v0.6 QuickPDF.au3 * added: #AutoIt3Wrapper_Au3Check_Parameters=-d -w 1 -w 2 -w 3 -w- 4 -w 5 -w 6 -w 7 and script CleanUp * added: new function _QPDF_ExtractTextFromStream() - you can use this function when you have data taken from Blob from SQL databese * added: new parameters _QPDF_NewLibraryPath_Commercial($sLibrary_NewFileFullPath, $sNewClassName, $sNewCLSID, $sNewIID) * #Region renaming - for better usage in SciTE Jump * in _QPDF_MergeFiles() -- litle change in $sOutputFileName = Default - add & '_temp.pdf' instead 'temp.pdf' * Changed: _QPDF_LastErrorCode -- Return Value containg description (string) and @error contain LastErrorCode * Changed: _QPDF_ExtractTextFromFile dafult $iExtractOptions = 7 for detail see here : http://www.quickpdf.org/forum/extractfilepagetext-options-0-and-8_topic2929.html * Removed: some MsgBox * Fixed: _QPDF_StartUp() - error checking for DllOpen QuickPDF_Examples.au3 * added: using new function _QPDF_NewLibraryPath_Commercial() for this you need DebenuPDFLibraryAX1015.dll _QPDF_NewLibraryPath_Commercial(@ScriptDir & 'DebenuPDFLibraryAX1015.dll', 'DebenuPDFLibraryAX1015.PDFLibrary', '{5D4196E9-0A7D-48DC-BD2C-7CD3FE771B38}', '{FA7270CF-D774-4A68-8368-2C3179895E0C}') QuickPDF_Calltip_Generator.au3 * NEW: use it to generate au3.QuickPDF.calltips.api OLD INFO: Before: 2014-05-05 OLD: Before: 2014-05-05 I'm working on UDF for http://www.quickpdf.org/ http://www.debenu.com/products/development/debenu-pdf-library/trial/ http://www.debenu.com/products/development/debenu-pdf-library/getting-started/getting-started-activex-edition/ For now I'm learning on the basis of examples of documentation: http://www.debenu.com/products/development/debenu-pdf-library/help/developer-guide/ http://www.debenu.com/docs/pdf_library_developer_guide/debenu_quick_pdf_library_10_developer_guide.pdf here is what I have: #include <MsgBoxConstants.au3> Global $__sClassName = "DebenuPDFLibraryAX1014.PDFLibrary" Global $__sLicenseKey = "....." ;'SET YOUR LICENSE KEY HERE... #CS C:\Windows\SysWOW64>regsvr32 "C:\Program Files\Debenu\PDF Library\ActiveX\DebenuPDFLibraryAX1014.dll" C:\Windows\SysWOW64>regsvr32 "c:\Program Files (x86)\Debenu\PDF Library\ActiveX\DebenuPDFLibrary64AX1014.dll" #CE _QPdf_Example_HelloWorld() _QPdf_Example_PrintDefault() Func __QPdf_UnlockKey($oQPdf, $sLicenseKey = Default) If $sLicenseKey = Default Then $sLicenseKey = $__sLicenseKey EndIf Local $Result = $oQPdf.UnlockKey($__sLicenseKey) If $Result <> 1 Then MsgBox($MB_SYSTEMMODAL, "info", "Invalid license key. Please set your license key by editing this file.") EndIf Return $Result EndFunc ;==>__QPdf_UnlockKey Func _QPdf_Example_HelloWorld() Local $sFileName = @ScriptDir & "\hello-world.pdf" Local $oQPdf = ObjCreate($__sClassName) If __QPdf_UnlockKey($oQPdf, $__sLicenseKey) = 1 Then ConsoleWrite("Library version: " & $oQPdf.LibraryVersion & @CRLF) ConsoleWrite("License Info: " & $oQPdf.LicenseInfo & @CRLF) $oQPdf.SetOrigin(1); $oQPdf.SetTextSize(20); $oQPdf.DrawText(100, 100, "Hello world from AutoIt") $oQPdf.SetTextSize(25); $oQPdf.DrawText(100, 200, "Hello world from AutoIt") $oQPdf.SetTextSize(30); $oQPdf.DrawText(100, 300, "Hello world from AutoIt") $oQPdf.SetTextSize(60); $oQPdf.SetTextColor(0, 0.5, 1); $oQPdf.DrawText(100, 400, "Hello world from AutoIt") If $oQPdf.SaveToFile($sFileName) = 1 Then MsgBox($MB_SYSTEMMODAL, "Info", "File " & $sFileName & " written successfully.") Else MsgBox($MB_SYSTEMMODAL, "Error", "File " & $sFileName & " could not be written.") EndIf EndIf EndFunc ;==>_QPdf_Example_HelloWorld Func _QPdf_Example_PrintDefault() ; based on Debenu Quick PDF Library 10 Developer Guide.pdf ; Standard PDF printing Local $sFileName = @ScriptDir & "\hello-world.pdf" Local $oQPdf = ObjCreate($__sClassName) If __QPdf_UnlockKey($oQPdf, $__sLicenseKey) = 1 Then ConsoleWrite("Library version: " & $oQPdf.LibraryVersion & @CRLF) ConsoleWrite("License Info: " & $oQPdf.LicenseInfo & @CRLF) $oQPdf.LoadFromFile($sFileName, ''); $iPrintOptions = $oQPdf.PrintOptions(0, 0, "Printing Sample 1") $oQPdf.PrintDocument($oQPdf.GetDefaultPrinterName(), 1, 1, $iPrintOptions); $iPrintOptions = $oQPdf.PrintOptions(0, 0, "Printing Sample 2") $oQPdf.PrintDocument($oQPdf.GetDefaultPrinterName(), 1, 1, $iPrintOptions); EndIf EndFunc ;==>_QPdf_Example_PrintDefault EDIT: First time installing Debenu Quick PDF Library: In order to download the current version of the UDF, download the attached file: QuickPDF.au3.Download.html QuickPDF.au3.Download.html

antonioj84, My apologies, I have been very busy lately and I completely forgot about this thread - I will try and find time to look into the problem today. Note to all readers: if you want help with one my UDFs it is best to post in the UDF thread so that I am guaranteed to remember it. M23 Edit: The removal men are delayed so I have a moment now. How about this: #include <GUIConstantsEx.au3> #include "GUIExtender.au3" $hGUI = GUICreate("Test", 1000, 500) _GUIExtender_Init($hGUI, 1, 2) ; Use mode 2 so the static GUI does not move $iSection_1 = _GUIExtender_Section_Create($hGUI, 0, 500) ; Add some controls so we can see which section is which GUICtrlCreateLabel("", 0, 0, 500, 500) GUICtrlSetBkColor(-1, 0xCCCCFF) GUICtrlSetState(-1, $GUI_DISABLE) GUICtrlCreateLabel("I am the BLUE section that opens and closes", 0, 100, 300, 20) _GUIExtender_Section_Create($hGUI, 500, 500) GUICtrlCreateLabel("", 500, 0, 500, 500) GUICtrlSetBkColor(-1, 0xFFCCCC) GUICtrlSetState(-1, $GUI_DISABLE) GUICtrlCreateLabel("I am the PINK section that is static", 500, 100, 300, 20) ; Activation control must be in this section, not the extendable one _GUIExtender_Section_Activate($hGUI, $iSection_1, "", "", 690, 6, 20, 20) ; Close section creation structure _GUIExtender_Section_Create($hGUI, -99) ; Close extendable section _GUIExtender_Section_Action($hGUI, $iSection_1, False) GUISetState() While 1 $iMsg = GUIGetMsg() Switch $iMsg Case $GUI_EVENT_CLOSE Exit EndSwitch ; Pass GUI handle and event message to the UDF so it can action the extendable section _GUIExtender_EventMonitor($hGUI, $iMsg) WEnd

Try chewing on these:

#cs <table cellpadding="0" cellspacing="3" border="0"> <tr> <td class="smallfont" style="white-space: nowrap;"><label for="navbar_username">User Name</label></td> <td><input type="text" class="bginput" style="font-size: 11px" name="vb_login_username" id="navbar_username" size="10" accesskey="u" tabindex="101" value="User Name" onfocus="if (this.value == 'User Name') this.value = '';"/></td> <td class="smallfont" nowrap="nowrap"><label for="cb_cookieuser_navbar"><input type="checkbox" name="cookieuser" value="1" tabindex="103" id="cb_cookieuser_navbar" accesskey="c"/>Remember Me?</label></td> </tr> <tr> <td class="smallfont"><label for="navbar_password">Password</label></td> <td><input type="password" class="bginput" style="font-size: 11px" name="vb_login_password" id="navbar_password" size="10" tabindex="102"/></td> <td><input type="submit" class="button" value="Log in" tabindex="104" title="Enter your username and password in the boxes provided to login, or click the 'register' button to create a profile for yourself." accesskey="s"/></td> </tr> </table> #ce $sSource = FileRead(@ScriptFullPath) $sStart = "<table" $iStart = StringInStr($sSource, $sStart, 1) $sEnd = "</table>" $iEnd = StringInStr($sSource, $sEnd, 1) #include <IE.au3> Global $oIE = _IECreate() _IEBodyWriteHTML($oIE, StringMid($sSource, $iStart, $iEnd-$iStart+StringLen($sEnd))) Local $username = _IEGetObjByName($oIE, "vb_login_username") Local $password = _IEGetObjByName($oIE, "vb_login_password") _IEFormElementSetValue($username, "USERNAME") _IEFormElementSetValue($password, "PASSWORD") Execute('($password.parentNode.parentNode.getElementsByTagName("input"))(1).click()');how to click MsgBox(0, "", Execute('($password.parentNode.parentNode.getElementsByTagName("input"))(1).value'));to show the button was selected

I recently discovered a website that has very comprehensive, high-quality, and extensive tutorials on almost any subject matter you can possibly think of. The site is https://www.tutorialspoint.com/, but what I want to focus on is the "coding ground" portion of the site, which has content for some languages I have never even heard of before. But here is also why I love this site. A lot of you are probably thinking "Ok, so it provides content that teaches me stuff, but having to continuously keep the webpage open or navigate to different pages for different sections (chapters, however you choose to think of it) of the content is a real inconvenience." I agree with you, and Tutorials Point seems to understand that as well, which is why they offer the option to download a local pdf (or 1 pdf per chapter, haven't really grasped the method to the madness yet) containing all of the content in the tutorial. Here is the downside: you have to "donate" to get access to it (why do companies/people feel they need to pervert the word "donate" like that). Now, there is a way around this that I stumbled onto, that I will share, but would like to make a statement first: writing up these quality tutorials isn't easy and its time consuming, so if you CAN afford to donate, I would highly recommend that you do so that the site can continue providing the world with the quality content they do. However, if you are, like me, underemployed and underpaid, or if your unemployed, and donating really isn't an option, I understand that plight too. So without further ado, the way to obtain the pdf of the content is: If you found this useful at all, a like or some comments would be appreciated.

FFColorCount doesn't seem to work with exclusion areas, I'm getting the same result for different exclusion area combinations, is it a bug or a feature? FFSetWnd($wHandle) FFSnapShot() For $col = 1 To $Height Step 1 For $row = 1 To $Width Step 1 $currentTileLeft = Round($leftTilePos + ($row-1) *$tilePixelSize,0) + $margin $currentTileTop = Round($upTilePos + ($col-1) *$tilePixelSize,0) + $margin $currentTileRight = Round($leftTilePos + $row *$tilePixelSize,0) - $margin $currentTileBottom = Round($upTilePos + $col*$tilePixelSize,0) - $margin FFResetExcludedAreas( ) FFAddExcludedArea( 0, 0, @DesktopWidth, $currentTileTop ) FFAddExcludedArea( 0, $currentTileTop, $currentTileLeft, $currentTileBottom ) FFAddExcludedArea( $currentTileRight, $currentTileTop, @DesktopWidth, $currentTileBottom ) FFAddExcludedArea( 0, $currentTileBottom, @DesktopWidth, @DesktopHeight ) $tileValues[$col][$row] = FFColorCount($color,$variation,False) Next Next