| Subject: | Error in Pop. |
| Posted by: | Donald Bossen |
| Date: | Thu, 30 Sep 2010 |
This just started out of the blue, on my development machine. the Users in the company are not seeing the errors yet.
I am seeing in the exception Messages Like "Cannot create file application / octetstream; name = SS1234.ORD or
Cannot create File attachement = Name SS1234.ORD" these are the attachments. Its also happening to a simular program here is the code I use to retrive the filed. Using Delphi6 and Indy 9, Symatice Endpoint Antivirice
Thanks in Advance
Donald S. Bossen
J&B Importers Inc.
with IdPop, FrmTb2 do
begin
if not connected then
begin
Host := ReadIniStr(IniCfg,'Source','Host');
Port := ReadIniInt(IniCfg,'Source','Port');
UserName := ReadIniStr(IniCfg,'Source','UserId');
Password := ReadIniStr(IniCfg,'Source','Password');
try
Connect;
Cnt := CheckMessages;
FldNoOrder.Text := IntToStr(Cnt);
for x := 1 to Cnt do
begin
try
FldOfOrd.Text := IntToStr(x);
Msg.Clear;
if RetrieveHeader(x,Msg) then
begin
IdPop.Retrieve(x,Msg);
ExtractOrderMessage(x);
IdPop.Delete(x)
end;
Except
on E: Exception do
begin
ErrorMsg := E.Message;
while ReadFromStack(True,500,False) > 0 do begin end;
InputBuffer.Clear;
Delete(x);
FldList.Items.Append(ErrorMsg +' Exception in Retreive');
end; end;
end;
finally
TimerGetOrder.Enabled := True;
LightProcessing.Lit := True;
IdPop.Disconnect;
Application.ProcessMessages;
// FldList.Items.Append('Disconected1 '+DateTimeToStr(time));
end;
end;
FldNoOrder.Text := '0';
FldOfOrd.Text := '0';
end;