Соединение идет через прокси. На Connect возникает ошибка "Socket Error # 10060
Connection timed out". Подскажите что неправильно?
Код:
Код:
with IdIMAP41 do
begin
Host := 'elc***.ru';
UserName := 'm.mik*****';
Password := '*****';
Port := 443{};
IOHandler := SslSocket;
UseTLS := utUseImplicitTLS;
try
Connect;
SelectMailBox('INBOX');
i:= MailBox.TotalMsgs;
IdIMAP41.Retrieve(i, Msg); //забрали письмо
Msg.MessageParts.CountParts; //разобрали на запчасти
for J:= 0 to Msg.MessageParts.Count-1 do //на случай, если прицеплен не один файл
begin
if (Msg.MessageParts.Items[j] is TIdAttachment) then
begin
TIdAttachment(Msg.MessageParts.Items[j]).SaveToFile(TargetDir+'\'+TIdAttachment(Msg.MessageParts.Items[j]).FileName);
end;
end;
finally
Disconnect;
end;
end;