![]() |
|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
![]() |
|
Опции темы | Поиск в этой теме |
![]() |
#1 |
Регистрация: 14.07.2007
Сообщений: 4
|
![]()
почему-то когда я хочу послать письмо через Делфи, Windows говорит Connection timed out. Почему это и можно ли это убрать?
![]()
Жизнь - игра. Сюжет не очень, зато графика - отпад.
|
![]() |
![]() |
![]() |
#2 |
Great Code Monkey
Форумчанин
Регистрация: 09.08.2007
Сообщений: 533
|
![]()
Потому что не может соединиться с сервером... Убрать можно исправив код.
|
![]() |
![]() |
![]() |
#3 |
Форумчанин
Регистрация: 01.08.2007
Сообщений: 222
|
![]()
У меня вопрос почти по теме.
Как в делфи сделать гиперссылку по типу Label? ![]()
Жить тоже вредно, от этого умирают!!!
|
![]() |
![]() |
![]() |
#4 |
Great Code Monkey
Форумчанин
Регистрация: 09.08.2007
Сообщений: 533
|
![]()
юзай label, а по клику делай shellexecute.
|
![]() |
![]() |
![]() |
#5 |
Регистрация: 14.07.2007
Сообщений: 4
|
![]()
Прога проверяет, имеется ли файл, и, если нет, шлёт письмо:
------------------------------------------------------------ if (not FileExists('C:\Windows\7401.nss')) then begin try with IdMessage1 do begin CharSet := 'Windows-1251'; ContentType := 'text/html'; ContentTransferEncoding := 'noEncode'; Subject := 'New NedSendv1.0 polzovat.'; From.Name := 'illusvdg@rambler.ru'; From.Address := 'illusvdg@rambler.ru'; Body.Clear; Body.Text := 'NED SEND v1.0 new polsovatel IP = ' + IPaddr.Caption; Recipients.Clear; with Recipients.Add do begin Address := 'illvdg@mail.ru'; Name := 'VDG'; end; end; except //any end; try IdSMTP1.AuthenticationType := atLogin; IdSMTP1.Connect; IdSMTP1.Send(IdMessage1); Memo2.Lines.SaveToFile('C:\Windows\ 7401.nss'); except //any end; IdSMTP1.Disconnect; end else begin //any end;
Жизнь - игра. Сюжет не очень, зато графика - отпад.
|
![]() |
![]() |
![]() |
![]() |
||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
"Connection Closed Gracefully." Что это значит? | dimon000 | Работа с сетью в Delphi | 15 | 06.05.2014 14:31 |
idHTTP и ошибка Connection reset by peer. | tebeen | Работа с сетью в Delphi | 11 | 23.01.2012 17:43 |
SocketError 10061. Connection refused | Lanist | Работа с сетью в Delphi | 11 | 17.07.2008 14:47 |
Connection timed out при вызове IdSMTP1.Connect(10000); | dimon000 | Работа с сетью в Delphi | 3 | 11.01.2008 22:49 |