Пост шпаргалка, но возможно, кому-либо пригодится.
Недавно в одной из программ, написанных на Delphi (я обязательно о ней расскажу, в одном из следующих постов), подсмотрел такую фишку:
При нажатии на кнопку запускается WebMoney Keeper (если он еще не запущен) и открывается диалог перевода денег из кошелька в кошелек. При этом номер кошелька-реципиента, сумма и комментарий уже заполнены.
Захотелось воспроизвести нечто подобное. И хотя Google не очень много рассказывает о взаимодействии Delphi и WebMoney, все оказалось довольно просто.
Вызывать команды протокола WMK можно с помощью обычного ShellExecute. Например, так:
ShellExecute(0, nil, PWideChar('wmk:payto?Purse=R227690542889&Amount='+IntToStr(SpinEdit1.Value)+'&Desc=Заплатить 1 WMR&BringToFront=Y&ExecEvenKeeperIsOffline=Y'), nil, nil, SW_SHOW);
В данном случае, используется команда PayTo, которая показывает диалог “Передать WM”. Параметры команды позволяют установить кошелек, на который будет производиться платеж, сумму и описание платежа. То, что нам и нужно!
Вот так все просто.
Вообще, кроме команд взаимодействия с Кипером, Webmoney предусматривает XML интерфейсы, основанные на обращениях (запросах) к специальному Web-серверу системы по протоколу https (SSL 128 бит) в формате XML с использованием специального модуля аутентификации для ключей WM Keeper Classic или стандартных сертификатов x.509 (сертификаты WM Keeper Light). Используя их, можно автоматизировать работу с WebMoney без использования Кипера. Существуют так же библиотеки для работы с этими интерфейсами на различных языках программирования. К сожалению, Delphi среди этих языков нет. Но это тема для отдельного разговора.
Оставить комментарий