VPF::Программа для отправки sms - Форум программистов

MaXL

Дата 12.7.2007, 00:40 (ссылка)

(нет голосов)

Загрузка ...

Developer

Профиль
Группа: Участник
Сообщений: 380
Регистрация: 24.10.2005
Где: Владивосток

Репутация: нет
Всего: 2

По поводу Connected я не понял ты сам её объявил, ничто ей не присваивал и ещё что-то от неё хочешь?
Может ты имел ввиду по поводу свойства компонента idSMTP???
Переменная idSMTP.Connected означает подключен ли idSMTP к серверу. Хотя ты ведь вроде бы подключаешься, странно что так происходит =(
Проверь установлен ли порт в 25.

--------------------

MaXL

InseR

Дата 12.7.2007, 04:10 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 57
Регистрация: 9.7.2007

Репутация: нет
Всего: нет

В том то и дело,что без строчки
if Connected=true then
прога не работает...
И даже если эта строчка есть,все равно выдает ошибку,для того чтобы ее избежать,надо в разделе var
обьявить логическую переменную Connected:boolean;,тогда все работает нормально....
Возник вопросик по отправк SMS....Я так понимаю,что в свойстве host компонента idSMTP1 нужно указывать не хост мыла,а хост оператор,или я не прав?

Это сообщение отредактировал(а) InseR - 12.7.2007, 04:11

MaXL

Дата 12.7.2007, 11:20 (ссылка)

(нет голосов)

Загрузка ...

Developer

Профиль
Группа: Участник
Сообщений: 380
Регистрация: 24.10.2005
Где: Владивосток

Репутация: нет
Всего: 2

Я не могу понять что ты там делаешь с переменной Connected. Её значение чему равно, до условного перехода? Приведи полный код процедуры отправки сообщения.

Цитата(InseR @ 12.7.2007, 04:10

)

Я так понимаю,что в свойстве host компонента idSMTP1 нужно указывать не хост мыла,а хост оператор,или я не прав?

нет там нужно указать хост SMTP сервера, с помощью которого ты будешь отправлять мыло.

--------------------

MaXL

InseR

Дата 12.7.2007, 14:20 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 57
Регистрация: 9.7.2007

Репутация: нет
Всего: нет

Вообщем удалось раздобыть книжку и я по лучше разобрался в этом вопросе,но когда я все сделал,возникла ошибка...
Что я делаю неправильно?

Цитата

procedure TForm1.Button1Click(Sender: TObject);
var
num:string;
begin
msg.Clear;
smtp.Host:='smtp.mail.ru';
smtp.Port:=25;
smtp.Username:=Edit1.Text;
smtp.Password:=Edit2.Text;
case ComboBox1.ItemIndex of
0:num:='9098'+Edit3.Text+'@sms.beeline.ru';
end;
Msg.Recipients.EMailAddresses:=num;
Msg.Body.Text:=Memo1.Lines.Text;
smtp.Connect(5000);
if smtp.Connected=true then
smtp.Send(msg);
smtp.Disconnect;
ShowMessage('Письмо отправленно');

end;

end.

MaXL

Дата 12.7.2007, 16:07 (ссылка)

(нет голосов)

Загрузка ...

Developer

Профиль
Группа: Участник
Сообщений: 380
Регистрация: 24.10.2005
Где: Владивосток

Репутация: нет
Всего: 2

InseR, вообще то уже всё вроде бы должно работать. Прийду домой проверю.
По поводу твоего кода:

Код


if smtp.Connected=true then
smtp.Send(msg);
smtp.Disconnect;
ShowMessage('Письмо отправленно');

правильнее будет делать вот так:

Код


if smtp.Connected=true then
  begin
    smtp.Send(msg);
    smtp.Disconnect;
    ShowMessage('Письмо отправленно');
  end;

---------------------------------Добавил-----------------------------------------
Вот наваял простую программку для отправки писем через idSMTP:

Код


procedure TForm1.SendButtonClick(Sender: TObject);
begin
  idSMTP.Host:= ServerEdit.Text;  //SMTP сервер
  idSMTP.Port:= StrToInt(PortEdit.Text);  //Порт
  idSMTP.Username:= UserEdit.Text; //Имя пользователя
  idSMTP.Password:= PassEdit.Text; //Пароль
  //Message
  idMessage.Clear;
  idMessage.Body:= MsgEdit.Lines; //Сообщение
  idMessage.Subject:= SubjEdit.Text;  //Тема письма
  idMessage.Recipients.EMailAddresses:= MailToEdit.Text; // Емайл получателя
  idMessage.From.Text:= FromEdit.Text; //От кого
  idMessage.Sender.Text:= FromEdit.Text; //От кого
  idSMTP.Connect();
  if idSMTP.Connected then
    begin
      idSMTP.Send(idMessage);
      idSMTP.Disconnect;
      MessageBoxEx(Handle, 'Mail send succesful', 'OK', MB_OK, 0);
    end
  else
    MessageBoxEx(Handle, 'Couldn''t connect to SMTP server', 'Error', MB_ICONERROR, 0);
end;

А вот теперь смотри и сверяй со своим кодом. И ещё у компонента idSMTP желательно заполнить свойства MailAgent(название твоей программы), HeloName(эта параметр, который будет посылаться серверу, в первой команде разговора клиента с серверов, можешь что угодно написать, например твой ник).
P.S. когда цитируешь какой либо код, а этом форуме существует замечательная функция подсветки синтаксиса многих языков, в том числе и Делфи. Поэтому используй её, тогда твой код будет легче изучать.

Это сообщение отредактировал(а) MaXL - 12.7.2007, 17:25

--------------------

MaXL

Dimon_obolon

Дата 18.7.2007, 21:53 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 10
Регистрация: 15.6.2007

Репутация: нет
Всего: нет

Ребята а как уловить Исключение при отсутствии коннекта с сервером у меня это дело проскауивает в сташном виде Юзеру.

Код



try {
       IdPOP31->Connect(10000);
       }
        catch (Exception &exception) {

             status = "Ошибка соеденения с сервером";
             //IdPOP31->Disconnect();
             return false;
        }


          if (IdPOP31->Connected()==true) {
              status = "connected true";
              this->mail_count = IdPOP31->CheckMessages();
              return true;

            }
            else {
               status = "Отсутсвует соеденение с сервером";
               return false;

            }

Опытные плиз Хелп smile

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Сети \| Следующая тема »