Скачать: CL | DM;

TIdMessage гонит... сохранил, загрузил и снова сохранил данные по   Найти похожие ветки 

← →
Slym ©   (2004-03-03 04:51) [0]

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"

---

← →
Verg ©   (2004-03-03 19:15) [1]

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

---

← →
Slym ©   (2004-03-04 04:14) [2]

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

---

← →
AVGVI ©   (2004-03-04 22:42) [3]

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

---

← →
Slym ©   (2004-03-09 05:18) [4]

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

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

---

← →
Alex Konshin ©   (2004-03-09 05:40) [5]

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.024 c