Hola a todos
Estaba tratando de hacer funcionar el programa demo (MailClient) que trae delphi en la carpeta indi, MailClient, MailDemo.
Lo configuro bien y empieza a descargar los email, pero despues de descargar varios, me da el error de abajo.
y me aparece en esta linea:
Código Delphi
[-]
procedure TfrmMain.RetrievePOPHeaders(inMsgCount: Integer);
var
stTemp: string;
intIndex: integer;
itm: TListItem;
begin
stTemp := Statusbar1.Panels[1].text;
lvHeaders.Items.Clear;
for intIndex := 1 to inMsgCount do
begin
ShowStatus(format('Messsage %d of %d', [intIndex, inMsgCount]));
Application.ProcessMessages;
Msg.Clear;
POP.RetrieveHeader(intIndex, Msg);
itm := lvHeaders.Items.Add; itm.ImageIndex := 5;
itm.Caption := Msg.Subject;
itm.SubItems.Add(Msg.From.Text);
itm.SubItems.Add(DateToStr(Msg.Date));
itm.SubItems.Add(IntToStr(POP.RetrieveMsgSize(intIndex)));
itm.SubItems.Add('n/a');
end;
ShowStatus(stTemp);
end;
Ojala me puedan decir donde esta el error
dibujo1.zip (
Gracias de antemano
Saludos
Por favor si algun moderador arregla el codigo, cuando le doy vista preliminar, se pone asi y no lo puedo arreglar.
Gracias