G
gcq
Unregistered / Unconfirmed
GUEST, unregistred user!
各位,为什么我的程序在直接拨号上网的机子上,总是connection failed?
procedure TForm1.Button1Click(Sender: TObject);
begin
NMSMTP1.ClearParams :=true;
NMSMTP1.Host :='freemail.263.net';
NMSMTP1.Port :=25;
NMSMTP1.Connect;
NMSMTP1.PostMessage.FromAddress :='gcqmail@sohu.com';
NMSMTP1.PostMessage.ToAddress.Add ('gcqmail@sohu.com');
NMSMTP1.PostMessage.Subject :='Test';
NMSMTP1.PostMessage.Body.Add('This is a test!');
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
NMSMTP1.ClearParams :=true;
NMSMTP1.Host :='freemail.263.net';
NMSMTP1.Port :=25;
NMSMTP1.Connect;
NMSMTP1.PostMessage.FromAddress :='gcqmail@sohu.com';
NMSMTP1.PostMessage.ToAddress.Add ('gcqmail@sohu.com');
NMSMTP1.PostMessage.Subject :='Test';
NMSMTP1.PostMessage.Body.Add('This is a test!');
end;