How to get reference to PDF object embeded in IE

mLipok · September 17, 2015

I was allways wondering How to get reference to AcrobatReader object and after all to the PDF file embeded in IE.

Today I was here:

http://www.vitoplantamura.com/index.aspx?page=axvncviewer

there is such a interesting html:

<html>
<body>
<script language="JavaScript">
function rsChange ()
{
var ax = document.all.TestObj;
if ( ax.readyState == 4 )
{
if ( ax.IsInitialized == false )
{
window.setTimeout( "rsChange();", 100 );
}
else
{
ax.Server = "192.168.1.3";
ax.Connect ();
}
}
}
</script>
<OBJECT language='javascript' ID='TestObj' CLASSID='CLSID:36D64AE5-6626-4DDE-A958-2FF1D46D4424' WIDTH='640px' HEIGHT='480px' onreadystatechange='rsChange();'></OBJECT>
<br><br><br>
Don't forget to do a "REGSVR32 UltraVncAx.dll", before viewing this page.<br>
The timer trick in the rsChange() function is required to get the windowful ActiveX initialized properly, before letting the ActiveX create the VNC client child window.
</body>
</html>

When I analyze this then I start to wonder about this line:

var ax = document.all.TestObj;

EDIT: above fraction was only an introduction, describing where it came my question.

And now then the question arise :

How I can use document.all to get the refrence to specified AxObject in this Case I mean to AcrobatReader opened in IE ?

EDIT: of course I mean a case when I have opened document in IE.

Edited September 18, 2015 by mLipok
added TAG

mLipok · September 17, 2015

#include <IE.au3>

Local $oIE_PDF = _IECreate("http://lipok.pl/test2.pdf", 0 , 1 , 0 )
MsgBox(0, '1', 'wait')
$oIE_PDF.document.GotoFirstPage
MsgBox(0, '2', '$oIE_PDF.document.GotoFirstPage')
$oIE_PDF.document.SetZoom(200)
MsgBox(0, '3', '$oIE_PDF.document.SetZoom(200)')
$oIE_PDF.document.SetZoom(20)
MsgBox(0, '4', '$oIE_PDF.document.SetZoom(20)')
$oIE_PDF.document.LoadFile("http://lipok.pl/test.pdf")
MsgBox(0, '5', '$oIE_PDF.document.LoadFile("http://lipok.pl/test2.pdf")')
$oIE_PDF.document.LoadFile(@ScriptDir & "\test3.pdf")
MsgBox(0, '6', '$oIE_PDF.document.LoadFile(@ScriptDir & "\test3.pdf")')

_IEQuit($oIE_PDF)

What you think about ?

JohnOne · September 17, 2015

It's quite interesting, generally.

mLipok · September 17, 2015

Here is some other example (Remark/Beware: Printer is used).

#include <IE.au3>
#include <MsgBoxConstants.au3>


Local $oIE_PDF = _IECreate("http://lipok.pl/test.pdf", 0 , 1 , 0 )

Local $oPDF = $oIE_PDF.document
If @error Then Sleep(100)
ObjName_FlagsValue($oPDF)
MsgBox(0, '0', '$oPDF.src = ' & $oPDF.src)

$oPDF.GotoFirstPage
MsgBox(0, '1', '$oPDF.GotoFirstPage')
$oPDF.SetZoom(200)
MsgBox(0, '2', '$oPDF.SetZoom(200)')
$oPDF.printAll()
MsgBox(0, '2a', '$oPDF.printAll()')
$oPDF.SetZoom(20)
MsgBox(0, '3', '$oPDF.SetZoom(20)')
$oPDF.LoadFile("http://lipok.pl/test2.pdf")
MsgBox(0, '4', '$oPDF.LoadFile("http://lipok.pl/test2.pdf")'& @CRLF & '$oPDF.src = ' & $oPDF.src)
$oPDF.LoadFile(@ScriptDir & "\test3.pdf")
MsgBox(0, '5', '$oPDF.LoadFile(@ScriptDir & "\test3.pdf")' & @CRLF & '$oPDF.src = ' & $oPDF.src )

_IEQuit($oIE_PDF)

Func ObjName_FlagsValue(ByRef $oObj)
    Local $sInfo = ''

    $sInfo &= '+>' & @TAB & 'ObjName($oObj,1) {The name of the Object} =' & @CRLF & @TAB & ObjName($oObj, $OBJ_NAME) & @CRLF

    ; HELPFILE REMARKS: Not all Objects support flags 2 to 7. Always test for @error in these cases.
    $sInfo &= '+>' & @TAB & 'ObjName($oObj,2) {Description string of the Object} =' & @CRLF & @TAB & ObjName($oObj, $OBJ_STRING)
    If @error Then $sInfo &= '@error = ' & @error
    $sInfo &= @CRLF & @CRLF

    $sInfo &= '+>' & @TAB & 'ObjName($oObj,3) {The ProgID of the Object} =' & @CRLF & @TAB & ObjName($oObj, $OBJ_PROGID)
    If @error Then $sInfo &= '@error = ' & @error
    $sInfo &= @CRLF & @CRLF

    $sInfo &= '+>' & @TAB & 'ObjName($oObj,4) {The file that is associated with the object in the Registry} =' & @CRLF & @TAB & ObjName($oObj, $OBJ_FILE)
    If @error Then $sInfo &= '@error = ' & @error
    $sInfo &= @CRLF & @CRLF

    $sInfo &= '+>' & @TAB & 'ObjName($oObj,5) {Module name in which the object runs (WIN XP And above). Marshaller for non-inproc objects.} =' & @CRLF & @TAB & ObjName($oObj, $OBJ_MODULE)
    If @error Then $sInfo &= '@error = ' & @error
    $sInfo &= @CRLF & @CRLF

    $sInfo &= '+>' & @TAB & 'ObjName($oObj,6) {CLSID of the object''s coclass} =' & @CRLF & @TAB & ObjName($oObj, $OBJ_CLSID)
    If @error Then $sInfo &= '@error = ' & @error
    $sInfo &= @CRLF & @CRLF

    $sInfo &= '+>' & @TAB & 'ObjName($oObj,7) {IID of the object''s interface} =' & @CRLF & @TAB & ObjName($oObj, $OBJ_IID)
    If @error Then $sInfo &= '@error = ' & @error
    $sInfo &= @CRLF & @CRLF

    MsgBox($MB_SYSTEMMODAL, "ObjName:", $sInfo)
EndFunc   ;==>ObjName_FlagsValue

Edited September 17, 2015 by mLipok

mLipok · September 18, 2015

Thanks to Mod for moving this topic to Examples forum (I posted it in "Developer General Discussion").

philkryder · September 19, 2015

mLipok - thanks for looking in to this.

Is there a way to use AutoIt Controls to fill in fields in the pdf which is in IE?

mLipok · September 20, 2015

I guess you are asking in relation to this:

I will back to this above topic soon.

Edited September 20, 2015 by mLipok
typo

mLipok · September 22, 2015

Here are some further interesting information:

http://www.programering.com/a/MzM3UDNwATc.html

Sign In

How to get reference to PDF object embeded in IE

Recommended Posts

Share this post

Link to post

Share on other sites

Share this post

Link to post

Share on other sites

Share this post

Link to post

Share on other sites

Share this post

Link to post

Share on other sites

Share this post

Link to post

Share on other sites

Share this post

Link to post

Share on other sites

Share this post

Link to post

Share on other sites

Share this post

Link to post

Share on other sites

Create an account or sign in to comment

Create an account

Sign in

Similar Content