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
