I run the form OnCreate event
SyncPOP3Cli.Host: = host;
SyncPOP3Cli.Port: = port;
SyncPOP3Cli.UserName: = username;
SyncPOP3Cli.Password: = password;
try
methodname: = 'OpenSync';
SyncPOP3Cli.OpenSync;
methodname: = 'StatSync';
SyncPOP3Cli.MsgNum: = 0;
SyncPOP3Cli.StatSync;
methodname: = 'ListSync';
SyncPOP3Cli.MsgNum: = 0;
SyncPOP3Cli.ListSync;
methodname: = 'UidlSync';
SyncPOP3Cli.MsgNum: = 0;
SyncPOP3Cli.UidlSync;
Msgnum: = 1;
IWEditMsgNum.Text: = '1 ';
SyncPOP3Cli.MsgCount if> 0 then
LeggiEMail;
except
on E: Exception do
WebApplication.ShowMessage ('Error method:' + methodname);
end;
with
TDettaglioEMailForm.LeggiEMail procedures;
begin
try
methodname: = 'RetrSync';
SyncPOP3Cli.MsgNum: = StrToInt (IWEditMsgNum.Text);
SyncPOP3Cli.RetrSync;
except
on E: Exception do
WebApplication.ShowMessage ('Error method:' + methodname);
end;
end;
reminder that many times and where IWEditMsgNum.Text is increased /
decreased with the values of an array that contains all msgnum.
I can only read the first message. Why?
--
To unsubscribe or change your settings for TWSocket mailing list
please goto http://lists.elists.org/cgi-bin/mailman/listinfo/twsocket
Visit our website at http://www.overbyte.be
