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, все работает...

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

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

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

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