Вообщем такая проблема: При отправке письма пишет ошибку Socket Error # 10054. Искал решение проблемы на разных форумах и не чего не нашел. Хотелось бы узнать у вас. Версия среды 2010 и xe2
Code
procedure TForm1.Button1Click(Sender: TObject); begin IdSMTP1:=TIDSMTP.Create(nil);
IdSMTP1.Port:= 25; IdSMTP1.Host:= 'smtp.mail.ru'; IdSMTP1.Username:= '-----'; IdSMTP1.Password:= '-----'; IdMessage1:=TIDMessage.Create(nil); IdMessage1.Subject:= '-----'; IdMessage1.Body.Text:= '-----'; IdMessage1.From.Text:= '------'; IdMessage1.From.Name:= '------'; IdMessage1.Recipients.EMailAddresses:= '----'; IdSMTP1.Connect(); if IdSMTP1.Connected = True then begin IdSMTP1.Send(IdMessage1); IdSMTP1.Disconnect; end; end;