AutoHotkey Community
It is currently May 25th, 2012, 9:51 am

View unanswered posts | View active topics


Board index » AutoHotkey » Scripts

All times are UTC [ DST ]



Post new topic This topic is locked, you cannot edit posts or make further replies.  Page 8 of 11
  [ 156 posts ]  Go to page Previous  1 ... 5, 6, 7, 8, 9, 10, 11  Next
  Print view | E-mail friend Previous topic | Next topic 
Author Message
Dewi Morgan
 Post subject:
PostPosted: June 28th, 2007, 7:48 am 
Offline

Joined: October 3rd, 2005, 2:42 am
Posts: 186
I'm confident that I for one would use easycom :)

_________________
Yet another hotkeyer.


Report this post
Top
 Profile  
Reply with quote  
Sean
 Post subject:
PostPosted: June 29th, 2007, 5:51 am 
Offline

Joined: February 12th, 2007, 7:54 am
Posts: 2462
tfcahm wrote:
If you want to keep going, I'll do whatever I can to help you help me. I respect you not wanting to install the app. It is probably very difficult to go forward without it, but I'll try anything here to get you useful feedback. I'd really like to get this working. If you are done with it that's okay too.

As I officially added dispatch type invoking in CoHelper.ahk, I rewrote the previous script using it.
So, retry and see how it's going.

Code:
#Include CoHelper.ahk

CoInitialize()
pds := ActiveXObject("BookCAT.DataServer")

sXSLTemplate := "BookList.xsl"
sFilter      := "Author=John Grisham"
sFilename    := ""
sRecordset   := ""
bStripLinks  := False

pXSLTemplate := SysAllocString(sXSLTemplate)
pFilter      := SysAllocString(sFilter)
pFilename    := SysAllocString(sFilename)
pRecordset   := SysAllocString(sRecordset)

VarSetCapacity(var, 88, 0)
NumPut(8|0x4000, var, 0), NumPut(&var+80, var, 8)
NumPut(8|0x4000, var,16), NumPut(&var+84 ,var,24)
NumPut(11,var, 32), NumPut(-bStripLinks, var, 40, "short")
NumPut(8, var, 48), NumPut(pFilter     , var, 56)
NumPut(8, var, 64), NumPut(pXSLTemplate, var, 72)
NumPut(pRecordset, var, 80), NumPut(pFilename, var, 84)

nResult := Invoke(pds, "GenerateHTML", var)
Unicode2Ansi(pstr1 := NumGet(var, 80), sRecordset)
Unicode2Ansi(pstr2 := NumGet(var, 84), sFilename)

SysFreeString(pXSLTemplate)
SysFreeString(pFilter)
SysFreeString(pFilename)
SysFreeString(pRecordset)

Release(pds)
CoUninitialize()

MsgBox, % "GenerateHtml`n Filename: " . sFilename . "`n Recordset: " . sRecordset


PS. Need the latest CoHelper.ahk which in turn requires the AHK build 1.0.47.00 or above.


Report this post
Top
 Profile  
Reply with quote  
tfcahm
 Post subject:
PostPosted: June 29th, 2007, 6:21 am 
Offline

Joined: May 20th, 2007, 7:48 pm
Posts: 48
Quote:
As I officially added dispatch type invoking in CoHelper.ahk, I rewrote the previous script using it.
So, retry and see how it's going.
Oh sweetness! That works great. I need to spend some time studying your code to understand how to use Invoke, but wanted to report right away that it is working properly.

Thanks Sean! I really appreciate your work and the help you given.


Report this post
Top
 Profile  
Reply with quote  
Sean
 Post subject:
PostPosted: June 29th, 2007, 8:05 am 
Offline

Joined: February 12th, 2007, 7:54 am
Posts: 2462
tfcahm wrote:
That works great. I need to spend some time studying your code to understand how to use Invoke, but wanted to report right away that it is working properly.

Glad to hear that it's working well.
BTW, I think it confirms my previous suspicion that there may be some glitch in BookCat's COM implementation.


Report this post
Top
 Profile  
Reply with quote  
tfcahm
 Post subject:
