2 Star 2 Fork 4

zqw/WefeelSMS

加入 Gitee
与超过 1200万 开发者一起发现、参与优秀开源项目,私有仓库也完全免费 :)
免费加入
文件
克隆/下载
uSMSSetting.pas 976 Bytes
一键复制 编辑 原始数据 按行查看 历史
zqw 提交于 2014-08-17 18:15 +08:00 . 提交全部文件
unit uSMSSetting;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Buttons;
type
TfrmSMSSetting = class(TForm)
Label1: TLabel;
ComPort: TComboBox;
Label2: TLabel;
ComBaud: TComboBox;
BitBtn1: TBitBtn;
BitBtn2: TBitBtn;
procedure BitBtn1Click(Sender: TObject);
procedure BitBtn2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
frmSMSSetting: TfrmSMSSetting;
implementation
uses SMSExports, uMain;
{$R *.dfm}
procedure TfrmSMSSetting.BitBtn1Click(Sender: TObject);
begin
SMSStop();
SMSSetting(StrToInt(ComPort.Text),StrToInt(ComBaud.Text));
try
SMSStart();
frmMain.StatusBar.Panels[0].Text := '连接短信设备成功';
except
frmMain.StatusBar.Panels[0].Text := '连接短信设备失败';
end;
self.Hide;
end;
procedure TfrmSMSSetting.BitBtn2Click(Sender: TObject);
begin
self.Hide;
end;
end.
Loading...
马建仓 AI 助手
尝试更多
代码解读
代码找茬
代码优化
Delphi
1
https://gitee.com/zqw/WefeelSMS.git
git@gitee.com:zqw/WefeelSMS.git
zqw
WefeelSMS
WefeelSMS
master

搜索帮助