PowerBuilder à Donf ! / [RESOLU] Envoyer des sms via PowerBuilder mais... sans l'ocx Comm32 ?

elfeliz · 02-01-2012 20:56:15

Bonjour à toutes et tous !

J'ai trouvé pas mal de tuyaux sur le net concernant l'envoi de sms via du code pb.
Y compris ceci : http://pbadonf.fr/forum/viewtopic.php?id=1932

Si je vois clair, tous ramènent à l'usage de l'ocx comm32, qui s'occupe de gérer le port comm sur lequel on branche le modem/gsm apte à envoyer le texto sur le réseau.
C'est bien ennuyeux car celui-ci demande une licence VB pour son exploitation disons..."légale".
Et comme on ne fait que ça : du légal...

Pourriez-vous m'éclairer sur ces deux points :

* il faut effectivement impérativement une licence VB pour utiliser ce merveilleux outil dans une application PB ?
* il n'existe pas d'autre moyen pour envoyer du texto via PB ?

Que cette année démarre pour vous sur les chapeaux de roues et finisse en fanfare !

Bybye !

Elfeliz

Dernière modification par elfeliz (10-01-2012 21:31:29)

elfeliz · 10-01-2012 11:02:43

Pom pom pom...
Ce sujet ne soulève pas l'enthousiasme dirait-on ....

Pas de pistes autre que l'ocx ?

Merci,

El Feliz

seki · 10-01-2012 11:14:45

J'allais te répondre que ne faisant pas de com série ici, on ne pouvait pas t'aider...

...mais je suis tombé sur ce point intéressant : on peut utiliser les ports COM avec les fonctions d'accès aux fichiers. Ça peut être intéressant à creuser.
L'info vient de Roland Smith (dans le newsgroup PB), je le connais c'est une pointure en PB : https://groups.google.com/group/sybase. … dd9e?pli=1

HTH...

elfeliz · 10-01-2012 21:31:02

Bonsoir !

Merci Seki pour ce lien qui m'a mis sur la piste "gagnante".
J'ai trouvé sur les tech group yahoo le bout de code qui sauve :

Sending SMS to a mobile thru Powerbuilder 11.5

Encore un grand merci !

Bybye,
El Feliz

seki · 11-01-2012 01:14:19

elfeliz a écrit:
J'ai trouvé sur les tech group yahoo le bout de code qui sauve :

Sending SMS to a mobile thru Powerbuilder 11.5

Si ça fonctionne, je l'ajoute ici pour la postérité (et l'archivage).
Nota :
- j'ai reformaté le code qui est complètement saccagé sur le forum yahoo
- j'ai reformulé le test sur le numéro de fichier ouvert
- ce code ne peut pas fonctionner en PB 9 à cause de textmode! et de FileWriteEx qui n'existent pas, mais ça doit pouvoir tourner en PB10/10.5
- ceci dit, je n'ai pas testé ce code. Sa mise au point finale reste un exercice à la charge du lecteur

here is the code to send sms through PB application .... but before execute code
make it sure that your GSM modem or Mobile set (which can be act as GSM modem)
attached to the PC is working and installed properly. And on which com port
windows it is enabled. I hope that you will like this appriciate the effort.

Code: pb

integer li_FileNum
string mobileNumber
string Smsmessage
string comPort
string szEnd
string szCommand

mobilenumber = txtmobilenumber.text
Smsmessage = txtmessage.text
comPort = txtComPort.text
szEnd = char(26)

li_FileNum = FileOpen(comPort, TextMode!,Write!,LockWrite!,Append!)
if li_FileNum > 0 then 
  FileWriteEx(li_FileNum, "AT+CMGF=1")
  FileWriteEx(li_FileNum, "~n~r")
  szCommand = "AT+CMGS="
  szCommand += "~""+mobilenumber+"~""
  FileWriteEx(li_FileNum, szCommand)
  FileWriteEx(li_FileNum, "~r")
  FileWriteEx(li_FileNum, Smsmessage)
  FileWriteEx(li_FileNum, szEnd)
  FileClose(li_FileNum)
  MessageBox("Sms Application" , "Sms sent successfully....")
  txtmobilenumber.text = ""
  txtmessage.text = ""
else
  MessageBox("Sms Application" , "Unable to open comport....")
end if