PostPosted: June 29th, 2007, 8:12 pm 
Offline

Joined: May 20th, 2007, 7:48 pm
Posts: 48
Quote:
Glad to hear that it's working well.
Except for these two, I've got all the other methods working now. They both seem to do nothing and generate no errors. Maybe with a hint on either one I can figure them both out. It must be something wrong in how I've constructed var. Can you see anything obvious that is not correct? Thanks again.
Code:
;ChangeSortOrder
pFilename    := SysAllocString("")
pOrderBy     := SysAllocString("title")
pRecordset   := SysAllocString(sRecordset) ;input value comes from GenerateHTML

VarSetCapacity(var, 56, 0)
NumPut(8|0x4000, var, 0),  NumPut(&var+48, var, 8)
NumPut(8,var, 16),         NumPut(pOrderBy, var, 24)
NumPut(8|0x4000, var, 32), NumPut(&var+52, var, 40)
NumPut(pFilename,var, 48), NumPut(pRecordset, var, 52)

nResult := Invoke(pds, "ChangeSortOrder", var)
Unicode2Ansi(pstr1 := NumGet(var, 48), sFilename)
Unicode2Ansi(pstr2 := NumGet(var, 52), sRecordset)

SysFreeString(pFilename)
SysFreeString(pRecordset)
SysFreeString(pOrderBy)

MsgBox, % "ChangeSortOrder`n Filename: " . sFilename . "`n New Recordset: " . sRecordset
and here's the type lib
Code:
' ****************************************************************************************
' ChangeSortOrder method
' Interface name = IDataServer
' VTable offset = 64 [&H40]
' DispID = 209 [&H000000D1]
' ****************************************************************************************
FUNCTION BookCATIDataServer_ChangeSortOrder ALIAS "BookCATIDataServer_ChangeSortOrder" ( _
    BYVAL pthis AS DWORD PTR _                          ' %VT_DISPATCH <dispinterface>
  , BYREF RecordsetGUID AS STRING _                     ' *%VT_BSTR <DYNAMIC UNICODE STRING> [in]
  , BYVAL OrderBy AS STRING _                           ' %VT_BSTR <DYNAMIC UNICODE STRING> [in]
  , BYREF prmFilename AS STRING _                       ' *%VT_BSTR <DYNAMIC UNICODE STRING> [in]
  , BYREF Result AS LONG _                              ' *%VT_I4 <LONG> [out]
    ) EXPORT AS LONG                                    ' %VT_HRESULT <LONG>

    LOCAL HRESULT AS LONG
    OrderBy = UCODE$(OrderBy)
    IF pthis = 0 THEN FUNCTION = %E_POINTER : EXIT FUNCTION
    CALL DWORD @@pthis[16] USING BookCATIDataServer_ChangeSortOrder(pthis, RecordsetGUID, OrderBy, prmFilename, Result) TO HRESULT
    FUNCTION = HRESULT
    RecordsetGUID = ACODE$(RecordsetGUID)
    prmFilename = ACODE$(prmFilename)

END FUNCTION


And the other one
Code:
;GenerateHTMLListPage
pFilename    := SysAllocString("")
nPage        := 2
pRecordset   := SysAllocString(sRecordset)  ;value comes from GenerateHTML with sFilter:="Author=*"


VarSetCapacity(var, 52, 0)
NumPut(8|0x4000, var, 0), NumPut(&var+48, var, 8)
NumPut(3,var, 16),        NumPut(nPage, var, 24)
NumPut(8, var,32),        NumPut(pRecordset ,var,40)
NumPut(pFilename, var, 48)

nResult := Invoke(pds, "GenerateHTMLListPage", var)
Unicode2Ansi(pstr1 := NumGet(var, 48), sFilenameOUT)

SysFreeString(pFilename)
SysFreeString(pRecordset)

