Форум программистов [Powered by Invision Power Board]

Код


procedure ReseiveMail(Host: string; Port: integer; User, Password: string);
var
  pop: TIdPOP3;
  m:   TIdMessage;
  mc,i: integer;
begin
  pop:=TIdPOP3.Create(nil);
  pop.Host:=Host; pop.Port:=Port;
  pop.Username:=User; pop.Password:=Password;
  try
    pop.Connect(60000);
    mc:=pop.CheckMessages;
    while mc>0 do begin
      m:=TIdMessage.Create(pop);
      pop.Retrieve(mc,m);
      Form1.Memo1.Lines.Add(m.From); // << все данные письма в полях m
      for i:=0 to m.MessageParts.Count-1 do
        with m.MessageParts do
        begin
          if items[i].ClassType=TIdAttachment then
            with TIdAttachment(items[i]) do
              try
                if FileExists(FileName) then DeleteFile(FileName);
                SaveToFile(FileName);
              except
                ShowMessage('Не удается сохранить файл');
              end;
          if items[i].ClassType = TIdText then
            with TIdText(items[i]) do
            begin
              Form1.Memo1.Lines.AddStrings(Body); // << текст здесь в Body: TStringList
            end;
        end;
      m.Free; dec(mc);
    end;
    ShowMessage('Все в порядке');
  except
    ShowMessage('Не удалось подключиться к серверу');
  end;
  pop.Free;
end;

Цитата

This is a MIME encoded message.

--babb14bd9c45ba3a65091c9746acd43b0
Content-Type: text/plain
Content-Transfer-Encoding: base64

CgkJCQlTdXJuYW1lIE5hbWUgLSB0ZXN0MSB0ZXN0MSAKCgkJCQlDaXR5IC0gLS0gCgoJCQkJRWR1
Y2F0aW9uYWwgaW5zdGl0dXRpb24gLSAtLSAKCgkJCQlSYXRlIC8gY2xhc3MgLSAtLSAKCQkJCQ==

--babb14bd9c45ba3a65091c9746acd43b0
Content-Type: file;
name = "Bootfont.bin"
Content-Transfer-Encoding: base64

