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