Prestwood IT: Using the Win32 API and TAPI to Dial the Phone (Corel Paradox / ObjectPAL Coding)

Paradox

	Paradox Group Home
Get Started Page eMag: Paradox Edition Highlights WEEKLYLESSON Week 41 Lesson MYGROUPSETTINGS My Group Settings

	Message Board
-New Activity -Unanswered Threads -Most Active Threads -Most Read Threads

	Paradox KB
-New & Updated -Most Read -10 Min Quickstarts -Recent Comments Tech Articles Paradox News Errors Library File Library Resource Links PARADOXTIDBITS: All as FlashCards Code Snippets FAQs Tips Terms & Definitions

	Paradox To/From
To/FromCODEGuides Paradox To/From

	Paradox Study Test
PRESTWOODCERTIFIED Paradox Study Test

	Paradox Store
PRESTWOODSTORE Store Home Buy Paradox Items

	Members Only
MEMBERSONLY Paradox Member List Member Only KB Posts Paradox Content Stats Random Article Random MB Thread Random Tidbit Random CrossRef Code

Prestwood eMagazine

October Edition

Subscribe now! It's Free!

► KB ► Desktop Data... ► Paradox & Ob... ► ObjectPAL Co... ► OPAL: Win32 ...

Print This

From the November 2010 Issue of Prestwood eMag

Paradox OPAL: Win32 Calls:

Using the Win32 API and TAPI to Dial the Phone

By Mike Prestwood

Posted 16 years ago on 2/26/2008

Take Away: TAPI ObjectPAL example.

KB100890

The following lesson demonstrates how to use TAPI to dial the phone.

Prototyping Win32 API calls

Uses User32 ;Windows API calls.

	BringWindowToTop(WinHandle CLONG) CWORD

	DestroyWindow(WinHandle CWORD) CWORD

endUses

Uses Tapi32

	;Perhaps move all api calls to common.lsl

	;For now, this is both here and in win32api.lsl

	;Dial the phone.

	tapiRequestMakeCall(sNumber CPTR, sAppName CPTR,  sLogName CPTR, sComment CPTR) CLONG

endUses

Dialing the phone

method cmDialPhone(sNumber String, sLogName String)

var

	arNumber Array[] String

	siCounter SmallInt

endVar

;Take out non-number characters commonly used

;in phone numbers.

breakapart(sNumber, arNumber, "()-/ ")

sNumber = "" ;Reset number.

for siCounter from 1 to arNumber.size()

	sNumber = sNumber + arNumber[siCounter]

endFor

tapiRequestMakeCall(sNumber, "Paradox 7", sLogName, "")

endMethod

Comments

0 Comments.

Share a thought or comment...

KB Post Contributed By Mike Prestwood:

Mike Prestwood is a drummer, an author, and creator of the PrestwoodBoards online community. He is the President & CEO of Prestwood IT Solutions. Prestwood IT provides Coding, Website, and Computer Tech services. Mike has authored 6 computer books and over 1,200 articles. As a drummer, he maintains play-drums.com and has authored 3 drum books. If you have a project you wish to discuss with Mike, you can send him a private message through his PrestwoodBoards home page or call him 9AM to 4PM PST at 916-726-5675 x205.

Visit Profile

KB Article #100890 Counter

7985

Since 4/2/2008