Board index » delphi » Error loading from stream

2008-07-09 03:38:00 PM
delphi256
Hi,
I am using this code to load a message (formerly saved by using Indy9 btw)
into an idMessage component:
idMessage.clear;
ms := TEDBBlobStream.Create(dm.MessagesTableMessage, bmread);
try
ms.position := 0;
idMessage.LoadFromStream(ms,false);
ShowMessage(idMessage.Body.Text); <---------------- Error or empty
finally
ms.Free;
end;
When executing the code I get an empty result in most cases, in some cases
this error is raised: "Max line length exceeded."
Saving the same message to file as .eml from the database and loading it
into idMessage always works fine.
What could be wrong here? (Delphi2007 last Indy snapshot)
Here you find an eml-file that produces the error when loaded from
stream: www.beckersoft.de/temp/sample.eml
Thanks. Uli
 

"Uli Becker" <XXXX@XXXXX.COM>writes
ms :=
dm.MessagesTableMessage.DataSet.CreateBlobStream(dm.MessagesTableMessage,
bmRead);
stored in the TIdMessage.MessageParts collection instead.
characters. TIdTCPConnection in Indy 9, and TIdIOHandler in Indy 10, have a
MaxLineLength that you can set to increase that value if needed.
logic is invoked either way.
Gambit
 

Remy,
thanks for your help.
<<
You should use the CreateBlobStream() method instead:
length exceeded) is the same.
I tried to debug it and found the reason for the error here:
function TIdIOHandler.ReadLnRFC(var VMsgEnd: Boolean; const ALineTerminator:
string;
const ADelim: String = '.'; const AEncoding: TIdEncoding = en7Bit):
string;
begin
Result := ReadLn(ALineTerminator, AEncoding);
<------------------------------------------ Error
// Do not use ATerminator since always ends with . (standard)
if Result = ADelim then
begin
VMsgEnd := True;
Exit;
end;
if TextStartsWith(Result, '.') then begin {do not localize}
Delete(Result, 1, 1);
end;
VMsgEnd := False;
end;
<<
What does the actual blob data look like? Most likely, the data is being
stored in the TIdMessage.MessageParts collection instead.
I found out that the error only occurs if there is a file-attachment in the
message.
<<
By default, the maximum length that individual lines of text can be is 16384
characters. TIdTCPConnection in Indy 9, and TIdIOHandler in Indy 10, have a
MaxLineLength that you can set to increase that value if needed.
<<
stream: www.beckersoft.de/temp/sample.eml
That is not a valid .eml file
problems to open it.
Regards Uli
 

"Uli Becker" <XXXX@XXXXX.COM>writes
data.
You did not show the actual .eml data like I asked for. It is very
important to see all of the message headers and such.
Gambit
 

Remy,
file.
Here a new try:
www.beckersoft.de/temp/test.zip
Regards Uli
 

"Uli Becker" <XXXX@XXXXX.COM>writes
I see nothing in that message that can cause a "Max line length exceeded"
exception to be raised. Are you sure the DB blob is not stripping out CRLF
characters, by chance?
Gambit
 

Remy,
ElevateDB):
procedure TForm1.Button6Click(Sender: TObject);
var
MyStream: TStream;
begin
memoRawMessage.lines.text := dm.MessagesTableMessage.value;
MyStream :=
dm.MessagesTable.CreateBlobStream(dm.MessagesTableMessage,bmread);
try
MyStream.position := 0;
try
idMessage.LoadFromStream(MyStream);
ShowMessage(idMessage.headers.text);
except
ShowMessage('Error');
end;
finally
MyStream.free;
end;
end;
Regards Uli
 

"Uli Becker" <XXXX@XXXXX.COM>writes
Gambit
 

Regards Uli
 

"Uli Becker" <XXXX@XXXXX.COM>writes
Loading it into a ListBox loses that information.
Gambit
 

method. Since I am not familiar with streams I don't know how to do that.
Uli
 

"Uli Becker" <XXXX@XXXXX.COM>writes
its CopyFrom() method, ie:
procedure TForm1.Button6Click(Sender: TObject);
var
BStream, FStream: TStream;
begin
BStream :=
dm.MessagesTable.CreateBlobStream(dm.MessagesTableMessage, bmRead);
try
FStream := TFileStream.Create('c:\blob.data', fmCreate);
try
FStream.CopyFrom(BStream, 0);
finally
FStream.Free;
end;
finally
BStream.Free;
end;
end;
Gambit
 

Here the saved blob-stream:
www.beckersoft.de/temp/blob.zip
Would you please have a look on it?
Thanks and regards Uli
 

Remy,
could you already have a look on the saved stream?
Thank you.
Uli
"Uli Becker" <XXXX@XXXXX.COM>schrieb im Newsbeitrag

"Uli Becker" <XXXX@XXXXX.COM>writes
CRLF, as required by not only Indy but also the RFC standards for email
messages in general. That is why you are getting the "Max line length
exceeded" error. You need to fix your data.
Gambit