TWRlVBkEAAAAAQAAAQAAADQAAAA0EwAAABMAACQAAAAAAAAAAAAAAAAAAAAQAQIIEEUTAAAAAAAA
AAAAAAAAAAAAAAAAAAABAAAAfsOBpYG9mcN+AAAAAAEAAgAAAH7//9v/w+f/fgAAAAACAAMAAAAA
RO7+/v58OBAAAAAAAwAEAAAAEDh8/v58OBAAAAAAAAQABQAAABg8PP/n5xgYfgAAAAAFAAYAAAAY
PH7//34YGH4AAAAABgAHAAAAAAAAPH5+PAAAAAAAAAcACAAA/////8OBgcP/////AAAIAAkAAAAA
PH5mQkJmfjwAAAAACQAKAAD//8OBmb29mYHD//8AAAoACwAAAD4OOnL4zMzMeAAAAAALAAwAAAA8
ZmZmPBh+GBgAAAAADAANAAAAHxkZHxgYePhwAAAAAA0ADgAAAH9jf2NjY2fn5sAAAAAOAA8AAAAA
GNt+5+d+2xgAAAAADwAQAAAAgMDg+P744MCAAAAAABAAEQAAAAIGDj7+Pg4GAgAAAAARABIAAAAY
PH4YGBh+PBgAAAAAEgATAAAAZmZmZmYAAGZmAAAAABMAFAAAAH/b29t7GxsbGwAAAAAUABUAAAB+
YzA8ZmY8DMZ+AAAAFQAWAAAAAAAAAAAA/v7+AAAAABYAFwAAABg8fhgYGH48GH4AAAAXABgAAAAY
PH4YGBgYGBgAAAAAGAAZAAAAGBgYGBgYfjwYAAAAABkAGgAAAAAAGAz+DBgAAAAAAAAaABsAAAAA
ADBg/mAwAAAAAAAAGwAcAAAAAAAAwMDA/gAAAAAAABwAHQAAAAAAJGb/ZiQAAAAAAAAdAB4AAAAA
EBA4OHx8/v4AAAAAHgAfAAAAAP7+fHw4OBAQAAAAAB8AIAAAAAAAAAAAAAAAAAAAAAAgACEAAAAw
eHh4MDAAMDAAAAAAIQAiAAAAZmZmJAAAAAAAAAAAACIAIwAAAGxs/mxsbP5sbAAAAAAjACQAADAw
fMDAeAwM+DAwAAAAJAAlAAAAAADEzBgwYMyMAAAAACUAJgAAAHDY2HD63szcdgAAAAAmACcAAAAw
MDBgAAAAAAAAAAAAJwAoAAAADBgwYGBgMBgMAAAAACgAKQAAAGAwGAwMDBgwYAAAAAApACoAAAAA
AGY8/zxmAAAAAAAAKgArAAAAAAAYGH4YGAAAAAAAACsALAAAAAAAAAAAAAA4OGAAAAAsAC0AAAAA
AAAA/gAAAAAAAAAALQAuAAAAAAAAAAAAADg4AAAAAC4ALwAAAAACBgwYMGDAgAAAAAAvADAAAAB8
xtbW1tbWxnwAAAAAMAAxAAAAEDDwMDAwMDD8AAAAADEAMgAAAHjMzAwYMGDM/AAAAAAyADMAAAB4
zAwMOAwMzHgAAAAAMwA0AAAADBw8bMz+DAweAAAAADQANQAAAPzAwMD4DAzMeAAAAAA1ADYAAAA4
YMDA+MzMzHgAAAAANgA3AAAA/sbGBgwYMDAwAAAAADcAOAAAAHjMzOx43MzMeAAAAAA4ADkAAAB4
zMzMfBgYMHAAAAAAOQA6AAAAAAA4OAAAODgAAAAAADoAOwAAAAAAODgAADg4GDAAAAA7ADwAAAAM
GDBgwGAwGAwAAAAAPAA9AAAAAAAAfgB+AAAAAAAAAD0APgAAAGAwGAwGDBgwYAAAAAA+AD8AAAB4
zAwYMDAAMDAAAAAAPwBAAAAAfMbG3t7ewMB8AAAAAEAAQQAAADB4zMzM/MzMzAAAAABBAEIAAAD8
ZmZmfGZmZvwAAAAAQgBDAAAAPGbGwMDAxmY8AAAAAEMARAAAAPhsZmZmZmZs+AAAAABEAEUAAAD+
YmBkfGRgYv4AAAAARQBGAAAA/mZiZHxkYGDwAAAAAEYARwAAADxmxsDAzsZmPgAAAABHAEgAAADM
zMzM/MzMzMwAAAAASABJAAAAeDAwMDAwMDB4AAAAAEkASgAAAB4MDAwMzMzMeAAAAABKAEsAAADm
ZmxseGxsZuYAAAAASwBMAAAA8GBgYGBiZmb+AAAAAEwATQAAAMbu/v7WxsbGxgAAAABNAE4AAADG
xub2/t7OxsYAAAAATgBPAAAAOGzGxsbGxmw4AAAAAE8AUAAAAPxmZmZ8YGBg8AAAAABQAFEAAAA4
bMbGxs7efAweAAAAUQBSAAAA/GZmZnxsZmbmAAAAAFIAUwAAAHjMzMBwGMzMeAAAAABTAFQAAAD8
tDAwMDAwMHgAAAAAVABVAAAAzMzMzMzMzMx4AAAAAFUAVgAAAMzMzMzMzMx4MAAAAABWAFcAAADG
xsbG1tZsbGwAAAAAVwBYAAAAzMzMeDB4zMzMAAAAAFgAWQAAAMzMzMx4MDAweAAAAABZAFoAAAD+
zpgYMGBixv4AAAAAWgBbAAAAPDAwMDAwMDA8AAAAAFsAXAAAAACAwGAwGAwGAgAAAABcAF0AAAA8
DAwMDAwMDDwAAAAAXQBeAAAQOGzGAAAAAAAAAAAAAF4AXwAAAAAAAAAAAAAAAP8AAABfAGAAADAw
GAAAAAAAAAAAAAAAYABhAAAAAAAAeAx8zMx2AAAAAGEAYgAAAOBgYHxmZmZm3AAAAABiAGMAAAAA
AAB4zMDAzHgAAAAAYwBkAAAAHAwMfMzMzMx2AAAAAGQAZQAAAAAAAHjM/MDMeAAAAABlAGYAAAA4
bGBg+GBgYPAAAAAAZgBnAAAAAAAAdszMzHwMzHgAAGcAaAAAAOBgYGx2ZmZm5gAAAABoAGkAAAAY
GAB4GBgYGH4AAAAAaQBqAAAADAwAPAwMDAzMzHgAAGoAawAAAOBgYGZseGxm5gAAAABrAGwAAAB4
GBgYGBgYGH4AAAAAbABtAAAAAAAA/NbW1tbGAAAAAG0AbgAAAAAAAPjMzMzMzAAAAABuAG8AAAAA
AAB4zMzMzHgAAAAAbwBwAAAAAAAA3GZmZmZ8YPAAAHAAcQAAAAAAAHbMzMzMfAweAABxAHIAAAAA
AADsbnZgYPAAAAAAcgBzAAAAAAAAeMxgGMx4AAAAAHMAdAAAAAAgYPxgYGBsOAAAAAB0AHUAAAAA
AADMzMzMzHYAAAAAdQB2AAAAAAAAzMzMzHgwAAAAAHYAdwAAAAAAAMbG1tZsbAAAAAB3AHgAAAAA
AADGbDg4bMYAAAAAeAB5AAAAAAAAZmZmZjwMGPAAAHkAegAAAAAAAPyMGGDE/AAAAAB6AHsAAAAc
MDBgwGAwMBwAAAAAewB8AAAAGBgYGAAYGBgYAAAAAHwAfQAAAOAwMBgMGDAw4AAAAAB9AH4AAABz
2s4AAAAAAAAAAAAAfgB/AAAAAAAQOGzGxv4AAAAAAH8AgAAAADB4zMzM/MzMzAAAAAAQBIEAAAD+
YmB8ZmZmZvwAAAAAEQSCAAAA/GZmZnxmZmb8AAAAABIEgwAAAP5iYmBgYGBg8AAAAAATBIQAAAA+
ZmZmZmZmZv/DAAAAFASFAAAA/mJgZHxkYGL+AAAAABUEhgAAAJnbWn48flrbmQAAAAAWBIcAAAA8
ZkYGHAZGZjwAAAAAFwSIAAAAxsbO3v725sbGAAAAABgEiQAAGNb2zt7+9ubGxgAAAAAZBIoAAADm
ZmxseGxsZuYAAAAAGgSLAAAAHj5mZmZmZmbGAAAAABsEjAAAAMbu/v7WxsbGxgAAAAAcBI0AAADG
xsbG/sbGxsYAAAAAHQSOAAAAOGzGxsbGxmw4AAAAAB4EjwAAAP7GxsbGxsbGxgAAAAAfBJAAAAD8
ZmZmfGBgYPAAAAAAIASRAAAAPGbGwMDAxmY8AAAAACEEkgAAAH5aGBgYGBgYPAAAAAAiBJMAAABm
ZmZmZj4GZjwAAAAAIwSUAAAAGH7b29vbfhgYAAAAACQElQAAAMzMzHgweMzMzAAAAAAlBJYAAADM
zMzMzMzMzP4GAAAAJgSXAAAAxsbGxsZ+BgYGAAAAACcEmAAAANbW1tbW1tbW/gAAAAAoBJkAAADW
1tbW1tbW1v8DAAAAKQSaAAAA4OBgYHxmZmZ8AAAAACoEmwAAAMbGxsb23t7e9gAAAAArBJwAAAAA
wMDA/MbGxvwAAAAALASdAAAAeMzGBh4Gxsx4AAAAAC0EngAAAM7b2/v729vbzgAAAAAuBJ8AAAA/
ZmZmPjZmZucAAAAALwSgAAAAAAAAeAx8zMx2AAAAADAEoQAAAAAABHzA+MzMeAAAAAAxBKIAAAAA
AAD4zPjMzPgAAAAAMgSjAAAAAAAA/MDAwMDAAAAAADMEpAAAAAAAAHxsbGxs/sYAAAA0BKUAAAAA
AAB4zPzAzHgAAAAANQSmAAAAAAAAktZ8fNaSAAAAADYEpwAAAAAAAHiMOAyMeAAAAAA3BKgAAAAA
AADMzNz87MwAAAAAOASpAAAACBgQzMzc/OzMAAAAADkEqgAAAAAAAMzY8NjIzAAAAAA6BKsAAAAA
AAAcPCxsTMwAAAAAOwSsAAAAAAAAxu7W1sbGAAAAADwErQAAAAAAAMzM/MzMzAAAAAA9BK4AAAAA
AAB4zMzMzHgAAAAAPgSvAAAAAAAA/MzMzMzMAAAAAD8EsAAAJJJJJJJJJJJJJJJJAACRJbEAAFWq
VapVqlWqVapVqgAAkiWyAABt27Zt27Zt27Zt27YAAJMlswAAGBgYGBgYGBgYGBgYAAACJbQAABgY
GBgY+BgYGBgYGAAAJCW1AAAYGBgY+BgY+BgYGBgAAGEltgAAZmZmZmbmZmZmZmZmAABiJbcAAAAA
AAAA/mZmZmZmZgAAViW4AAAAAAAA+BgY+BgYGBgAAFUluQAAZmZmZuYGBuZmZmZmAABjJboAAGZm
ZmZmZmZmZmZmZgAAUSW7AAAAAAAA/gYG5mZmZmYAAFclvAAAZmZmZuYGBv4AAAAAAABdJb0AAGZm
ZmZm/gAAAAAAAAAAXCW+AAAYGBgY+BgY+AAAAAAAAFslvwAAAAAAAAD4GBgYGBgYAAAQJcAAABgY
GBgYHwAAAAAAAAAAFCXBAAAYGBgYGP8AAAAAAAAAADQlwgAAAAAAAAD/GBgYGBgYAAAsJcMAABgY
GBgYHxgYGBgYGAAAHCXEAAAAAAAAAP8AAAAAAAAAAAAlxQAAGBgYGBj/GBgYGBgYAAA8JcYAABgY
GBgfGBgfGBgYGAAAXiXHAABmZmZmZmdmZmZmZmYAAF8lyAAAZmZmZmdgYH8AAAAAAABaJckAAAAA
AAB/YGBnZmZmZgAAVCXKAABmZmZm5wAA/wAAAAAAAGklywAAAAAAAP8AAOdmZmZmAABmJcwAAGZm
ZmZnYGBnZmZmZgAAYCXNAAAAAAAA/wAA/wAAAAAAAFAlzgAAZmZmZucAAOdmZmZmAABsJc8AABgY
GBj/AAD/AAAAAAAAZyXQAABmZmZmZv8AAAAAAAAAAGgl0QAAAAAAAP8AAP8YGBgYAABkJdIAAAAA
AAAA/2ZmZmZmZgAAZSXTAABmZmZmZn8AAAAAAAAAAFkl1AAAGBgYGB8YGB8AAAAAAABYJdUAAAAA
AAAfGBgfGBgYGAAAUiXWAAAAAAAAAH9mZmZmZmYAAFMl1wAAZmZmZmbnZmZmZmZmAABrJdgAABgY
GBj/AAD/GBgYGAAAaiXZAAAYGBgYGPgAAAAAAAAAABgl2gAAAAAAAAAfGBgYGBgYAAAMJdsAAP//
/////////////wAAiCXcAAAAAAAAAAD///////8AAIQl3QAA8PDw8PDw8PDw8PDwAACMJd4AAA8P
Dw8PDw8PDw8PDwAAkCXfAAD///////8AAAAAAAAAAIAl4AAAAAAAAPjMzMzM+MDAAABABOEAAAAA
AAB4zMDAzHgAAAAAQQTiAAAAAAAA/DAwMDAwAAAAAEIE4wAAAAAAAGZmZmY+BmY8AABDBOQAAAAA
ABB81tbWfBAQAAAARATlAAAAAAAAxmw4OGzGAAAAAEUE5gAAAAAAAMzMzMzM/gYAAABGBOcAAAAA
AADMzMx8DAwAAAAARwToAAAAAAAA1tbW1tb+AAAAAEgE6QAAAAAAANbW1tbW/wMAAABJBOoAAAAA
AADg4HxmZnwAAAAASgTrAAAAAAAAxsb23t72AAAAAEsE7AAAAAAAAMDA+MzM+AAAAABMBO0AAAAA
AAB4zDwMzHgAAAAATQTuAAAAAAAA3Pb29vbcAAAAAE4E7wAAAAAAAHzMzHxszAAAAABPBPAAAGz+
YmBkfGRgYv4AAAAAAQTxAAAASEgAeMz8wMx4AAAAAFEE8gAAADxmxsDwwMZmPAAAAAAEBPMAAAAA
AAB4zPDAzHgAAAAAVAT0AADMzDAwMDAwMDB4AAAAAAcE9QAAAGZmABgYGBgYPAAAAABXBPYAAGYY
ZmZmZj4GZjwAAAAADgT3AAAAAGYYZmZmZjwMGPAAAF4E+AAAADxmZmY8AAAAAAAAAACwAPkAAAAA
AAAcHAAAAAAAAAAAGSL6AAAAAAAAABgAAAAAAAAAALcA+wAAAAQEBAREZDQcDAAAAAAaIvwAAADM
z8/v/N/MzMwAAAAAFiH9AAAAAGY8JDxmAAAAAAAAAKQA/gAAAAA8PDw8PDw8PAAAAACgJf8AAAAA
AAAAAAAAAAAAAAAAoAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA=

