PureDispHelper UserLib - Update with Includefile for Unicode

[ts-soft]

you can test this:

Code: Select all

dhGetValue("%T", @Result, ".Screen.Area(%d, %d, %d, %d, %m, %b)", 8, 8, 8, 22, 1)

i have sometimes the same error while a value is boolean and not long

[Kwai chang caine]

i believe i have found the problem.

it misses the "Session"

Code: Select all

dhGetValue("%T", @Result, Session,".Screen.Area(%d, %d, %d, %d, %m, %b)", 8, 8, 8, 22, 1)

[Kwai chang caine]

That's ok !!!!!!

The screen area run correctly now.

I love you

[Kwai chang caine]

A last question please, and i disappear.
I promises you

The last function which I need :

Code: Select all

Do  
 Loop Until Session.Screen.OIA.Xstatus = 0

[ts-soft]

Code: Select all

Define.l Result = 1
While Result
  dhGetValue("%d", @Result, Session,".Screen.OIA.Xstatus")
Wend

or a boolen %b
but i missing: what is to do?

[mk-soft]

Is the type unknown used type variant ("%v") for result and checked after GetValue then type of variant.

Code: Select all

dhGetValue("%v", @Result.variant, ...)
debug Result\vt

GT

[Kwai chang caine]

Hello i'm back

Excuse me for the long answer, i have another and hard job (no good) to do in 3 day

Thank you for your friendly help

Code: Select all

Define.l Result = 1 
While Result 
  dhGetValue("%d", @Result, Session,".Screen.OIA.Xstatus") 
Wend

is the good code, but i want to copy it in a procedure and he don't work

Code: Select all

Procedure TestOIA()
 
 Define Resultat.l
 Resultat = 1 
       
 Repeat 
  dhGetValue("%d", @Resultat, Session,".Screen.OIA.Xstatus") 
 Until  Resultat = 0 

 Delay(500)

EndProcedure

What is wrong ????

[Kiffi]

A last question please, and i disappear.
I promises you

Hello i'm back

What is wrong ????

do you define the variable 'Session' global?

Alternatively you can pass the Session-Variable as a proc-parameter:

Code: Select all

Procedure TestOIA(Session.l) ...

Greetings ... Kiffi

[Kwai chang caine]

Hello kiffy

I'm glad to talk you, one more time

you are right, I am a little liar
I really believed that it the last, but i was mistaken.

I held my promise (Just for 3 day ).
it is that the love

Thanks for your answer for help me

Yes i don't understand because the variable "Session" is global

Code: Select all

Procedure TestOIA()
 
 Define Resultat.l
 Resultat = 1 
       
 Repeat 
  dhGetValue("%d", @Resultat, Session,".Screen.OIA.Xstatus") 
 Until  Resultat = 0 

 Delay(500)

EndProcedure

RunProgram ("C:\Program Files\atra.exe") 
Delay(5000)

Global System.l
Global Session.l
Global Result.l 
dhToggleExceptions(#True) 

System = dhCreateObject("atra.System") 

If System 
  
  dhGetValue("%o", @Session, System, ".ActiveSession") 
  
  If Session 
    dhCallMethod(Session, ".Screen.SendKeys(%T)", @"Coucou") 
    TestOIA()
    dhGetValue("%T", @Result, Session,".Screen.Area(%d, %d, %d, %d, %m, %d)", 15, 37, 15, 71, 1)
    TestOIA()
    dhFreeString(Result)
    dhFreeString(Resultat)
    dhReleaseObject(Session) 
    
  Else 
    MessageRequester("", "Couldn't create Session-Object") 
  EndIf 
  
  dhReleaseObject(System) 
  
Else 
  MessageRequester("", "Couldn't create System-Object") 
EndIf

[Kwai chang caine]

YOOOOOOOOUUUUUPPPPIIIIIII !!!!!!!

That's correct now
Session in global don't work
The variable session must be passed in parameter

Code: Select all

Procedure TestOIA(Session.l)

kiffi, You have always right
I thank you once again, you are the best.

Thanks two at Ts-Soft for his extraordinary lib.
I had awaited that for two years

i'm not a beautiful girl, but i give you a french kiss for your nice help.
I wish you a good day.

With the pleasure of speaking again you (especially for me )

[ABBKlaus]

Global allows the variables to be used as global, ie: they can be accessed inside a Procedure. In this case the command Global for the according variables must be called before the declaration of the procedure. Each variable can have a default value directly assigned to it.

then this could work too :

Code: Select all

Global System.l 
Global Session.l 
Global Result.l 

Procedure TestOIA() 
  
 Define Resultat.l 
 Resultat = 1 
        
 Repeat 
  dhGetValue("%d", @Resultat, Session,".Screen.OIA.Xstatus") 
 Until  Resultat = 0 

 Delay(500) 

EndProcedure 

RunProgram ("C:\Program Files\atra.exe") 
Delay(5000) 

dhToggleExceptions(#True) 

System = dhCreateObject("atra.System") 

If System 
  
  dhGetValue("%o", @Session, System, ".ActiveSession") 
  
  If Session 
    dhCallMethod(Session, ".Screen.SendKeys(%T)", @"Coucou") 
    TestOIA() 
    dhGetValue("%T", @Result, Session,".Screen.Area(%d, %d, %d, %d, %m, %d)", 15, 37, 15, 71, 1) 
    TestOIA() 
    dhFreeString(Result) 
    dhFreeString(Resultat) 
    dhReleaseObject(Session) 
    
  Else 
    MessageRequester("", "Couldn't create Session-Object") 
  EndIf 
  
  dhReleaseObject(System) 
  
Else 
  MessageRequester("", "Couldn't create System-Object") 
EndIf 

Regards Klaus

[Dare]

The happiness is a road, not a destination

Too true!


You appear to be using @session (address of) in the one case and just session (value of contents) in others.

Edit: Not saying this is the reason, just wondering.

[Kwai chang caine]

Thanks at you two

[ts-soft]

You appear to be using @session (address of) in the one case and just session (value of contents) in others.

Edit: Not saying this is the reason, just wondering.

For all results (strings, long, object ...) always a pointer (byref) required
Strings and objects have to be freed by you

[Xombie]

I'm working on a small project for work and have a question. Is it possible to get information on a current Excel session?

For example, I have Excel already opened and two workbooks loaded. I would like to get the Excel.Application object for those workbooks.

I'm hoping that's using dhGetObject() but I can't seem to get that working.

Can it be done?

Thanks!