我裝了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();

編輯記錄

IdSMTP->Host = "mas.hinet.net"; // Host Domain name 打錯了！ msa.hinet.net

sorry, 這個是筆誤關係，我試過幾台主機，包括公司的、Hinet、so-net，
都是出現"Socket Error # 10061 Connection refused."訊息

剛剛找到原因了，不能發信的機器都是在無線AP裡面，只是不知道為什麼會發生這種狀況？
有人遇過類似的狀況嗎？

===================引 用 Stallion 文 章===================
IdSMTP->Host = "mas.hinet.net";? // Host Domain name 打錯了！ msa.hinet.net

編輯記錄

可以連線的！


[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.