--babb14bd9c45ba3a65091c9746acd43b0--

Цитата(Pakshin A. S. @ 22.2.2006, 18:45

)

раскодировать

Код

procedure ReseiveMail(Host: string; Port: integer; User, Password: string);
var
  pop: TIdPOP3;
  m:   TIdMessage;
  mc,i: integer;
begin
  pop:=TIdPOP3.Create(nil);
  pop.Host:=Host; pop.Port:=Port;
  pop.Username:=User; pop.Password:=Password;
  try
    pop.Connect(60000);
    mc:=pop.CheckMessages;
    while mc>0 do begin
      m:=TIdMessage.Create(pop);
      pop.Retrieve(mc,m);
      Form1.Memo1.Lines.Add('======== Mail ' + IntToStr(mc));
      Form1.Memo1.Lines.Add('-- From: ' + m.From.Text);
      for i:=0 to m.MessageParts.Count-1 do
        with m.MessageParts do
        begin
          if items[i].ClassType=TIdAttachment then
            with TIdAttachment(items[i]) do
              try
                Form1.Memo1.Lines.Add('-- Attach: '+FileName);
                if FileExists(FileName) then DeleteFile(FileName);
                SaveToFile(FileName);
              except
                ShowMessage('Не удается сохранить файл');
              end;
          if items[i].ClassType = TIdText then
            with TIdText(items[i]) do
            begin
              Form1.Memo1.Lines.Add('-- Text: ');
              Form1.Memo1.Lines.AddStrings(Body); // << текст здесь в Body: TStringList
            end;
        end;
      m.Free; dec(mc);
    end;
    ShowMessage('Все в порядке');
  except
    ShowMessage('Не удалось подключиться к серверу');
  end;
  pop.Free;