MsgBox, % "GenerateHtmlListPage`n Filename: " . sFilenameOUT . "`n nResult: " . nResult
Code:
' ****************************************************************************************
' GenerateHTMLListPage method
' Interface name = IDataServer
' VTable offset = 60 [&H3C]
' DispID = 208 [&H000000D0]
' ****************************************************************************************
FUNCTION BookCATIDataServer_GenerateHTMLListPage ALIAS "BookCATIDataServer_GenerateHTMLListPage" ( _
    BYVAL pthis AS DWORD PTR _                          ' %VT_DISPATCH <dispinterface>
  , BYVAL RecordsetGUID AS STRING _                     ' %VT_BSTR <DYNAMIC UNICODE STRING> [in]
  , BYVAL PageNo AS LONG _                              ' %VT_I4 <LONG> [in]
  , BYREF prmFilename AS STRING _                       ' *%VT_BSTR <DYNAMIC UNICODE STRING> [in]
  , BYREF Result AS LONG _                              ' *%VT_I4 <LONG> [out]
    ) EXPORT AS LONG                                    ' %VT_HRESULT <LONG>

    LOCAL HRESULT AS LONG
    RecordsetGUID = UCODE$(RecordsetGUID)
    IF pthis = 0 THEN FUNCTION = %E_POINTER : EXIT FUNCTION
    CALL DWORD @@pthis[15] USING BookCATIDataServer_GenerateHTMLListPage(pthis, RecordsetGUID, PageNo, prmFilename, Result) TO HRESULT
    FUNCTION = HRESULT
    prmFilename = ACODE$(prmFilename)

END FUNCTION


Quote:
BTW, I think it confirms my previous suspicion that there may be some glitch in BookCat's COM implementation.
I accept your word on it. I'm too ignorant still about the inner workings of COM to know why it didn't work.


Report this post
Top
 Profile  
Reply with quote  
Sean
 Post subject:
PostPosted: June 30th, 2007, 12:49 am 
Offline

Joined: February 12th, 2007, 7:54 am
Posts: 2462
tfcahm wrote:
Except for these two, I've got all the other methods working now. They both seem to do nothing and generate no errors. Maybe with a hint on either one I can figure them both out. It must be something wrong in how I've constructed var.

No, as far as I can see, you've done them right. Good job.
To make sure that it's not another glitch in BookCat side, did they work with other apps like Perl, on the contrary?

The only thing I can't be sure from here is sRecordset.
What value did you use for it? When/how did you obtain it?
One thing I'm suspecting about it atm is that it may not have a permanent meaning, only have a temporary meaning in that opened session.
What I mean is, if you obtained the value in the previously opened BookCat, then closed and restarted it, then the value would be useless in the new opened BookCat.


Report this post
Top
 Profile  
Reply with quote  
tfcahm
 Post subject:
PostPosted: June 30th, 2007, 2:06 am 
Offline

Joined: May 20th, 2007, 7:48 pm
Posts: 48
Everything does work properly in Perl. Since all the other methods are working now in AHK, I think there must be something just slightly wrong in my code.

sRecordset is generated immediately before either of these code segments runs by using your GenerateHTML code. The program flow in Perl and AHK is the same. To avoid multiple conversions I tried simply reusing pRecordset (of course without the SysFreeString) but that gave the same result.

In all cases sRecordset gets reused inside a single CoInitialize(), pds := ActiveXObject("BookCAT.DataServer") / Release(pds), CoUninitialize() and BookCAT always remains open. sRecordset is a pretty generic GUID, for example {86636F60-FAFB-4F7B-81A8-0BC0EDE2C5A4}.

I'm going to keep noodling over this. After coding all the other methods my eyes have glazed over so maybe a fresh look later will reveal something.

Thanks again for your help!


Report this post
Top
 Profile  
Reply with quote  
tfcahm
 Post subject:
PostPosted: June 30th, 2007, 7:18 am 
Offline

Joined: May 20th, 2007, 7:48 pm
Posts: 48
I got it! var has to be reinitialized each time before the structure is built.
Code:
VarSetCapacity(var, 0)
Everything is working fine now with that addition.

Thanks again Sean, you've been a great help.


Report this post
Top
 Profile  
Reply with quote  
Sean
 Post subject:
PostPosted: June 30th, 2007, 6:06 pm 
Offline

