Re: [twsocket] TSmtpCli. Please help..
Tayfun Susamcioglu wrote: > so I want to do same thing with TSmtpCli. > When I send a file with E-Mail, I want to show progress. Because It > take a long time. about 2-3 minutes. How can I do this? In ICS it's not so easy because the mail including attachments is possibly encoded and the encoding is done on the fly. Other mail components pre-encode the mail data and so are much slower than ICS. With the standard ICS mail component you don't know the size of a mail before it was sent completely. However you can try to calculate/estimate the grow of the base64 encoding which is approximately 33%, headers are not encoded. You also could pre-encode the mail and then send it. --- Arno Garrels [TeamICS] http://www.overbyte.be/eng/overbyte/teamics.html -- To unsubscribe or change your settings for TWSocket mailing list please goto http://www.elists.org/mailman/listinfo/twsocket Visit our website at http://www.overbyte.be
[twsocket] TSmtpCli. Please help..
Hello, I wrote a procedure for downloading a file with THttpCli. I can learn it's position on progress. procedure TMainForm.xHttpCliDocData(Sender: TObject; Buffer: Pointer; Len: Integer); var xCount : Integer; begin inherited; xCount := 0; if THttpCli(Sender).ContentRangeBegin <> '' then xCount := StrToInt(THttpCli(Sender).ContentRangeBegin); progressBar.Position := xCount + THttpCli(Sender).RcvdCount; LabelDown.Caption := ByteToKB(xCount + THttpCli(Sender).RcvdCount); end; so I want to do same thing with TSmtpCli. When I send a file with E-Mail, I want to show progress. Because It take a long time. about 2-3 minutes. How can I do this? PS. I'm using 30.May.2005 versiyon of ICS. I downloaded new version, but I don't install yet. - Do you Yahoo!? Get on board. You're invited to try the new Yahoo! Mail Beta. -- To unsubscribe or change your settings for TWSocket mailing list please goto http://www.elists.org/mailman/listinfo/twsocket Visit our website at http://www.overbyte.be