end;

Цитата

======== Mail 2
-- From: XXXXX <[email protected]>
-- Text:
Собссна сабж
-- Attach: file.pas
======== Mail 1
-- From: System Administrator <[email protected]>
-- Text:
Your message

To: [email protected]
Subject: test
Sent: Wed, 22 Feb 2006 18:55:33 +0300

did not reach the following recipient(s):

[email protected] on Wed, 22 Feb 2006 18:55:36 +0300
The recipient name is not recognized

-- Text:
Message-ID: <op.s5ds6vadf895we@xxxxxxx>
From: xxxxxx <[email protected]>
To: [email protected]
Subject: test
Date: Wed, 22 Feb 2006 18:55:33 +0300
MIME-Version: 1.0
Content-Type: text/plain;
charset="koi8-r"

subj

--
Using Opera's revolutionary e-mail client: http://www.opera.com/mail/

Цитата(Pakshin A. S. @ 22.2.2006, 19:03

)

Два кода из DRKB выдают пустоту...

Цитата(Snowy @ 22.2.2006, 19:13

)

В Indy есть перекодировщики.

Цитата(Snowy @ 22.2.2006, 19:20

)

Давай. Мыло в профиле.

Код


procedure ReseiveMail(Host: string; Port: integer; User, Password: string);
var
  pop: TIdPOP3;
  m:   TIdMessage;
  mc,i: integer;
  dm:   TIdDecoderMIME;
