傳送簡訊

發文回覆瀏覽次數：1503

推到 Plurk!

推到 Facebook!

答題得分者是：phototin

cyl
中階會員

發表：163
回覆：171
積分：66
註冊：2002-07-11

發送簡訊給我

#1 引用回覆回覆

發表時間：2002-09-05 10:06:48

IP:61.218.xxx.xxx 未訂閱

請問我想寫一個發送簡訊到手機的程式,不知該如何著手??< >< >

weber
初階會員

發表：24
回覆：56
積分：26
註冊：2002-03-13

發送簡訊給我

#2 引用回覆回覆

發表時間：2002-09-09 15:16:22

IP:61.216.xxx.xxx 未訂閱

請參考這篇文章, 應該有幫助. http://delphi.ktop.com.tw/topic.php?TOPIC_ID=18247

phototin
初階會員

發表：13
回覆：30
積分：29
註冊：2002-06-15

發送簡訊給我

#3 引用回覆回覆

發表時間：2002-09-10 00:19:03

IP:61.224.xxx.xxx 未訂閱

不知道是不是你想要的，參考參考…，使用 Delphi 對手機通訊的編程轉載 www.Alltips.Com 2001-10-29 極限技術網

unit PanasonicGD;
interfaceuses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, RXClock, ExtCtrls, RXCtrls, Gauges, OoMisc, AdPort, DsFancyButton;
type TPanasonicGD92 = class(TForm) 
SoftwareTitle: TRxLabel;
ComPortItem: TPanel;
PhoneInfo: TPanel; 
ComPort1: TRadioButton; 
ComPort2: TRadioButton; 
ComPort3: TRadioButton; 
ComPort4: TRadioButton; 
Com1Port: TRxLabel; 
Com2Port: TRxLabel; 
Com3Port: TRxLabel; 
Com4Port: TRxLabel; 
RealClock: TRxClock; 
Autohor: TRxLabel; 
SoftwareVersion: TRxLabel;
PhoneIMEI: TRxLabel; 
GD92SW: TEdit; 
GD92IMEI: TEdit; 
JobItem: TPanel; 
ProcessInfo: TPanel; 
PhoneLockCode: TRxLabel; 
GD92CODE: TEdit; 
ProcessBar: TGauge; 
PromptInfo: TPanel; 
UserInfo: TLabel; 
ComPort: TApdComPort; 
ExitProgram: TDsFancyButton; 
TestMode: TDsFancyButton; 
ReadInfo: TDsFancyButton; 
Chinese: TDsFancyButton; 
ExitTestMode: TDsFancyButton; 
function GetCOMData(Count: integer): string; 
procedure ExitProgramClick(Sender: TObject); 
procedure TestModeClick(Sender: TObject); 
procedure ComPortTriggerAvail(CP: TObject; Count: word); procedure ChineseClick(Sender: TObject); 
procedure ExitTestModeClick(Sender: TObject); 
procedure ReadInfoClick(Sender: TObject); 
private { Private declarations } 
public { Public declarations } 
end;
var PanasonicGD92: TPanasonicGD92; 
ResponseArray: array[1..300] of string; 
Step: integer; 
PanaGD9xIMEI: string; 
PanaGD9xCode: string; 
PanaGD9xSW: string; 
DoStop: boolean;
implementation
{$R *.DFM}
function TPanasonicGD92.GetCOMData(Count: integer): string;
var I: integer;begin 
Result := '; 
for I := 1 to Count do 
Result := Result   IntToHex(byte(ComPort.GetChar), 02);
end;
procedure TPanasonicGD92.ExitProgramClick(Sender: TObject);
begin 
Close;
end;
procedure TPanasonicGD92.TestModeClick(Sender: TObject);
begin 
if TestMode.Caption = 'Stop Jobs' then 
DoStop := True else 
begin 
TestMode.Caption := 'Stop Jobs'; 
Step := 1; 
if ComPort1.Checked then 
ComPort.ComNumber := 1; 
if ComPort2.Checked then 
ComPort.ComNumber := 2; 
if ComPort3.Checked then 
ComPort.ComNumber := 3; 
if ComPort4.Checked then 
ComPort.ComNumber := 4; 
UserInfo.Caption := 'Press Phone Power On Key ...'; ResponseArray[Step] := '00'; 
while Step = 1 do begin Application.ProcessMessages; 
if DoStop then 
begin 
TestMode.Caption := 'Test Mode'; 
Exit; 
end; 
end; 
ProcessBar.Progress := 0; 
ReadInfo.Enabled := True; 
Chinese.Enabled := True; 
ExitTestMode.Enabled := True; 
UserInfo.Caption := 'Phone Test Mode OK !'; 
end;
end;
procedure TPanasonicGD92.ChineseClick(Sender: TObject);
begin 
Step := 5; 
ProcessBar.ForeColor := clLime; 
ResponseArray[Step] := '00800110'; 
ComPort.PutChar(#$00); 
ProcessBar.Progress := 4; 
ComPort.PutChar(#$80); 
ProcessBar.Progress := 8; 
ComPort.PutChar(#$02); 
ProcessBar.Progress := 12; 
ComPort.PutChar(#$E2); 
ProcessBar.Progress := 15; 
ComPort.PutChar(#$00); 
ProcessBar.Progress := 19; 
while Step = 5 do begin Application.ProcessMessages; 
if DoStop then Exit; 
end; 
Step := 6; 
ResponseArray[Step] := '00800110'; 
ComPort.PutChar(#$00); 
ProcessBar.Progress := 23; 
ComPort.PutChar(#$80); 
ProcessBar.Progress := 27; 
ComPort.PutChar(#$03); 
ProcessBar.Progress := 31; 
ComPort.PutChar(#$9A); 
ProcessBar.Progress := 35; 
ComPort.PutChar(#$00); 
ProcessBar.Progress := 38; 
ComPort.PutChar(#$FF); 
ProcessBar.Progress := 42; 
while Step = 6 do begin 
Application.ProcessMessages; 
if DoStop then Exit; 
end; 
Step := 7; 
ResponseArray[Step] := '00800110'; 
ComPort.PutChar(#$00); 
ProcessBar.Progress := 46; 
ComPort.PutChar(#$80); 
ProcessBar.Progress := 50; 
ComPort.PutChar(#$0B); 
ProcessBar.Progress := 54; 
ComPort.PutChar(#$CB); 
ProcessBar.Progress := 58; 
ComPort.PutChar(#$02); 
ProcessBar.Progress := 62;
ComPort.PutChar(#$00); 
ProcessBar.Progress := 65; 
ComPort.PutChar(#$00); 
ProcessBar.Progress := 69; 
ComPort.PutChar(#$00); 
ProcessBar.Progress := 73; 
ComPort.PutChar(#$00); 
ProcessBar.Progress := 77; 
ComPort.PutChar(#$07); 
ProcessBar.Progress := 81; 
ComPort.PutChar(#$00); 
ProcessBar.Progress := 85;
ComPort.PutChar(#$00); 
ProcessBar.Progress := 88; 
ComPort.PutChar(#$00); 
ProcessBar.Progress := 92; 
ComPort.PutChar(#$00); 
ProcessBar.Progress := 96; 
ComPort.PutChar(#$00); 
ProcessBar.Progress := 100; 
while Step = 7 do 
begin 
Application.ProcessMessages; 
if DoStop then Exit; 
end; 
ProcessBar.Progress := 0; 
UserInfo.Caption := 'Chinese Language Active OK !';
end;
procedure TPanasonicGD92.ExitTestModeClick(Sender: TObject);
begin 
ExitTestMode.Enabled := False; 
Step := 30; 
ResponseArray[Step] := '0080015A'; 
ProcessBar.ForeColor := clRed; 
ProcessBar.Progress := 0; 
ComPort.PutChar(#$00); 
ProcessBar.Progress := 25; 
ComPort.PutChar(#$80); 
ProcessBar.Progress := 50; 
ComPort.PutChar(#$01); 
ProcessBar.Progress := 75; 
ComPort.PutChar(#$23); 
ProcessBar.Progress := 100; 
while Step = 30 do begin 
Application.ProcessMessages; 
if DoStop then Exit; 
end; 
ProcessBar.Progress := 0; 
ReadInfo.Enabled := False; 
Chinese.Enabled := False; 
TestMode.Enabled := True; 
UserInfo.Caption := 'Phone Exit Test Mode OK !'; TestMode.Caption := 'Stop';
end;
procedure TPanasonicGD92.ReadInfoClick(Sender: TObject);
var IMEI92: string; 
Code92: string; 
Soft92: string;
begin 
Step := 20; 
UserInfo.Caption := 'Please Wait ...'; ProcessBar.ForeColor := clBlue; 
ProcessBar.Progress := 0; 
ComPort.PutChar(#$00); 
ProcessBar.Progress := 8; 
ComPort.PutChar(#$80); 
ProcessBar.Progress := 15; 
ComPort.PutChar(#$01); 
ProcessBar.Progress := 23; 
ComPort.PutChar(#$98); 
ProcessBar.Progress := 31; 
while Step = 20 do begin Application.ProcessMessages; 
if DoStop then Exit; 
end; 
Code92 := Copy(PanaGD9xCode, 10, 1); 
Code92 := Code92   Copy(PanaGD9xCode, 12, 1); 
Code92 := Code92   Copy(PanaGD9xCode, 14, 1); 
Code92 := Code92   Copy(PanaGD9xCode, 16, 1); 
Code92 := Code92   Copy(PanaGD9xCode, 18, 1); GD92CODE.Text := Code92; 
ProcessBar.Progress := 0; 
UserInfo.Caption := 'Read Phone Code OK !'; Step := 21; 
ComPort.PutChar(#$00); 
ProcessBar.Progress := 38; 
ComPort.PutChar(#$80); 
ProcessBar.Progress := 46; 
ComPort.PutChar(#$01); 
ProcessBar.Progress := 53; 
ComPort.PutChar(#$90); 
ProcessBar.Progress := 62; 
while Step = 21 do 
begin 
Application.ProcessMessages; 
if DoStop then Exit; 
end; 
IMEI92 := Copy(PanaGD9xIMEI, 10, 1); 
IMEI92 := IMEI92   Copy(PanaGD9xIMEI, 12, 1); 
IMEI92 := IMEI92   Copy(PanaGD9xIMEI, 14, 1); 
IMEI92 := IMEI92   Copy(PanaGD9xIMEI, 16, 1); 
IMEI92 := IMEI92   Copy(PanaGD9xIMEI, 18, 1); 
IMEI92 := IMEI92   Copy(PanaGD9xIMEI, 20, 1); 
IMEI92 := IMEI92   Copy(PanaGD9xIMEI, 22, 1); 
IMEI92 := IMEI92   Copy(PanaGD9xIMEI, 24, 1); 
IMEI92 := IMEI92   Copy(PanaGD9xIMEI, 26, 1); 
IMEI92 := IMEI92   Copy(PanaGD9xIMEI, 28, 1); 
IMEI92 := IMEI92   Copy(PanaGD9xIMEI, 30, 1); 
IMEI92 := IMEI92   Copy(PanaGD9xIMEI, 32, 1); 
IMEI92 := IMEI92   Copy(PanaGD9xIMEI, 34, 1); 
IMEI92 := IMEI92   Copy(PanaGD9xIMEI, 36, 1); 
IMEI92 := IMEI92   Copy(PanaGD9xIMEI, 38, 1); GD92IMEI.Text := IMEI92; 
UserInfo.Caption := 'Read Phone IMEI OK !'; 
Step := 22; 
ComPort.PutChar(#$00); 
ProcessBar.Progress := 69; 
ComPort.PutChar(#$80); 
ProcessBar.Progress := 77; 
ComPort.PutChar(#$02); 
ProcessBar.Progress := 85; 
ComPort.PutChar(#$94); 
ProcessBar.Progress := 92; 
ComPort.PutChar(#$00); 
ProcessBar.Progress := 100; 
while Step = 22 do 
begin 
Application.ProcessMessages; 
if DoStop then Exit; 
end; 
Soft92 := 'GAD'   Copy(PanaGD9xSW, 16, 1); 
Soft92 := Soft92   Copy(PanaGD9xSW, 18, 1); 
Soft92 := Soft92   'A'   Copy(PanaGD9xSW, 22, 1); Soft92 := Soft92   Copy(PanaGD9xSW, 24, 1); 
GD92SW.Text := Soft92; 
ProcessBar.Progress := 0; 
UserInfo.Caption := 'Read Phone Info OK !';
end;
procedure TPanasonicGD92.ComPortTriggerAvail(CP: TObject; Count: word);
var ST: string; Rs: string; // I: Integer;begin if Step = 1 then 
begin 
ProcessBar.Progress := 0; 
ComPort.PutChar(#$00); 
ProcessBar.Progress := 25; 
ComPort.PutChar(#$80); 
ProcessBar.Progress := 50; 
ComPort.PutChar(#$01); 
ProcessBar.Progress := 75; 
ComPort.PutChar(#$5C); 
ProcessBar.Progress := 100; 
end; St := GetCOMData(Count); 
Rs := ResponseArray[Step]; 
if Step = 20 then begin 
PanaGD9xCode := St; 
Rs := St; 
end; 
if Step = 21 then
begin 
PanaGD9xIMEI := St; Rs := St; 
end; 
if Step = 22 then begin 
PanaGD9xSW := St; 
Rs := St; 
end; 
if Pos(Rs, St) > 0 then 
Inc(Step);
end;
end.

cyl
中階會員

發表：163
回覆：171
積分：66
註冊：2002-07-11

發送簡訊給我

#4 引用回覆回覆

發表時間：2002-09-10 09:00:09

IP:61.218.xxx.xxx 未訂閱

引言: 不知道是不是你想要的，參考參考…，使用 Delphi 對手機通訊的編程轉載 www.Alltips.Com 2001-10-29 極限技術網 unit PanasonicGD; interfaceuses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, RXClock, ExtCtrls, RXCtrls, Gauges, OoMisc, AdPort, DsFancyButton; type TPanasonicGD92 = class(TForm) SoftwareTitle: TRxLabel; ComPortItem: TPanel; PhoneInfo: TPanel; ComPort1: TRadioButton; ComPort2: TRadioButton; ComPort3: TRadioButton; ComPort4: TRadioButton; Com1Port: TRxLabel; Com2Port: TRxLabel; Com3Port: TRxLabel; Com4Port: TRxLabel; RealClock: TRxClock; Autohor: TRxLabel; SoftwareVersion: TRxLabel; PhoneIMEI: TRxLabel; GD92SW: TEdit; GD92IMEI: TEdit; JobItem: TPanel; ProcessInfo: TPanel; PhoneLockCode: TRxLabel; GD92CODE: TEdit; ProcessBar: TGauge; PromptInfo: TPanel; UserInfo: TLabel; ComPort: TApdComPort; ExitProgram: TDsFancyButton; TestMode: TDsFancyButton; ReadInfo: TDsFancyButton; Chinese: TDsFancyButton; ExitTestMode: TDsFancyButton; function GetCOMData(Count: integer): string; procedure ExitProgramClick(Sender: TObject); procedure TestModeClick(Sender: TObject); procedure ComPortTriggerAvail(CP: TObject; Count: word); procedure ChineseClick(Sender: TObject); procedure ExitTestModeClick(Sender: TObject); procedure ReadInfoClick(Sender: TObject); private { Private declarations } public { Public declarations } end; var PanasonicGD92: TPanasonicGD92; ResponseArray: array[1..300] of string; Step: integer; PanaGD9xIMEI: string; PanaGD9xCode: string; PanaGD9xSW: string; DoStop: boolean; implementation {$R *.DFM} function TPanasonicGD92.GetCOMData(Count: integer): string; var I: integer;begin Result := '; for I := 1 to Count do Result := Result IntToHex(byte(ComPort.GetChar), 02); end; procedure TPanasonicGD92.ExitProgramClick(Sender: TObject); begin Close; end; procedure TPanasonicGD92.TestModeClick(Sender: TObject); begin if TestMode.Caption = 'Stop Jobs' then DoStop := True else begin TestMode.Caption := 'Stop Jobs'; Step := 1; if ComPort1.Checked then ComPort.ComNumber := 1; if ComPort2.Checked then ComPort.ComNumber := 2; if ComPort3.Checked then ComPort.ComNumber := 3; if ComPort4.Checked then ComPort.ComNumber := 4; UserInfo.Caption := 'Press Phone Power On Key ...'; ResponseArray[Step] := '00'; while Step = 1 do begin Application.ProcessMessages; if DoStop then begin TestMode.Caption := 'Test Mode'; Exit; end; end; ProcessBar.Progress := 0; ReadInfo.Enabled := True; Chinese.Enabled := True; ExitTestMode.Enabled := True; UserInfo.Caption := 'Phone Test Mode OK !'; end; end; procedure TPanasonicGD92.ChineseClick(Sender: TObject); begin Step := 5; ProcessBar.ForeColor := clLime; ResponseArray[Step] := '00800110'; ComPort.PutChar(#$00); ProcessBar.Progress := 4; ComPort.PutChar(#$80); ProcessBar.Progress := 8; ComPort.PutChar(#$02); ProcessBar.Progress := 12; ComPort.PutChar(#$E2); ProcessBar.Progress := 15; ComPort.PutChar(#$00); ProcessBar.Progress := 19; while Step = 5 do begin Application.ProcessMessages; if DoStop then Exit; end; Step := 6; ResponseArray[Step] := '00800110'; ComPort.PutChar(#$00); ProcessBar.Progress := 23; ComPort.PutChar(#$80); ProcessBar.Progress := 27; ComPort.PutChar(#$03); ProcessBar.Progress := 31; ComPort.PutChar(#$9A); ProcessBar.Progress := 35; ComPort.PutChar(#$00); ProcessBar.Progress := 38; ComPort.PutChar(#$FF); ProcessBar.Progress := 42; while Step = 6 do begin Application.ProcessMessages; if DoStop then Exit; end; Step := 7; ResponseArray[Step] := '00800110'; ComPort.PutChar(#$00); ProcessBar.Progress := 46; ComPort.PutChar(#$80); ProcessBar.Progress := 50; ComPort.PutChar(#$0B); ProcessBar.Progress := 54; ComPort.PutChar(#$CB); ProcessBar.Progress := 58; ComPort.PutChar(#$02); ProcessBar.Progress := 62; ComPort.PutChar(#$00); ProcessBar.Progress := 65; ComPort.PutChar(#$00); ProcessBar.Progress := 69; ComPort.PutChar(#$00); ProcessBar.Progress := 73; ComPort.PutChar(#$00); ProcessBar.Progress := 77; ComPort.PutChar(#$07); ProcessBar.Progress := 81; ComPort.PutChar(#$00); ProcessBar.Progress := 85; ComPort.PutChar(#$00); ProcessBar.Progress := 88; ComPort.PutChar(#$00); ProcessBar.Progress := 92; ComPort.PutChar(#$00); ProcessBar.Progress := 96; ComPort.PutChar(#$00); ProcessBar.Progress := 100; while Step = 7 do begin Application.ProcessMessages; if DoStop then Exit; end; ProcessBar.Progress := 0; UserInfo.Caption := 'Chinese Language Active OK !'; end; procedure TPanasonicGD92.ExitTestModeClick(Sender: TObject); begin ExitTestMode.Enabled := False; Step := 30; ResponseArray[Step] := '0080015A'; ProcessBar.ForeColor := clRed; ProcessBar.Progress := 0; ComPort.PutChar(#$00); ProcessBar.Progress := 25; ComPort.PutChar(#$80); ProcessBar.Progress := 50; ComPort.PutChar(#$01); ProcessBar.Progress := 75; ComPort.PutChar(#$23); ProcessBar.Progress := 100; while Step = 30 do begin Application.ProcessMessages; if DoStop then Exit; end; ProcessBar.Progress := 0; ReadInfo.Enabled := False; Chinese.Enabled := False; TestMode.Enabled := True; UserInfo.Caption := 'Phone Exit Test Mode OK !'; TestMode.Caption := 'Stop'; end; procedure TPanasonicGD92.ReadInfoClick(Sender: TObject); var IMEI92: string; Code92: string; Soft92: string; begin Step := 20; UserInfo.Caption := 'Please Wait ...'; ProcessBar.ForeColor := clBlue; ProcessBar.Progress := 0; ComPort.PutChar(#$00); ProcessBar.Progress := 8; ComPort.PutChar(#$80); ProcessBar.Progress := 15; ComPort.PutChar(#$01); ProcessBar.Progress := 23; ComPort.PutChar(#$98); ProcessBar.Progress := 31; while Step = 20 do begin Application.ProcessMessages; if DoStop then Exit; end; Code92 := Copy(PanaGD9xCode, 10, 1); Code92 := Code92 Copy(PanaGD9xCode, 12, 1); Code92 := Code92 Copy(PanaGD9xCode, 14, 1); Code92 := Code92 Copy(PanaGD9xCode, 16, 1); Code92 := Code92 Copy(PanaGD9xCode, 18, 1); GD92CODE.Text := Code92; ProcessBar.Progress := 0; UserInfo.Caption := 'Read Phone Code OK !'; Step := 21; ComPort.PutChar(#$00); ProcessBar.Progress := 38; ComPort.PutChar(#$80); ProcessBar.Progress := 46; ComPort.PutChar(#$01); ProcessBar.Progress := 53; ComPort.PutChar(#$90); ProcessBar.Progress := 62; while Step = 21 do begin Application.ProcessMessages; if DoStop then Exit; end; IMEI92 := Copy(PanaGD9xIMEI, 10, 1); IMEI92 := IMEI92 Copy(PanaGD9xIMEI, 12, 1); IMEI92 := IMEI92 Copy(PanaGD9xIMEI, 14, 1); IMEI92 := IMEI92 Copy(PanaGD9xIMEI, 16, 1); IMEI92 := IMEI92 Copy(PanaGD9xIMEI, 18, 1); IMEI92 := IMEI92 Copy(PanaGD9xIMEI, 20, 1); IMEI92 := IMEI92 Copy(PanaGD9xIMEI, 22, 1); IMEI92 := IMEI92 Copy(PanaGD9xIMEI, 24, 1); IMEI92 := IMEI92 Copy(PanaGD9xIMEI, 26, 1); IMEI92 := IMEI92 Copy(PanaGD9xIMEI, 28, 1); IMEI92 := IMEI92 Copy(PanaGD9xIMEI, 30, 1); IMEI92 := IMEI92 Copy(PanaGD9xIMEI, 32, 1); IMEI92 := IMEI92 Copy(PanaGD9xIMEI, 34, 1); IMEI92 := IMEI92 Copy(PanaGD9xIMEI, 36, 1); IMEI92 := IMEI92 Copy(PanaGD9xIMEI, 38, 1); GD92IMEI.Text := IMEI92; UserInfo.Caption := 'Read Phone IMEI OK !'; Step := 22; ComPort.PutChar(#$00); ProcessBar.Progress := 69; ComPort.PutChar(#$80); ProcessBar.Progress := 77; ComPort.PutChar(#$02); ProcessBar.Progress := 85; ComPort.PutChar(#$94); ProcessBar.Progress := 92; ComPort.PutChar(#$00); ProcessBar.Progress := 100; while Step = 22 do begin Application.ProcessMessages; if DoStop then Exit; end; Soft92 := 'GAD' Copy(PanaGD9xSW, 16, 1); Soft92 := Soft92 Copy(PanaGD9xSW, 18, 1); Soft92 := Soft92 'A' Copy(PanaGD9xSW, 22, 1); Soft92 := Soft92 Copy(PanaGD9xSW, 24, 1); GD92SW.Text := Soft92; ProcessBar.Progress := 0; UserInfo.Caption := 'Read Phone Info OK !'; end; procedure TPanasonicGD92.ComPortTriggerAvail(CP: TObject; Count: word); var ST: string; Rs: string; // I: Integer;begin if Step = 1 then begin ProcessBar.Progress := 0; ComPort.PutChar(#$00); ProcessBar.Progress := 25; ComPort.PutChar(#$80); ProcessBar.Progress := 50; ComPort.PutChar(#$01); ProcessBar.Progress := 75; ComPort.PutChar(#$5C); ProcessBar.Progress := 100; end; St := GetCOMData(Count); Rs := ResponseArray[Step]; if Step = 20 then begin PanaGD9xCode := St; Rs := St; end; if Step = 21 then begin PanaGD9xIMEI := St; Rs := St; end; if Step = 22 then begin PanaGD9xSW := St; Rs := St; end; if Pos(Rs, St) > 0 then Inc(Step); end; end.

可以幫我稍為解釋一下程式碼嗎??

dllee
站務副站長

發表：321
回覆：2519
積分：1711
註冊：2002-04-15

發送簡訊給我

#5 引用回覆回覆

發表時間：2002-09-10 09:43:19

IP:61.231.xxx.xxx 未訂閱

引言: 請問我想寫一個發送簡訊到手機的程式,不知該如何著手??< >< >

「發送簡訊到手機」的程式我想應該分成兩種：一是：執行的程式與自己的手機通訊，再由自己的手機發出簡訊。就如同上述的程式，是與自己的 Panasonic GD92 手機通訊，在程式中編簡訊，再由手機傳出去。二是：執行程式與系統業者的主機連線，再由系統業者的主機發出簡訊。就如部分的網站有提供「免費」或「付費」的簡訊一樣，這樣的作法必需與系統業者接洽才有可能完成。不知道您想要的是那一種？如果是第一種... 每支手機可能有不同的通訊協定，不知道這個部分有沒有標準？如果是第二種... 那就要找系統業者接洽囉。沒空更新的網頁...

C及指標教學 http://coolsite.to/dllee

介紹Shells http://coolsite.to/ushells

------
http://www.ViewMove.com

8866
中階會員

發表：27
回覆：147
積分：69
註冊：2002-10-14

發送簡訊給我

#6 引用回覆回覆

發表時間：2004-02-04 11:32:28

IP:61.222.xxx.xxx 未訂閱

如果是第一種... 每支手機可能有不同的通訊協定，不知道這個部分有沒有標準？傳送簡訊有基本的通訊協定 , 會依不同廠商有少許不同 , 不過大致上是相同的 !!!

系統時間：2024-06-29 20:20:15

聯絡我們 | Delphi K.Top討論版

本站聲明

1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！