網上的資料大多是發送中文的，都說英文的很簡單，但是我對于這方面什么都不懂，找了很久也沒找到資料。
環境，Delphi 7，GSM modem、sim908。
不求直接解決，給我點簡單實用的資料就好
uj5u.com熱心網友回復：
up。。。。。。。。。。。。uj5u.com熱心網友回復：
搜索一下“AT指令",就用很相關資料，，uj5u.com熱心網友回復：
發短信代碼：procedure TEMailFrm.MailSend;
var TM:TIdMessage;
S1,S2,S3:string;
begin
if Edit25.text='' then
begin
Showmessage('請輸入密碼！');
exit;
end;
List:=List+1;
statusbar1.Panels[0].text:=' 正在發送郵件...... ';
TM:=TIDMEssage.Create(nil);
With TM do
begin
Body.Assign(Memo22.Lines);
// From.address := Combobox25.Text; // 發件人地址
From.address := Combobox23.Text; // 發件人地址
Recipients.EMailAddresses:=Combobox28.Text; // 收件人地址，這里改為你的EMAIL地址
Subject:=Combobox29.Text; // 郵件標題
// Priority := mphigh; // 優先級，mphigh為最高級。
Priority:=TIDMessagePriority(Combobox26.ItemIndex);
if Edit21.text<>'' then // 附件1
if FileExists(Edit21.Text) then
TIdAttachment.Create(MessageParts,Edit21.Text);
Edit22.Text:=Trim(Edit22.Text); // 附件2
if Edit22.text<>'' then
if FileExists(Edit22.Text) then
TIdAttachment.Create(MessageParts,Edit22.Text);
Edit23.Text:=Trim(Edit23.Text); // 附件3
if Edit23.text<>'' then
if FileExists(Edit23.Text) then
TIdAttachment.Create(MessageParts,Edit23.Text);
end;
case Combobox27.ItemIndex of
0 : IdSMTP1.AuthenticationType:=atLogin; // 需要認證
1 : IdSMTP1.AuthenticationType:=atNone; // 無需認證
end;
IdSMTP1.Username := Combobox23.text; // 服務器上的用戶名
IdSMTP1.Password := Edit25.text; // 服務器上的密碼
IdSMTP1.Host := Combobox21.text; // 服務器SMTP地址
IdSMTP1.Port := StrToInt(Combobox22.text); // 服務器埠
try
IdSMTP1.Connect;
except
statusbar1.Panels[0].text:=IntToStr(List)+'、無法連接到服務器！';
exit;
end;
Try
IdSMTP1.Send(TM);
except
IdSMTP1.Disconnect;
S1:=IntToStr(List)+'、發送失敗！';
Memo21.Lines.Add(S1);
exit;
end;
IdSMTP1.Disconnect;
S1:=IntToStr(List)+'、成功發送：'+Combobox28.Text+' 《'+Combobox29.Text+'》';
Memo21.Lines.Add(S1);
statusbar1.Panels[0].text:=' '+S1+S2+S3;
end;
uj5u.com熱心網友回復：
有空試一下。mark
怎么短信跟郵件是一個概念嗎？
好像的。
轉載請註明出處，本文鏈接：https://www.uj5u.com/houduan/107203.html
標籤：網絡通信/分布式開發
上一篇：如何增強個人？
下一篇：實作電腦上輸入電話號碼，直接撥號