A
archezhou
Unregistered / Unconfirmed
GUEST, unregistred user!
在Windows 2000 Server 下,用Sakmail 的Smtp 发送带附件的邮件
发现有些机器可以,有些机器不可以。在不可以的机器上Debug,发
现问题如下
当运行到Saksmtp.pas 的FSendMail
for i := 0 to data.Count-1 do
begin
try
FSendTextToSocket( data[ i] + crlf);
except
FSMTPError := true;
result := -6;
exit;
end;
FSendProgress := round( 100*(i+1)/data.Count);
if ( FSendProgress >= step) then
begin
FDoSendProgress( FSendProgress);
inc( step, FSendProgressStep);
end;
Application.ProcessMessages;
if FCanceled then
begin
result := 0;
exit;
end;
end;
FSendTextToSocket( crlf + '.' + crlf); // end of msg
FReceiveTextFromSocket;
发现,当向Server送完"."后,就再也从Server上收不到任何消息。
但当在For循环上加一个断点后,一遍遍执行就没有任何问题。
在同台机器上,Outlook Express 和Delphi5自带的Smtp控件发送
带附件的邮件都没问题
发现有些机器可以,有些机器不可以。在不可以的机器上Debug,发
现问题如下
当运行到Saksmtp.pas 的FSendMail
for i := 0 to data.Count-1 do
begin
try
FSendTextToSocket( data[ i] + crlf);
except
FSMTPError := true;
result := -6;
exit;
end;
FSendProgress := round( 100*(i+1)/data.Count);
if ( FSendProgress >= step) then
begin
FDoSendProgress( FSendProgress);
inc( step, FSendProgressStep);
end;
Application.ProcessMessages;
if FCanceled then
begin
result := 0;
exit;
end;
end;
FSendTextToSocket( crlf + '.' + crlf); // end of msg
FReceiveTextFromSocket;
发现,当向Server送完"."后,就再也从Server上收不到任何消息。
但当在For循环上加一个断点后,一遍遍执行就没有任何问题。
在同台机器上,Outlook Express 和Delphi5自带的Smtp控件发送
带附件的邮件都没问题