| Kamikaze |
03-01-2005 06:19:23 |
¿Where is the mistake?
Hola a todos, mi problema es que estoy teniendo un problemilla a la hora de
descargarme los emails y me gustaria que si alguien sabe un poco del tema
que le eche un vistazo al codigo.
Muchas gracias!!!!
:) :) :)
Código PHP:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient,
IdMessageClient, IdPOP3, StdCtrls, IdMessage;
type
TForm1 = class(TForm)
IdPOP31: TIdPOP3;
IdMessage1: TIdMessage;
Button1: TButton;
Memo1: TMemo;
procedure IdPOP31Connected(Sender: TObject);
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.IdPOP31Connected(Sender: TObject);
begin
IdPOP31.Host := 'pop3.terra.es';
IdPOP31.Username := 'acid_explosion.terra.es';
IdPOP31.Password := '******************';
//¿el fallo podria ser del servidor?:confused:
end;
procedure TForm1.Button1Click(Sender: TObject);
var
pop3mailcounttotalI : integer;
pop3mailboxsizetotalI : integer;
I : integer;
J : integer;
K : integer;
bodyS : TStringList;
s : string;
Msg: TIdMessage;
begin
bodyS := TStringList.Create;
IdPOP31.Connect;
pop3mailcounttotalI := IdPOP31.CheckMessages;
pop3mailboxsizetotalI := IdPOP31.RetrieveMailBoxSize div 1024;
ShowMessage( 'Mail total =' + ' ' + IntToStr( pop3mailcounttotalI ) );
ShowMessage( 'Mailbox size total =' + ' ' + IntToStr(
pop3mailboxsizetotalI ) + ' ' + 'Kilobytes' );
for I := 1 to pop3mailcounttotalI do begin
ShowMessage( 'I =' + ' ' + IntToStr( I ) );
Msg := TIdMessage.Create( Self );
if IdPOP31.Retrieve( I, Msg ) then begin // add an IDMessage component from the Indy Misc tab, to initialize IdMessage1
// BodyS.Clear;
// ShowMessage( IdMessage1.MsgId );
// ShowMessage( IdMessage1.Subject );
{
for J := 0 to Pred( IdMessage1.MessageParts.Count ) do begin
if ( IdMessage1.MessageParts.Items[ J ] is TIdAttachment) then
begin
BodyS.Add( TIdAttachment(IdMessage1.MessageParts.Items[ J ] ).Filename );
end;
if ( IdMessage1.MessageParts.Items[ J ] is TIdText ) then begin
ShowMessage( 'I am here' );
BodyS.AddStrings( TIdText( IdMessage1.MessageParts.Items[ J ]).Body );
// s := s + ' ' + TIdText( IdMessage1.MessageParts.Items[ J ]).Body.Text;
end;
end;
// .Add(TmpStr + '|' + StringReplace(BodyS.Text, #13#10, '^', [rfReplaceAll]));
// MsgList.Add(TmpStr);
// ShowMessage( s );
ShowMessage( BodyS.Text );
}
Msg.NoDecode := false;
//
// Msg.NoDecode := true; // this does certainly not work
//
BodyS.Clear;
// Memo1.Clear;
ShowMessage( Msg.ContentType );
for J := 0 to Pred( Msg.MessageParts.Count) do
begin
//general attachments
if ( Msg.MessageParts.Items[J] is TIdAttachment ) then
begin
// lstAttachments.Add(TIdAttachment( Msg.MessageParts.Items [J]).Filename);
end
//body text
else
// begin
// for K := 0 to 1 do begin
if Msg.MessageParts.Items[J] is TIdText then begin
Memo1.Lines.AddStrings(TIdText( Msg.MessageParts.Items [J]).Body);
BodyS.AddStrings( TIdText( Msg.MessageParts.Items[ J ]).Body );
end;
//end;
// end;
end;
ShowMessage( BodyS.Text );
end
else begin
ShowMessage( 'Internet: E-mail: Header: Could not be retrieved' );
end;
end;
IdPOP31.Disconnect;
end;
end.
P.D.: Si alguien dispone de un codigo mejor o mas elaborado que este, le
agradeceria mucho que me lo enviara. ;) |
