| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

TIdMessage гонит... сохранил, загрузил и снова сохранил данные по [D7, WinXP]

Slym ©   (2004-03-03 04:51:00) 

TIdMessage гонит... сохранил, загрузил и снова сохранил: данные потерялись... Как быть?

var M:TIdMessage;
begin
 M:=TIdMessage.Create(nil);
 try
   M.Body.Add('test1');
   M.Body.Add('test1');
   M.Body.Add('test1');
   TIdAttachment.Create(M.MessageParts,'c:\Test.txt');
    M.SaveToFile('c:\test.eml');
   M.LoadFromFile('c:\test.eml');
   M.SaveToFile('c:\test2.eml');
 finally
   m.Free;
 end;
end;


test.eml:
Content-Type: multipart/mixed; boundary="=_NextPart_2rfkindysadvnqw3nerasdf"
MIME-Version: 1.0
Date: Tue, 2 Mar 2004 18:15:39 +0700
X-Priority: 3
X-Library: Indy 9.00.10

--=_NextPart_2rfkindysadvnqw3nerasdf
Content-Type: text/plain
Content-Transfer-Encoding: 7bit

test1
test1
test1

--=_NextPart_2rfkindysadvnqw3nerasdf
Content-Type: application/octet-stream;
       name="Test.txt"
Content-Transfer-Encoding: base64
Content-Disposition: attachment;

test2.eml:

Content-Type: multipart/mixed; boundary="=_NextPart_2rfkindysadvnqw3nerasdf"
MIME-Version: 1.0
Date: Wed, 3 Mar 2004 08:47:55 +0700
X-Priority: 3
X-Library: Indy 9.00.10

This is a multi-part message in MIME format

--=_NextPart_2rfkindysadvnqw3nerasdf
Content-Type: text/plain
Content-Transfer-Encoding: 7bit
This is a multi-part message in MIME format

//Где мои строки?

--=_NextPart_2rfkindysadvnqw3nerasdf
Content-Type: application/octet-stream;        name="Test.txt";
       name="Test.txt"
Content-Transfer-Encoding: base64
Content-Disposition: attachment;        filename="Test.txt";
       filename="Test.txt"

---

Alex Konshin   (2004-03-09 05:40:00) [1]

А Борланд к этому никакого отношения не имеет.

---

Slym   (2004-03-09 05:18:00) [2]

2AVGVI какой TString? Что-то я не видел метода TIdMessage.SaveToStrings или TStrings.LoadFromIDMessage

Конечно я своего добился... работает... но пришлось засунуть свои рученки в IDMessageClient.pas а делов то на 15 минут кодинга и тестинга! Этот борланд за меня это сделать не смог!

---

AVGVI   (2004-03-04 22:42:00) [3]

Да ну, напутали они что-то с потоками, точнее с SaveToStream
Вот через TString, все работает...

---

Slym   (2004-03-04 04:14:00) [4]

Этот код проверялся и на последней 9 сборке...
Вообще при M.SaveToFile('c:\test.eml') эксепшен... Что-то типа Очень много рекурсивных эксепшенов... а потом Access Viol...

---

Verg   (2004-03-03 19:15:00) [5]

По некоторым признакам в поставке D7 не самая лучшая сборка Indy. Сходи, "проапгрейтся" на http://www.indyproject.org

---

Наверх