Mobilchange news Obsah dokumentace Uživatelská dokumentace Administrátorská dokumentace Rejstřík pojmů Technická podpora Hledání on-line

Programové odesílání SMS z jiných aplikací

Tento dokument popisuje, jak odeslat SMS z obecné aplikace. Od čtenáře se očekávají základní programátorské znalosti a znalost práce s COM objekty v prostředí Win32.

Obsah dokumentu


Úvod

Pokud potřebujete odesílat SMS z obecné aplikace, je zde pro Vás objekt SendSMS. Může být použit na kterémkoli počítači, kde má přístup na MobilChange server. Je napsán pro Windows NT 4.0/200x, ale měl by fungovat i na Windows 9x.

zpět na začátek


Instalace a konfigurace SendSMS objektu

Na počítač, kde chcete objekt SendSMS používat, si do systémového adresáře nakopírujte soubor SendSMS.dll z adresáře Program Files/Common Files/Datasys/.

Zaregistrujte jej pomocí regsvr32 sendsms.dll.

Ověřte si, že máte přístupová práva (právo zakládat, přejmenovávat a mazat soubory) do sharu MxInQueue na MobilChange serveru.

Tím je instalace dokončena.

zpět na začátek


Vytvoření a použití objektu SendSMS

Objekt má jméno SENDSMS.SendSMSObj. Vytvořte jej prostředky Vámi použitého jazyka, například ve VBScriptu:
 
Dim SendSMS
Set SendSMS = CreateObject( "SENDSMS.SendSMSObj" )
 

zpět na začátek


Funkce SendSMS.Init()

Funkce SendSMS.Init() nainicializuje SendSMS objekt. Není možno odesílat SMS zprávy před zavoláním této funkce. Tato funkce by měla být zavolána jen jednou na začátku práce. Syntaxe je:

SendSMS.Init( appname, [server] )
appname (textový řetězec) Jméno odesílající aplikace. Nesmí obsahovat nic jiného, než malá písmena anglické abecedy a číslice.
server (textový řetězec) Jméno MobilChange serveru. Pokud je předán prázdný řetězec, přistupuje se na lokální počítač.
(návratová
hodnota)
Textový řetězec "OK" = úspěšná inicializace, "ERROR" = problém při inicializaci.

Příklad použití:
 
Dim rc
rc = SendSMS.Init( "banking1", "server15" )
If rc <> "OK" Then
    ' zde je třeba zpracovat chybu
End If
 

zpět na začátek


Funkce SendSMS.SendSMS()

Funkce SendSMS.SendSMS() odesílá SMS zprávu. Syntaxe je:

SendSMS(To, Text, [NoModify=False], [FromName], [FromEmail], [FromSmtp], [Language], [DR=False])
To (textový řetězec) Telefonní číslo adresáta.
Text (textový řetězec) Text zprávy.
NoModify (True/False) Pokud je True, text zprávy je odeslán přesně tak, jak byl zadán aplikací. Pokud je False, text je zpracován pomocí MobilChange stejným zprůsobem, jako odesílané e-maily, tj. jsou vynechány mezery, překódovaná čeština atd.
FromName (textový řetězec) Jméno uživatele, za kterého aplikace SMS odesílá.
Případné potvrzení o doručení bude posláno na toto jméno.
FromEmail (textový řetězec) E-mail adresa uživatele, za kterého aplikace SMS odesílá, v rámci lokálního e-mail systému (tj. např EX: adresa u Exchange serveru).
Případné potvrzení o doručení bude posláno na tuto adresu.
FromSMTP (textový řetězec) SMTP adresa uživatele, za kterého aplikace SMS odesílá.
Případné potvrzení o doručení bude posláno na tuto adresu.
Language (textový řetězec) Kód jazyka uživatele, za kterého aplikace SMS odesílá.
Případné potvrzení o doručení bude posláno v tomto jazyce.
Povolené kódy odpovídají názvům podadresářů v adressáři MobilChange/data/, tj. CZ, UK, ...
DR (True/False) Pokud je True, je vyžadováno potvrzení o doručení. Pokud je False, nechce aplikace potvrzení o doručení.
(návratová
hodnota)
Textový řetězec "OK", pokud je vše v pořádku, řetězec "ERROR" v případě, že došlo k chybě.

Příklad použití:
 
Dim rc
rc = SendSMS.SendSMS( "+420603899285", "Hello, World!", True )
If rc <> "OK" Then
    ' zde je třeba zpracovat chybu
End If
 

zpět na začátek


Metoda SendSMS.UnInit()

Metoda SendSMS.UnInit() odinicializuje SendSMS objekt. Po zavolání metody není možno dále odesílat SMS zprávy. Tato metoda by měla být zavolána jen jednou na konci práce. Syntaxe je:

SendSMS.UnInit()

Příklad použití:
 
Call SendSMS.UnInit()
 

zpět na začátek


Property SendSMS.LastError

Property SendSMS.LastError obsahuje textový popis poslední chyby vzniklé v objektu SendSMS.

zpět na začátek