Indy的IdSMTP無法連線 |
缺席
|
Hero
一般會員 發表:3 回覆:10 積分:12 註冊:2002-07-11 發送簡訊給我 |
我裝了Indy的9.0.17版(BCB6.0 & Delphi7.0都試過),使用IdSMTP & IdMessage搭配來寄信
可是執行到IdSMTP->Connect()那一行就會出現"Socket Error # 10061 Connection refused."的錯誤訊息 請問有人遇過並解決類似的問題嗎?或是試過哪一版的Indy可以正常發信的? IdSMTP->AuthenticationType = atLogin; //試過其他不用驗證的機器改成atNone IdSMTP->Username = "xxx"; IdSMTP->Password = "xxx"; IdSMTP->Host = "msa.hinet.net"; IdSMTP->Port = 25; IdMessage->Clear(); IdMessage->From->Address = "xxx@msa.hinet.net"; IdMessage->From->Name = "xxx"; IdMessage->Recipients->EMailAddresses = "xxx@msa.hinet.net"; IdMessage->Subject = "test mail"; IdMessage->Body->Add("test xxxxxxxx") IdSMTP->Connect(); //無法連線 IdSMTP->Send(IdMessage); IdSMTP->Disconnect(); 編輯記錄
Hero 重新編輯於 2007-06-28 10:16:50, 註解 無‧
|
Stallion
版主 發表:52 回覆:1600 積分:1995 註冊:2004-09-15 發送簡訊給我 |
|
Hero
一般會員 發表:3 回覆:10 積分:12 註冊:2002-07-11 發送簡訊給我 |
sorry, 這個是筆誤關係,我試過幾台主機,包括公司的、Hinet、so-net,
都是出現"Socket Error # 10061 Connection refused."訊息 剛剛找到原因了,不能發信的機器都是在無線AP裡面,只是不知道為什麼會發生這種狀況? 有人遇過類似的狀況嗎? ===================引 用 Stallion 文 章=================== IdSMTP->Host = "mas.hinet.net";? // Host Domain name 打錯了! msa.hinet.net
編輯記錄
Hero 重新編輯於 2007-06-28 10:27:59, 註解 無‧
|
cluise789
一般會員 發表:1 回覆:5 積分:1 註冊:2007-08-07 發送簡訊給我 |
可以連線的!
[code delphi] unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient, IdMessageClient, IdSMTP, IdMessage; type TForm1 = class(TForm) IdSMTP1: TIdSMTP; Button1: TButton; Label1: TLabel; Edit1: TEdit; Label2: TLabel; Edit2: TEdit; IdMessage1: TIdMessage; procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject); begin with IdSMTP1 do begin AuthenticationType:=atLogin; UserId:='xxxxxxx'; Password:='????'; Host:=xxx.zzz.com.tw'; IdMessage1.Clear; IdMessage1.From.Address:=xxx@xxxxxx.com.tw'; IdMessage1.From.Name:='他,馬的選不上台灣總統'; IdMessage1.Recipients.EMailAddresses:=xxxx@aaa1111.com.tw'; IdMessage1.Subject:=edit1.Text; IdMessage1.Body.Add(edit2.Text); try connect; send(IdMessage1); disconnect; except on E:Exception do begin showmessage(E.Message); disconnect; abort; end; end; end; end; end. [/code]
------
cluise is a professional programmer. |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |