procedure TMailManager.Execute;
var
i : integer;
begin
while xWork do
begin
// Inc(xAcc);
Synchronize(procedure begin Inc(xAcc); end);
if xAcc<xURLlist.Count then FAccount_int:=xAcc else xWork:=false;
if not Suspended then
if xWork then
begin
try
FAccount:= xURLlist[FAccount_int];
Synchronize(procedure begin form1.ListView.Items[FAccount_int].SubItems[2] := 'In progress'; end);
if (not xExtractUrls(FAccount, URLToHTML(FAccount))) then xResult:=0 //парсит страницы URLtoHTML это idhttp.get только на чистом винсоке
else
begin
xResult:=1;
If FPagesCount > FPageLimit then
begin
xResult:=2;
FConnectionError := '8'
end else
begin
for i := 1 to FPagesCount do
begin
Synchronize(
procedure
begin
Form1.ScannedLabel.Caption:=IntToStr(StrToInt(Form1.ScannedLabel.Caption)+1);
form1.ListView.Items[FAccount_int].SubItems[0]:=IntToStr(StrToInt(Copy(form1.ListView.Items[FAccount_int].SubItems[0],1,Pos('/',form1.ListView.Items[FAccount_int].SubItems[0])-1))+1)+'/'+Copy(form1.ListView.Items[FAccount_int].SubItems[0],Pos('/',form1.ListView.Items[FAccount_int].SubItems[0])+1,Length(form1.ListView.Items[FAccount_int].SubItems[0]));
end);
// try
begin
FConnectionError := '5';
if pos('http://', FPages.Strings[i]) = 1 then
xExtractEmails(URLToHTML(FPages.Strings[i])) / майлы со страницы парсит
else
xExtractEmails(URLToHTML(FAccount+'/'+FPages.Strings[i])); // Это парсит майлы со страницы
end;
end;
