difficult matter 1

[FILIPM]

Hello feffow vfp programmers,

In Belgium, there is a new law with the law concerning games of chance.
In every game there has to be a GSM of something like it.
I use vfp7.0 SP1 and I made a program for it.
The trouble with this is how can I with a vfp program ring a phone to another GSM.
Any suggestions which program I could use for communications would be very handsome.
We speak about some 6000 games which I should communicate with.
I program almost only in vfp or a little bit in C++ an I realy don't know how to start with !!
Any help would be usefull
Many thanks for any usefull tip.

PS: is linux a good alternative to avoid virusses ?
PS2 : happy new year 2004.

with friendly greetings,

FILIP MERLIER
e-mail : merlier@worldonline.be or filip.merlier@b-cables.be

 

[mm0000]

Have a look at FAQ184-2332.

HTH

 

[ramani]

Hi

**
PUBLIC ComForm
ComForm = CREATEOBJECT('Form')
ComForm.AddObject("Testcom","Olecontrol","MSCOMMLib.MSComm&quot
ComForm.Testcom.CommPort = 2 && Use Comm2, The second Serial Port.
ComForm.Testcom.Settings = "14400,N,8,1" && 14.4 Kbaud, No Parity,
&& 8 data Bits, 1 Stop Bit
ComForm.Testcom.PortOpen = .T.
ComForm.Testcom.Output = "ATDT2821133"+chr(13) && Dial number
ComForm.Testcom.PortOpen = .F.
**

I am not sure if this helps you. This code is from my collections and could belong to some one else or tried, tested and left in my library without using it. My need for these is very less and so, not sure if this is easier. Could be, Mikes code is more versatile but I am not sure of anything.


____________________________________________
ramani - (Subramanian.G)

http://winnersoft.coolfreepages.com/

When you ask VFP questions, please add VFP version.
Merry Christmas & Happy New Year

 

[frebev]

Filip,

glad to find a Belgian co-programmer here ...

here's a pgm I used ages ago under FP 2.0 ...

* fvrphone
* telefoonverbinding maken per modem

parameters tlfnr

on escape exit

define window fvscalls from 8,20 to 16,60 double close
activate window fvscalls
clear
@ 0,1 say "Initializeren van modem ....."
*!mode com1:baud=24 && Initialize COM1

modemhandl=fopen('com1',12) && open COM1 for read and write, unbuffered

if ferror()#0
do case
case ferror()=2
fout="File not found"
case ferror()=4
fout="Too many files open"
case ferror()=5
fout="Acces denied"
case ferror()=6
fout="Invalid file handle"
case ferror()=8
fout="Out of Memeory"
case ferror()=25
fout="Can't seek before start of file"
case ferror()=29
fout="Disk full"
case ferror()=31
fout="General Failure"
endcase
@ 4,1 say fout
wait "Tik toets voor RETURN ...."
return
endif


@ 3,1 say "Oproepen nr "+tlfnr
nr="ATDT"+tlfnr
=fputs(modemhandl,nr) && stuur tlfnr naar com1
@ 4,1 say "Haak af en tik een toets ....."
t=inkey(0)
=fputs(modemhandl,'ATZH')
=fclose(modemhandl)
deactivate window fvscalls
return

I don't know whether it still works under VFP but I think it should since it uses lowlever functions.

wilfredo