hi, i use a custom pop3 component in my program, and frome time to
time i get this errormessage from the server:
-ERR System temporarily unavailable, please try again later.
on the next connect try i get the "pop3 component not ready" exception,
even if i check for connected:
function TMailAlert.CheckError:boolean;
begin
result := false;
with fpop do
if (errormessage <> '') then begin
if assigned(FOnError) then
FOnError(ErrorMessage);
ClearErrorMessage;
result := true;
end;
end;
procedure TMailAlert.CheckNewMail;
begin
with FPop do
if not Connected then
begin
Fbusy := true;
ClearErrorMessage;
Connect;
end;
end;
procedure TMailAlert.Pop3ClientRequestDone;
begin
if (FPop.connected) and (CheckError) then begin
FPop.quit;
exit;
end;
...
what could be the cause that the component is not ready after the
error ?
TIA, retnyg
ps. pop3prot.pas Version: 2.27
--
To unsubscribe or change your settings for TWSocket mailing list
please goto http://lists.elists.org/cgi-bin/mailman/listinfo/twsocket
Visit our website at http://www.overbyte.be
