用DELPHI做短信发送功能

Posted

tags:

篇首语:本文由小常识网(cha138.com)小编为大家整理,主要介绍了用DELPHI做短信发送功能相关的知识,希望对你有一定的参考价值。

利用DELPHI 制作一个短信发送功能的小程序:
条件:1.不要使用短信猫(我自己会弄).2.不要使用自己的手机接在电脑上,3.直接利用电脑向任意一个手机号码发送短信。4.没有SP(短信服务提供商)。
想法:可以不可以直接写一个程序,直接连接移动的默认短信网关,然后向那个网关发送短信。这样不知道能不能发送到指定手机去。有这方面强项的告诉下应该如何做谢谢。
问题是这样的,我们有个采集器中有GSM,采集器采用GPRS无线通信,里面有个电话卡,采集器经常会死掉,要通过发短信唤醒它才能正常工作。而这个短信唤醒由于采集器就只有几台,所以没必要用短信猫。想直接给移动短信网关发送,不知道能否实现得了。不知道哪位仁兄会有更好的办法

特别说明:这条唤醒的短信格式有点特殊,和一般的短信不一样,类似于SOCKET通信数据帧,有固定的格式

1 如果是调用远程WS接口服务进行了短信发送,那直接按照猫画虎WS的协议书导入WSDL文件后填写参数发送回服务器就可以
2 如果是用COM/USB直接连接短信猫,参照实行给定的DLL调用方法就可以实现信息的发送接收
参考技术A 如果不经过SP这是不可能的。主要是GSM运营商他要有业务嘛(还有GSM猫生产商要生存)。如果你不想用GSM猫,那你只好向运营商申请业务(还不如买个猫)。
以前有种叫CSD通讯方式,其实GPRS和GSM,3G,包括语音通讯的原理都是一样的,必须经过运营商(很多网站的还是用猫做的,只有少数的网站是运营商给了短信业务的)。本回答被提问者采纳
参考技术B 不做短信猫,没有SP ,好像不能实现 参考技术C 直接给139 信箱发一封信不就完了,139邮箱有到信短信通知功能

通过 64 位 Delphi 发送 MIDI 控制消息

【中文标题】通过 64 位 Delphi 发送 MIDI 控制消息【英文标题】:Sending MIDI control message via 64 bit Delphi 【发布时间】:2021-03-01 04:49:20 【问题描述】:

需要在 Delphi 中发送 91.17.00 之类的 midi 消息。 GitHub 上有一个包 midiio-master,它适用于 32 位的输入和输出。输入功能也适用于 64 位,但不适用于输出。尝试设置输出设备时会引发异常。有一个新的包,“NativeMidi”,它似乎有 64 位功能,但没有文档或示例,我不知道如何使用它。修复 midiio-master 或 NativeMidi 控件输出示例都会有很大帮助。

【问题讨论】:

抛出的异常究竟是什么?显示异常发生位置的源代码。编辑您的消息以添加信息。 欢迎来到互联网 - 它通过链接工作。请链接到“GitHub 上的 package midiio-master”和“一个新的包,'NativeMidi'”,因为不是每个读者都必须自己弄清楚,我们' re 也在查看完全相同的代码。 我希望您明白,除非您展示您遇到问题的代码,否则没有人可以帮助您解决问题。因此,请显示您用于发送 midi 消息的代码,包括变量声明。此外,按照其他人的要求,显示触发异常的代码并重复确切的错误消息。 【参考方案1】:

通过更改 midiio-master 包中的模块 Midiout.pas 解决了问题。

第 580 行说

for TestDeviceID := -1 to (MidiOutGetNumDevs - 1) do

需要改成

for TestDeviceID := 0 to (MidiOutGetNumDevs - 1) do

在 32 位环境中,-1 触发测试以查看是否存在任何 Midi 接口,但在 64 位环境中失败。

解压包后,为 64 位源创建一个子文件夹,并将所有 .pas files 复制到其中。相应地更改工具 > 选项 > 语言 > Delphi 选项 > 库中的库文件引用。这样你就可以拥有两个版本的Midiout.pas

【讨论】:

那么很有可能是beNative midiio。

以上是关于用DELPHI做短信发送功能的主要内容,如果未能解决你的问题,请参考以下文章

delphi indy10 无法接收中文

QQ聊天机器人 Delphi代码

通过 64 位 Delphi 发送 MIDI 控制消息

delphi 如何用消息发送一个记录

delphi 怎么用Sendmessage发送Ctrl+V消息

delphi中有模拟发送鼠标按键sendmessage的疑问