begin
  Form1.Memo1.Clear;
  pop:=TIdPOP3.Create(nil);
  pop.Host:=Host; pop.Port:=Port;
  pop.Username:=User; pop.Password:=Password;
  try
    pop.Connect(60000);
    mc:=pop.CheckMessages;
    while mc>0 do begin
      m:=TIdMessage.Create(pop);
      pop.Retrieve(mc,m);
      m.SaveToFile('C:\'+IntToStr(mc)+'.msg');
      Form1.Memo1.Lines.Add('======== Mail ' + IntToStr(mc));
      Form1.Memo1.Lines.Add('-- From: ' + m.From.Text);
      if m.MessageParts.Count=0 then begin
        if pos('base64', m.ContentTransferEncoding)>0 then
        begin
          dm := TIdDecoderMIME.Create(pop);
          m.Body.Text := dm.DecodeString(m.Body.Text);
          dm.Free;
        end;
        Form1.Memo1.Lines.AddStrings(m.Body);
      end else
      for i:=0 to m.MessageParts.Count-1 do
        with m.MessageParts do
        begin
          if items[i].ClassType=TIdAttachment then
            with TIdAttachment(items[i]) do
              try
                Form1.Memo1.Lines.Add('-- Attach: '+FileName);
                if FileExists(FileName) then DeleteFile(FileName);
                SaveToFile(FileName);
              except
                ShowMessage('Не удается сохранить файл');
              end;
          if items[i].ClassType = TIdText then
            with TIdText(items[i]) do
            begin
              Form1.Memo1.Lines.Add('-- Text: ');
              Form1.Memo1.Lines.AddStrings(Body);
            end;
        end;
      m.Free; dec(mc);
    end;
    ShowMessage('Все в порядке');
  except
    ShowMessage('Не удалось подключиться к серверу');
  end;
  pop.Free;
end;

Цитата(Snowy @ 22.2.2006, 20:02

)

Не получил.

Цитата

Return-path: <>
Envelope-to:
Delivery-date: Wed, 22 Feb 2006 21:31:35 +0500
Received: from nobody by server.uzdesign.com with local (Exim 4.52)
id 1FBwtL-0006kd-JX
for ; Wed, 22 Feb 2006 21:31:12 +0500
To:
Subject: Testing...
From: [email protected]
Errors-To: [EMAIL=][/EMAIL]
Content-type: text/plain; charset=windows-1251
MIME-Version: 1.0
Content-Type: multipart/mixed; boundary = bc78d03e383c4c12234d4df1a94f11f7d
Message-Id: <>
Date: Wed, 22 Feb 2006 21:31:03 +0500
This is a MIME encoded message.

--bc78d03e383c4c12234d4df1a94f11f7d
Content-Type: text/plain
Content-Transfer-Encoding: base64

...

--bc78d03e383c4c12234d4df1a94f11f7d
Content-Type: file;
name = "Bootfont.bin"
Content-Transfer-Encoding: base64

...

Цитата

Return-path: <>
Envelope-to:
Delivery-date: Wed, 22 Feb 2006 23:51:30 +0500
Received: from ([] helo=user)
by server.uzdesign.com with smtp (Exim 4.52)
id 1FBz59-0007ai-CY; Wed, 22 Feb 2006 23:51:28 +0500
Message-ID: <001e01c637e0$f91f7c30$d4c05358@user>
From: "Pakshin A. S." <>
To: <>,
<>
Subject: Testing...
Date: Wed, 22 Feb 2006 21:49:37 +0300
MIME-Version: 1.0
Content-Type: multipart/mixed;
boundary="----=_NextPart_000_0013_01C637F9.E0151420"
X-Priority: 3
X-MSMail-Priority: Normal
X-Mailer: Microsoft Outlook Express 6.00.2900.2180
X-MimeOLE: Produced By Microsoft MimeOLE V6.00.2900.2180

This is a multi-part message in MIME format.

------=_NextPart_000_0013_01C637F9.E0151420
Content-Type: text/plain;
format=flowed;
charset="koi8-r";
reply-type=original
Content-Transfer-Encoding: 7bit

...

------=_NextPart_000_0013_01C637F9.E0151420
Content-Type: application/octet-stream;
name="Bootfont.bin"
Content-Transfer-Encoding: base64
Content-Disposition: attachment;
filename="Bootfont.bin"
...

Цитата(Snowy @ 22.2.2006, 23:00

)

пришли мне

Цитата(Pakshin A. S. @ 22.2.2006, 21:45

)

Content-Type: multipart/mixed; boundary = bc78d03e383c4c12234d4df1a94f11f7d

Код


procedure ProcessMessage(m: TIdMessage);
var
  sl: TStringList;
  i:  integer;
  pp: string;

  function Decode64(s: string): string;
  var dm: TIdDecoderMIME;
  begin
    result := s;
    dm := TIdDecoderMIME.Create(nil);
    try
      result := dm.DecodeString(s);
    finally
      dm.Free;
    end;
  end;

  procedure FixMsg;
  var
    i, b: integer;
    s:    string;
    ms:   TMemoryStream;
  begin
    s := m.ContentType;
    b := pos('boundary', LowerCase(s));
    if b = 0 then Exit;
    for i := Length(s) downto b do
      if s[i] = ' ' then delete(s, i, 1);
    if s = m.ContentType then Exit;
    m.ContentType := s;
    ms := TMemoryStream.Create;
    m.SaveToStream(ms);
    ms.Position := 0;
    m.LoadFromStream(ms);
    ms.Free;
  end;

  procedure ProcessAttach(att: TIdAttachment);
  var
    Path: string;
  begin
    Path := pp + 'Attach';
    ForceDirectories(Path);
    Path := Path + '\' + att.FileName;
    try
      if FileExists(Path) then DeleteFile(Path);
      att.SaveToFile(Path);
      sl.Add('Attach: ' + att.FileName);
    except
      ShowMessage('Не удается сохранить файл');
    end;
  end;

begin
  sl := TStringList.Create;
  pp := ExtractFilePath(ParamStr(0));
  FixMsg;
  if m.MessageParts.Count = 0 then
  begin
    if pos('base64', m.ContentTransferEncoding)>0 then
      m.Body.Text := Decode64(m.Body.Text);
    sl.AddStrings(m.Body);
  end else
    for i:=0 to m.MessageParts.Count-1 do
    with m.MessageParts do
    begin
      if items[i].ClassType=TIdAttachment then
        ProcessAttach(TIdAttachment(items[i]));
      if items[i].ClassType = TIdText then
        with TIdText(items[i]) do
          sl.AddStrings(Body);
  end;
  try
    pp := pp + 'Messages';
    ForceDirectories(pp);
    for i := 1 to 9 do
    m.MsgId := StringReplace(m.MsgId, copy('<>:/\+*?"', i, 1),
                               '', [rfReplaceAll]);
    if sl.Count > 0 then sl.SaveToFile(pp + '\' + m.MsgId + '.msg');
  finally
    sl.Free;
  end;
end;

procedure ReseiveMail(Host: string; Port: integer; User, Password: string);
var
  pop: TIdPOP3;
  m:   TIdMessage;
  mc:  integer;
begin
  pop:=TIdPOP3.Create(nil);
  pop.Host:=Host; pop.Port:=Port;
  pop.Username:=User; pop.Password:=Password;
  try
    pop.Connect(60000);
    mc:=pop.CheckMessages;
  except
    mc := 0;
    ShowMessage('Не удалось подключиться к серверу');
  end;
  while mc>0 do
  begin
    m:=TIdMessage.Create(pop);
    try
      pop.Retrieve(mc,m);
      ProcessMessage(m);
    finally
      m.Free; dec(mc);
    end;
  end;
  pop.Free;
end;

Цитата(Pakshin A. S. @ 20.2.2006, 23:20)

Итак, на почтовый ящик в инете поступило n штук писем с вложенными файлами.

Вот эти письма я должен получить поочередно из программы; получить текст письма, сохранить на жестком диске вложенный файл под определенным именем, получить адрес отправителя и время получения письма на сервер. Как это реализуется? Киньте ссылки на исходники таких функций (получение нужной информации, описанной выше)...

Заранее огромное Спасибо! smile