Databases
StackOverflow2013
Postsdbo
POVBA to Prevent Keyboard Input While a Package Object (XML) is Read into ADODB Stream?
 

Note that there are some explanatory texts on larger screens.

plurals
  1. POVBA to Prevent Keyboard Input While a Package Object (XML) is Read into ADODB Stream?
    primarykey
    data
    text
    <p>I am developing an application which opens and reads an XML document previously embedded in a PowerPoint presentation, or a Word document. In order to read this object (<code>xmlFile as Object</code>) I have to do:</p> <p><code>xmlFile.OLEFormat.DoVerb 1</code></p> <p>This opens the package object, and I have another subroutine that gets the open instance of Notepad.exe, and reads its contents in to ADODB stream.</p> <p><strong>An example of this procedure is available on Google Docs:</strong></p> <p><a href="https://docs.google.com/file/d/0B1v0s8ldwHRYWnpzR0E0ajZHYXc/edit?usp=sharing" rel="nofollow noreferrer">XML_Test.pptm</a>.</p> <p>During this process there is a few seconds window where the Notepad.exe gains focus, and an inadvertent keystroke may cause undesired results or error reading the XML data.</p> <p>I am looking for one of two things:</p> <ol> <li>Either a method to prevent the user from inadvertently inputting (via keyboard/mouse/etc) while this operation is being performed. Preferably something that does not take control of the user's machine like <code>MouseKeyboardTest</code> subroutine, below. Or,</li> <li>A better method of extracting the XML data into a string variable.</li> </ol> <p><strong>For #1:</strong> this is the function that I found, which I am leery of using. I am wary of taking this sort of control of the users system. ##Are there any other methods that I might use?##</p> <pre><code>Private Declare Function BlockInput Lib "USER32.dll" (ByVal fBlockIt As Long) As Long Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long) Sub MouseKeyboardTest() 'both keyboard and mouse blocked BlockInput True ' Turns off Keyboard and Mouse ' Routine goes here Sleep 5000 ' Optional coding BlockInput False ' Turns on Keyboard and Mouse End Sub </code></pre> <p><strong>For #2:</strong> Some background, but the issue seems to be the inability to extract the embedded object reliably using any method other than <code>DoVerb 1</code>. Since I am dealing with an unsaved document in an application (Notepad) that is immune to my VBA skillz, this seems to be the only way to do this. Full background on that, here:</p> <p><a href="https://stackoverflow.com/questions/14745056/extracting-an-oleobject-xml-document-from-powerpoint-vba">Extracting an OLEObject (XML Document) from PowerPoint VBA</a></p>
    singulars
    1. PO
      singulars
      1. PTAnswer
    1. This table or related slice is empty.
    1. PTQuestion
    1. USCommunity
    1. USDavid Zemens
    plurals
    1. PL
      singulars
      1. LTLinked
    2. PL
      singulars
      1. LTLinked
    1. This table or related slice is empty.
    1. This table or related slice is empty.
    1. PO
      singulars
      1. PTAnswer
    2. PO
      singulars
      1. PTAnswer
    3. PO
      singulars
      1. PTAnswer
    1. VO
      singulars
      1. POVBA to Prevent Keyboard Input While a Package Object (XML) is Read into ADODB Stream?
      1. This table or related slice is empty.
      1. VTUpMod
    2. VO
      singulars
      1. POVBA to Prevent Keyboard Input While a Package Object (XML) is Read into ADODB Stream?
      1. This table or related slice is empty.
      1. VTUpMod
    3. VO
      singulars
      1. POVBA to Prevent Keyboard Input While a Package Object (XML) is Read into ADODB Stream?
      1. USDavid Zemens
      1. VTBountyStart
    1. COCan you not just read your xml using a [`FileSystemObject`](http://msdn.microsoft.com/en-us/library/office/gg278516.aspx) and [`TextStream`](http://msdn.microsoft.com/en-us/library/aa242724(v=vs.60).aspx)?
      singulars
      1. POVBA to Prevent Keyboard Input While a Package Object (XML) is Read into ADODB Stream?
      1. This table or related slice is empty.
    2. CO@Mehow The problem is extracting the embedded object from the PPT document. If I can extract the file reliably, then I could probably use FSO. The only method I have found to extract an embedded Package Object is `DoVerb 1`. Background info: http://stackoverflow.com/questions/14745056/extracting-an-oleobject-xml-document-from-powerpoint-vba
      singulars
      1. POVBA to Prevent Keyboard Input While a Package Object (XML) is Read into ADODB Stream?
      1. USDavid Zemens
    3. COI tested the function you posted - it does work but still the keystrokes are displayed even though they are being 'blocked' while the function is running. Its not the worst function to use but i can see your point. Have you thought of maybe hooking up a listener instead of blocking keyboard and redirecting keystrokes away from notepad? [Check this out](http://stackoverflow.com/questions/15038413/how-to-listen-keyboard-in-background-and-fire-keystrokes-on-demand)
      singulars
      1. POVBA to Prevent Keyboard Input While a Package Object (XML) is Read into ADODB Stream?
      1. This table or related slice is empty.
 

Querying!

 
Guidance
A row detail

Detail views are divided into sections. All the information in the data section comes from columns in the selected row. The other sections display data from other, related rows.

Related data can be related in a to-one or a to-many fashion. Captions of data related in a to-many fashion link to a list view showing a filtered view of the table.

Try moving around until you find a non-empty to-many entry and click on the label to get to one. You can move back to the root by clicking on the database name in the header.

SQuiL has stopped working due to an internal error.

If you are curious you may find further information in the browser console, which is accessible through the devtools (F12).

Reload