Lukas I'm having trouble tracking down a problem in a threaded part of my app. I've been commenting stuff out and it looks as though TMimeMess could be the problem.
aSource: TMimeMess; is defined as a local var to the function aSource := TMimeMess.Create; aSource.Clear; aSource.Lines.Text := FldStr; aSource.DecodeMessage; for Cntr := 0 to aSource.MessagePart.GetSubPartCount - 1 do begin with aSource.MessagePart.GetSubPart(Cntr) do begin if LowerCase(Disposition) = 'attachment' then begin fName := LowerCase(filename); if fName = '' then fExtn := '.txt' else fExtn := ExtractFileExt(fName); Delete(fExtn, 1, 1); if not IsUnsearchableFile(fExtn) then begin Decodepart; DecodedLines.Position := 0; ... ... is this liable to cause a problem? If so any recommendations as to how to solve it? Roy Lambert ------------------------------------------------------------------------------ The Planet: dedicated and managed hosting, cloud storage, colocation Stay online with enterprise data centers and the best network in the business Choose flexible plans and management services without long-term contracts Personal 24x7 support from experience hosting pros just a phone call away. http://p.sf.net/sfu/theplanet-com _______________________________________________ synalist-public mailing list synalist-public@lists.sourceforge.net https://lists.sourceforge.net/lists/listinfo/synalist-public
