#22 Have TIpMessage.SaveToFile yield time to other processes

[Anonymous]

Exported from Bugzilla, issue 4165.

--- Comment added on 12/10/02 10:22:07 AM ---
Dave Wood, 12/10/2002
Hi,

I have a server app that collects emails from various mailboxes,
the supporting database for this app is flashfiler,
the problem that i have is that lengthy routines/loops that
hog the system, cause timeout problems with flashfiler,
all my own routines yield to this situation and thus i have no problem,
the ipmailmessage savetofile routine encodes and copy from stream to
filestream
with a large email ie 3Mb upwards takes an age,
what i need is someway to have the app recieve periodic refresh
in my own routines i can use app.procemessages or postmessage.

how can i have refresh function during

{- Save raw message stream to file }
procedure TIpMessage.SaveToFile(const aFileName : string);
var
FS : TFileStream;
begin
EncodeMessage; // maybe busy in here
Position := 0;
FS := TFileStream.Create(aFileName, fmCreate);
try
FS.CopyFrom(MsgStream, MsgStream.Size); // busy here
finally
FS.Free;
end;
end;

i hope you get the jist of my problem

regards dave wood paracom system uk.