Joined: February 12th, 2007, 7:54 am
Posts: 2462
tfcahm wrote:
Everything is working fine now with that addition.

Nice! Would you post the script in the forum?
It can be useful to some other users too directly, or indirectly as a good example to study/use COM.


Report this post
Top
 Profile  
Reply with quote  
tfcahm
 Post subject:
PostPosted: June 30th, 2007, 11:31 pm 
Offline

Joined: May 20th, 2007, 7:48 pm
Posts: 48
Quote:
Nice! Would you post the script in the forum?
It can be useful to some other users too directly, or indirectly as a good example to study/use COM.
Will do once I get my app complete. The code I posted above is representative, however.

Right now I'm fighting a strange intermittant memory write error that appears right when the application script exits (that is after CoUninitialize). There's no obvious cause and the error is not yet controllably repeatable. So, I have some debugging still to go.


Report this post
Top
 Profile  
Reply with quote  
FlowPEE
 Post subject:
PostPosted: July 3rd, 2007, 6:23 pm 
Offline

Joined: February 28th, 2007, 7:23 pm
Posts: 14
Sean,

I managed to send keystrokes to Citrix finally!
The problem was, that one have to set first the property "Outputmode" to the value 1. So only then you have a valid session identifier and there you can attach with the keyboard.

I have another question regarding your invoke function.
Normally, you would do e.g.
Code:
 pmouse := Invoke(pssn,"Mouse")

to obtain the identifier for the mouse.

but how would I use the invoke function to send e.g. a mouseclick?
From typelib I have
Code:
' ****************************************************************************************
' SendMouseDown method
' Interface name = IMouse
' method SendMouseDown
' VTable offset = 28 [&H1C]
' DispID = 100 [&H00000064]
' ****************************************************************************************
FUNCTION CitrixIMouse_SendMouseDown ALIAS "CitrixIMouse_SendMouseDown" ( _
    BYVAL pthis AS DWORD PTR _                          ' %VT_DISPATCH <dispinterface>
  , BYVAL buttonId AS LONG _                            ' %VT_I4 <LONG> [in]
  , BYVAL modifiers AS LONG _                           ' %VT_I4 <LONG> [in]
  , BYVAL XPos AS LONG _                                ' %VT_I4 <LONG> [in]
  , BYVAL YPos AS LONG _                                ' %VT_I4 <LONG> [in]
    ) EXPORT AS LONG                                    ' %VT_HRESULT <LONG>

    LOCAL HRESULT AS LONG
    IF pthis = 0 THEN FUNCTION = %E_POINTER : EXIT FUNCTION
    CALL DWORD @@pthis[7] USING CitrixIMouse_SendMouseDown(pthis, buttonId, modifiers, XPos, YPos) TO HRESULT
    FUNCTION = HRESULT

END FUNCTION
' ****************************************************************************************

My problem here is that I do not know how to pass more parameters to the invoke function.

I tried with
Code:
Invoke(pmouse, "SendMouseDown", pbuttonId pmodifiers pXpos pYpos)
but that didn't work out.

Any help is appreciated :-)

thanks Sean !


florian


Report this post
Top
 Profile  
Reply with quote  
Sean
 Post subject:
PostPosted: July 4th, 2007, 12:34 am 
Offline

Joined: February 12th, 2007, 7:54 am
Posts: 2462
FlowPEE wrote:
My problem here is that I do not know how to pass more parameters to the invoke function.

I updated CoHelper.ahk adding a function DispParams(Variable, type1, val1, type2, val2, ...) to allocate the parameters and a few other minor modifications, so, please recopy it.

