PureDispHelper UserLib - Update with Includefile for Unicode

ts-soft · Post by **ts-soft** » Fri Apr 20, 2007 12:06 am

PureDispHelper is based on DispHelper, a free open source C library
developed by xtmous http://disphelper.sourceforge.net

This userlib doesn't support unicode, sorry

With this lib, you can use COM, ActiveX, OCX and so on, without Interfaces!

Helpfile english

Some examples added:
ado, flash, ie, mediaplayer, msxml, network, sapi, vbs and word

//edit
added: agent, excel, regex

//edit2
added "ComEventSink.pb" from freak, to use events with OCX

thanks freak for this

Special thank to kiffi (beta tester and author from many examples)

PureDisphelper v.1.5

// edit
update to pb 4.20 ...

benny · Post by **benny** » Fri Apr 20, 2007 6:49 am

@ts-soft:
This sounds pretty cool - must have a closer look later on it ! Thanks for
sharing !!!

Post by **Rings** » Fri Apr 20, 2007 8:19 am

Holy, cow !
this port is the most userfriendly try to
use COM-Objects (ActiveX-DLL's) with Purebasic.
Nice examples too.
Godd Work!
Thomas: you should write in the title,
that with this lib you can easily use Com-Objects.

ts-soft · Post by **ts-soft** » Fri Apr 20, 2007 8:28 am

thanks at all

Rings wrote:Thomas: you should write in the title,
that with this lib you can easily use Com-Objects.

Done

LuckyLuke · Post by **LuckyLuke** » Fri Apr 20, 2007 8:35 am

GREAT JOB !!!

(should be part of the next PureBasic release)

Dare · Post by **Dare** » Fri Apr 20, 2007 8:45 am

My word!

This looks fantastic!

Thank you very much!

Edit:

Doors are opening. Doors are opening in every direction!.

Post by **Kiffi** » Fri Apr 20, 2007 9:04 am

LuckyLuke wrote:(should be part of the next PureBasic release)

Full ACK!

Greetings ... Kiffi

gnozal · Post by **gnozal** » Fri Apr 20, 2007 9:19 am

LuckyLuke wrote:GREAT JOB !!!
(should be part of the next PureBasic release)

+ 1

ts-soft · Post by **ts-soft** » Fri Apr 20, 2007 9:50 am

The MediaPlayer example is at first start a bit slow, but if you restart, it's load
the Video from browsercache and should work normal

srod · Post by **srod** » Fri Apr 20, 2007 10:32 am

gnozal wrote:
LuckyLuke wrote:GREAT JOB !!!
(should be part of the next PureBasic release)
+ 1

+ 1

Excellent job.

Post by **freak** » Fri Apr 20, 2007 11:14 am

ts-soft: The DispHelper lib (and COM) use unicode anyway, so unicode support should not be a big problem.

If you need help on this, just contact me.

byo · Post by **byo** » Fri Apr 20, 2007 12:21 pm

Thanks a lot for that.

Simply amazing!

ts-soft · Post by **ts-soft** » Fri Apr 20, 2007 1:21 pm

added Agent - Example

Code: Select all

dhToggleExceptions(#True)

Define.l oAgent, oGenie

oAgent = dhCreateObject("Agent.Control.1")

If oAgent
  dhPutValue(oAgent, "Connected = %b", #True)
  dhCallMethod(oAgent, "Characters.Load(%s)", @"Genie")
  dhGetValue("%o", @oGenie, oAgent, "Characters(%s)", @"Genie")
  If oGenie
    dhCallMethod(oGenie, "Show")
    dhCallMethod(oGenie, "MoveTo(%d,%d)", 300, 200)
    dhCallMethod(oGenie, "Play(%s)", @"Greet")
    dhCallMethod(oGenie, "Speak(%s)", @"Hello, feel the ..Pure.. Power of PureBasic")
    dhCallMethod(oGenie, "Play(%s)", @"Reading")
    Delay(20000)
    dhCallMethod(oGenie, "Stop")
    dhCallMethod(oGenie, "Speak(%s)", @"PureBasic is a nice computer language")
    MessageRequester("Agent", "click ok to end")
    dhCallMethod(oGenie, "Play(%s)", @"Hide")
    Delay(3000)
    dhReleaseObject(oGenie)
  EndIf
  dhReleaseObject(oAgent)
EndIf

Have fun

Pantcho!! · Post by **Pantcho!!** » Fri Apr 20, 2007 1:39 pm

Damn i can't thank you enough! this is sooooo sweet!!

You made a HUGE contribution to the community!!

thanks man

JCV · Post by **JCV** » Fri Apr 20, 2007 2:20 pm

wowowoww! thanks a lot!