megaspring
Newbie | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Необходимо настроить отправку sms из приложения, написанного на Delphi, с помощью MTS Communicator API.
В приложении есть компонент THTTPRIO, в нем, в свойстве WSDLLocation, прописана ссылка на wsdl-описания сервисов отправки sms (https://www.mcommunicator.ru/m2m/m2m_api.asmx?WSDL).
Сама wsdl выгружена, сохранена и добавлена в проект приложения.
Отправка sms осуществляется следующим образом:
Код: procedure TForm1.Button1Click(Sender: TObject);
var mc: MTS_x0020_Communicator_x0020_M2M_x0020_XML_x0020_APISoap;
res: Int64;
MD5: TIdHashMessageDigest5;
begin
MD5:=TIdHashMessageDigest5.Create;
mc:=GetMTS_x0020_Communicator_x0020_M2M_x0020_XML_x0020_APISoap(true, 'https://www.mcommunicator.ru/m2m/m2m_api.asmx?WSDL', HTTPRIO1);
try
mc.SendMessage(Edit1.Text, Edit2.Text, Edit3.Text, Edit4.Text, MD5.HashStringAsHex(Edit5.Text));
except
on e: Exception do
Application.MessageBox(PChar('Ошибка отправки sms-сообщения:'+#13+e.Message), PChar(Application.Title), MB_OK or MB_ICONERROR);
end;
MD5.Destroy;
end; |
где:
Edit1.Text - номер получателя вида 7хххххххххх;
Edit2.Text - текст сообщения;
Edit3.Text - номер отправителя вида 7хххххххххх;
Edit4.Text - логин;
Edit5.Text - пароль.
При любых значениях номеров отправителя, получателя, текста сообщения, логина или пароля получаю одну и ту же ошибку: MSID_FORMAT_ERROR (Формат MSID неверен).
Может кто сталкивался с Delphi и MTS Communicator M2M XML API? Помогите разобраться. |
