Цитата:
VAR
port: ComConn;
modem_fb: FB_SMS_CSD;
portHandle: MODULSOWENLIB.SysCom.RTS_IEC_HANDLE;
portOpened: BOOL;
portErrorCode: MODULSOWENLIB.SysCom.RTS_IEC_RESULT;
PROGRAM
port(enable:=TRUE, PortNum:=2, PortBaudrate:=MODULSOWENLIB.SysCom.COM_Baudrate.SY S_BR_9600, Handle=>portHandle, Done=>portOpened, ErrCode=>portErrorCode, Port_Mode:=2);
modem_fb(enable:=portOpened, handle:=portHandle, NewInSMS=>mNewIn**** NewInRing=>mNewInRing, ConnectCsd=>mConnectCSD, Busy=>mBusy);
modem_fb.SetModemPort(enable:=TRUE, PortCfg:=FALSE, SaveCfg:=FALSE, PortBaudrate:='9600', PortParity:=0, PortStopBits:=1, PortByteSize:=8, PortFlowCtrl:=0, SetModemPort=>mCfgDone);
modem_fb.GetLastError(error_code=>mLastError);
modem_fb.GetModemStatus(enable_modem_status_check: =TRUE, modemstatus=>mStatus);
if bSMSSend then
modem_fb.SMS_Send(send_sms:=send**** sms_num:='3809612345678', sms_text:='Hello from pm01!', sms_mode:=FALSE, SMS_send=>mSMSSendStatus);
END_IF
В результате выполнения программы:
