Модераторы: Snowy, Poseidon, MetalFan

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Получение почты 
V
    Опции темы
Pakshin A. S.
  Дата 20.2.2006, 23:20 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Участник Клуба
Сообщений: 5056
Регистрация: 16.2.2003

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

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

Заранее огромное Спасибо! smile
PM   Вверх
Snowy
Дата 20.2.2006, 23:29 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 53
Всего: 484
http://forum.vingrad.ru/index.php?act=Sear...p;#038;skipped=
Добавлено @ 23:31
Вот прямой линк на код:
http://forum.vingrad.ru/index.php?showtopi...st&p=342291
PM MAIL   Вверх
Pakshin A. S.
Дата 20.2.2006, 23:41 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Участник Клуба
Сообщений: 5056
Регистрация: 16.2.2003

Репутация: нет
Всего: 61
Спасибо, буду разбираться, хотя с первого взгляда все очень просто... smile
PM   Вверх
Pakshin A. S.
Дата 21.2.2006, 22:32 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Участник Клуба
Сообщений: 5056
Регистрация: 16.2.2003

Репутация: нет
Всего: 61
Я все-таки что-то не понял... Все прекрасно работает, кроме получения самого текста письма... smile Как это делать?

P. S.
Использую код Snowy из http://forum.vingrad.ru/index.php?showtopi...st&p=342291
PM   Вверх
Snowy
Дата 21.2.2006, 23:20 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 53
Всего: 484
Вот. Чуть добавил:
Код

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;
PM MAIL   Вверх
Pakshin A. S.
Дата 21.2.2006, 23:38 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Участник Клуба
Сообщений: 5056
Регистрация: 16.2.2003

Репутация: нет
Всего: 61
Так... чет не пашеть...

m.MessageParts.Count у меня тождественный 0 всегда, хотя письма почтовики берут...
PM   Вверх
Snowy
Дата 22.2.2006, 00:00 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 53
Всего: 484
Ты ж только что писал, что все работает.
При Count=0 вообще ничего не будет работать.
Я не проверял - лень сервер поднимать для теста.
Нужно оттрейсить и посмотреть, куда идет и что идет.
Еще полный текст можно получить m.Body - string.
Но там будет полный текст, включая файлы.
Кроме того. HTML текст не считается текстом - это приаттаченный html файл.
Текстом считается только plain-text.
Так что проблема может быть и в этом.
PM MAIL   Вверх
Pakshin A. S.
Дата 22.2.2006, 18:45 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Участник Клуба
Сообщений: 5056
Регистрация: 16.2.2003

Репутация: нет
Всего: 61
РАботало с самодельными письмами, отправленными самому себе... ьеперь письма отправлются через формочку в интернете. Outlook Express, к примеру, все прекрасно читает, а вот прога не видит ни приаттаченного файла, ни самого текста письма, хотя в m.Body есть полная информация, как я понимаю и по файлу и по самому письму:

Цитата

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--


Может стоит извлечь отдельно все эти большие закодированные части, раскодировать их, а потом попробовать вывести само письмо и попробовать каким-то образом сохранить приаттаченный файл.... Или все-таки есть выход более культурный?
PM   Вверх
Pakshin A. S.
Дата 22.2.2006, 19:03 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Участник Клуба
Сообщений: 5056
Регистрация: 16.2.2003

Репутация: нет
Всего: 61
Цитата(Pakshin A. S. @ 22.2.2006, 18:45 Найти цитируемый пост)
раскодировать

Фокус не удался... Два кода из DRKB выдают пустоту... smile
PM   Вверх
Snowy
Дата 22.2.2006, 19:13 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 53
Всего: 484
Вот этот код с полным протоколированием:
Код
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/
Первое письмо отправлено с Web формы, второе - ответ от сервера, про неверный адрес в письме, отправленном с оперы.
Все корректно показывает. Файл корректно сохраняет.
Добавлено @ 19:17
Цитата(Pakshin A. S. @ 22.2.2006, 19:03 Найти цитируемый пост)
Два кода из DRKB выдают пустоту...
В Indy есть перекодировщики.
PM MAIL   Вверх
Pakshin A. S.
Дата 22.2.2006, 19:17 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Участник Клуба
Сообщений: 5056
Регистрация: 16.2.2003

Репутация: нет
Всего: 61
smile Не работат... Не входит в цикл for...

Может я тебе перешлю письмо, которое является образцом?
PM   Вверх
Snowy
Дата 22.2.2006, 19:20 (ссылка) | (голосов:1) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 53
Всего: 484
Давай. Мыло в профиле.
PM MAIL   Вверх
Pakshin A. S.
Дата 22.2.2006, 19:21 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Участник Клуба
Сообщений: 5056
Регистрация: 16.2.2003

Репутация: нет
Всего: 61
Цитата(Snowy @ 22.2.2006, 19:13 Найти цитируемый пост)
В Indy есть перекодировщики.

А как называются?
PM   Вверх
Snowy
Дата 22.2.2006, 19:26 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 53
Всего: 484
На закладк IndyMisc
TIdDecoderMIME
PM MAIL   Вверх
Pakshin A. S.
Дата 22.2.2006, 19:34 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Участник Клуба
Сообщений: 5056
Регистрация: 16.2.2003

Репутация: нет
Всего: 61
Цитата(Snowy @ 22.2.2006, 19:20 Найти цитируемый пост)
Давай. Мыло в профиле.


Отправлено....

С декодированием разобрался...
PM   Вверх
Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Сети"
Snowy
Poseidon
MetalFan

Запрещено:

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делится вскрытыми компонентами

  • Литературу по Дельфи обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи

Если Вам помогли и атмосфера форума Вам понравилась, то заходите к нам чаще! С уважением, Snowy, Poseidon, MetalFan.
 
1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: Сети | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.1292 ]   [ Использовано запросов: 21 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.