Then try the following:
Code:
Invoke(pmouse, "SendMouseDown", DispParams(varg, 3, ButtonId, 3, Modifiers, 3, Xpos, 3, Ypos) ; VT_I4 = 3


Last edited by Sean on July 5th, 2007, 2:28 am, edited 1 time in total.

Report this post
Top
 Profile  
Reply with quote  
Sean
 Post subject:
PostPosted: July 4th, 2007, 1:42 am 
Offline

Joined: February 12th, 2007, 7:54 am
Posts: 2462
There was a request about MSCOMM32.OCX.
Its interface is really simple: most of the functions expect 0 or 1 parameter.
So, the usage could be, using the latest CoHelper.ahk:

Code:
#Include CoHelper.ahk

DISPATCH_PROPERTYPUT := 4
VT_I2   := 2
VT_I4   := 3

CoInitialize()
MsgBox, % pcomm := ActiveXObject("{648A5603-2C6E-101B-82B6-000000000014}")

; Get CommID
MsgBox, % nCommID := Invoke(pcomm, "CommID")

; Put CommID
Invoke(pcomm, "CommID", DispParams(varg, VT_I4, nCommID), DISPATCH_PROPERTYPUT)

; Get CommPort
MsgBox, % nCommPort := Invoke(pcomm, "CommPort")

; Put CommPort
Invoke(pcomm, "CommPort", DispParams(varg, VT_I2, nCommPort), DISPATCH_PROPERTYPUT)

Release(pcomm)
CoUninitialize()


Last edited by Sean on July 5th, 2007, 2:29 am, edited 1 time in total.

Report this post
Top
 Profile  
Reply with quote  
tfcahm
 Post subject:
PostPosted: July 4th, 2007, 2:55 am 
Offline

Joined: May 20th, 2007, 7:48 pm
Posts: 48
Quote:
I updated CoHelper.ahk adding a function DispParams(no of parameters, Variable, type1, val1, type2, val2, ...) to allocate the parameters
I really like this. If you don't do it first, I'd like to extend it to handle BYREFs.

One question Sean, what is the purpose of the VarSetCapacity(varg, -1)? Doesn't the original VarSetCapacity get the size correct, or am I missing something?


I'm still battling a strange error with my app:
Code:
AutoHotkey.exe - Application Error
The instruction at "0x0005c215" referenced memory at "0x000dc938". The memory could not be "written".
I don't even know how to ask for help because it's been hard to isolate. What is consistent is that it happens when the AHK script exits (all the COM stuff in the script seems to function properly). The error shows on clean installs of WinXP SP1 and SP2, but not on Win2K. Strange.


Report this post
Top
 Profile  
Reply with quote  
Sean
 Post subject:
PostPosted: July 4th, 2007, 3:43 am 
Offline

Joined: February 12th, 2007, 7:54 am
Posts: 2462
tfcahm wrote:
Quote:
I updated CoHelper.ahk adding a function DispParams(no of parameters, Variable, type1, val1, type2, val2, ...) to allocate the parameters
I really like this. If you don't do it first, I'd like to extend it to handle BYREFs.

OK, I'd like to leave it to you.

Quote:
One question Sean, what is the purpose of the VarSetCapacity(varg, -1)? Doesn't the original VarSetCapacity get the size correct, or am I missing something?

The purpose of it is to update the length (:not the capacity) as AHK doesn't do it automatically in this case.
It's needed here as otherwise the first byte of the allocated varg will be erased.

Quote:
I'm still battling a strange error with my app:
Code:
AutoHotkey.exe - Application Error
The instruction at "0x0005c215" referenced memory at "0x000dc938". The memory could not be "written".
I don't even know how to ask for help because it's been hard to isolate. What is consistent is that it happens when the AHK script exits (all the COM stuff in the script seems to function properly). The error shows on clean installs of WinXP SP1 and SP2, but not on Win2K. Strange.

I'm not sure if it's AHK's problem.
I'm suspecting that BookCat may have a bug to manage a buffer, as I think that the original script using the VTable interface would have worked already otherwise.


Report this post
Top
 Profile  
Reply with quote  
Display posts from previous:  Sort by  
Post new topic This topic is locked, you cannot edit posts or make further replies.  Page 8 of 11
  [ 156 posts ]  Go to page Previous  1 ... 5, 6, 7, 8, 9, 10, 11  Next

Board index » AutoHotkey » Scripts

All times are UTC [ DST ]

Who is online

Users browsing this forum: Stigg and 10 guests

You can post new topics in this forum
You can reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot post attachments in this forum

Search for:
Powered by phpBB® Forum Software © phpBB Group