?? unit1.pas
字號:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, Mask, ExtCtrls, ComCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
Memo1: TMemo;
Edit1: TMaskEdit;
Label1: TLabel;
Label2: TLabel;
Edit2: TEdit;
Label3: TLabel;
Timer1: TTimer;
StatusBar1: TStatusBar;
Memo2: TMemo;
Button2: TButton;
Button3: TButton;
Button4: TButton;
procedure Button1Click(Sender: TObject);
procedure Timer1Timer(Sender: TObject);
procedure FormActivate(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure Button4Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
function InitConnect(hostname:pchar):Integer; cdecl external 'SMSCLIENT.DLL';
function QueryMsg:Integer; cdecl external 'SMSCLIENT.DLL';
function SendMsg(SCA:pchar;DA:pchar;UD:pchar):Integer; cdecl external 'SMSCLIENT.DLL';
function ReadMsg:pchar; cdecl external 'SMSCLIENT.DLL';
implementation
{$R *.DFM}
procedure TForm1.Button1Click(Sender: TObject);
var i:integer;
begin
i:=SendMsg(pchar('13800280500'),pchar(edit1.text),pchar(memo1.text));
if i=-1 then showmessage('failed!')
else showmessage('success');
end;
procedure TForm1.Timer1Timer(Sender: TObject);
var i:integer;
s:string;
begin
i:=QueryMsg;
if i=-1 then
begin
statusbar1.Panels[0].text:='SMSServer 異常或沒有啟動';
end;
if i=0 then
begin
statusbar1.Panels[0].text:='SMSServer正常,沒有收到的消息';
end;
if i>0 then
begin
statusbar1.Panels[0].text:='SMSServer 正常,還有'+inttostr(i)+'條收到的信息';
end;
end;
procedure TForm1.FormActivate(Sender: TObject);
var i:integer;
begin
// InitConnect(edit2.text);
// if i=-1 then showmessage('連接SMS服務器失敗');
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
Timer1Timer(Sender);
end;
procedure TForm1.Button3Click(Sender: TObject);
var s:string;
begin
try
s:=ReadMsg;
Memo2.Lines.Add('收到:'+s);
except
end;
end;
procedure TForm1.Button4Click(Sender: TObject);
var i:integer;
begin
InitConnect(pchar(edit2.text));
if i=-1 then showmessage('連接SMS服務器失敗');
end;
end.
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -