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

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Mail Agent помогите немогу разобраться 
:(
    Опции темы
Kr0LiK
Дата 1.3.2007, 16:29 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


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

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



Помогите немогу понять как это все организовать? smile 

если есть у кого какие нибуть исходники киньте пожалуйста!

собственно мучает вопрос как подключиться к серверу и отправлять\получать сообщения?
и каким компонентом это лутше зделать????

помогите пожалуйста буду очень признателен.
PM MAIL WWW ICQ   Вверх
bartram
Дата 1.3.2007, 16:51 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Комодератор
Сообщений: 1606
Регистрация: 22.2.2004
Где: Russia, Samara

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



Цитата(Kr0LiK @  1.3.2007,  16:29 Найти цитируемый пост)
Помогите немогу понять как это все организовать?

Что организовать?
Вот тут описание протокола smile Разбирайся smile



--------------------
В каждом из нас спит гений, но с каждым днем все крепче ;-)
bartram.ru
Twitter
user posted image 

PM MAIL ICQ   Вверх
Kr0LiK
Дата 1.3.2007, 16:56 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


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

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



да читал я этот протокол как отправить и принять пакет я просто несобо хорошо понимаю как это делаеться?
PM MAIL WWW ICQ   Вверх
Matematik
Дата 2.3.2007, 10:56 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Завсегдатай
Сообщений: 1027
Регистрация: 11.3.2006

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



Тут http://forum.vingrad.ru/topic-95962.html есть переведенный на delphi *.h файл.
Работать можно через Indy/ Почитай это http://forum.vingrad.ru/topic-85659.html
PM MAIL WWW ICQ   Вверх
Snowy
Дата 2.3.2007, 11:02 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


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

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



Цитата(Kr0LiK @  1.3.2007,  16:56 Найти цитируемый пост)
да читал я этот протокол как отправить и принять пакет я просто несобо хорошо понимаю как это делаеться
Таки чего ты хочешь?
Чтобы для тебя написали компонент для работы с майлагентом?
Тогда тебе на www.vingrad.ru - делай заказ, предлагай цену.
Серъёзная работа стоит хороших денег.
А нахаляву только хедеры и описание протокола smile
PM MAIL   Вверх
Kr0LiK
Дата 2.3.2007, 11:34 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


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

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



Сапасибо за информацию но я это все видел!

мне интересен следуйщие факты! работать с ИНДИ можно только с клиентом или же надо использовать и клиент и сервер!

И еще тупой вопрос какой командой отправлять пакет через сокет илиже еще как!
я с инди неработал!

Подскажите пожалуйста буду очень признателен! smile 
PM MAIL WWW ICQ   Вверх
Matematik
Дата 2.3.2007, 11:44 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Завсегдатай
Сообщений: 1027
Регистрация: 11.3.2006

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



У тебя уже есть сервер - mail.ru
Тебе надо писать клиент/

Цитата(Kr0LiK @  2.3.2007,  11:34 Найти цитируемый пост)
какой командой отправлять пакет через сокет

SendBuffer
PM MAIL WWW ICQ   Вверх
Kr0LiK
Дата 2.3.2007, 12:21 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


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

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



нет такого sendbuffer
 есть writebuffer или sendbuffersize
PM MAIL WWW ICQ   Вверх
yXo
Дата 17.3.2007, 14:26 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

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



Ну, т.к. я сегодня добрый выложу вам исходнички смс сендера на мэйл ру протоколе, скачал когда то давно с одного уже несуществующего сайтика. Можно взять за основу, есть конект к серверу и отправка смс. Не знаю сейчас может уже не робят, но для ознакомления и начала можно использовать. Исходники довольно сыроватые, все естественно на winsock, а не на каких то кривых инди, которые все тут рекламят. 
Сам когда то начинал с этих исходников, описания протокола и снифера ;)  Потом вкурив протокол создал с нуля уже нормальный компанентик )
Итак качаем тут

P.S. В исходниках сделана маленькая ошибка авторами, так сказать антиламер систем, рядовым юзером найдется за 2 минуты..

P.S.S И еще исходнички на питоне - http://svn.xmpp.ru/repos/mrim/src/
Там можно взять заголовочный файлик, ибо он больше чем на мэйл ру ;)
PM MAIL WWW ICQ   Вверх
Rodeon
Дата 21.11.2009, 00:24 (ссылка)    | (голосов:1) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 124
Регистрация: 28.8.2008
Где: Россия, Ухта

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



По ссылке выше качаем компонент, в нем файлы:
client.dcu
proto.dcu
pworks.dcu
base64.pas
client.pas
codes.pas
proto.pas
pworks.pas
Делал в Delphi 7, под 2009 чето не получилось установить этот компонент.
В делфях через меню Component\Install Component указываем путь к файлу client.pas, жмем ОК, в закладке Sample появился компонент MailClient - кидаем его на форму.
Также кидаем TCPClient - он нам нужен будет что бы узнавать адресс на который в последующем будет коннектиться клиент!
Кидаем кнопку и пару эдитов!
В первый edit вводим свой емайл вида "имя@домен.ру"
во второй edit вводим пароль к ящику!
Настраиваем пару свойств для TCPClient:
RemoteHost:=mrim.mail.ru;
RemotePort:=2042;
Настраиваем свойства для MailClient:
MRIMHost:=mrim.mail.ru;
MRIMPort:=2042;

для кнопки делаем свойства onclick
Код

procedure TForm.ButtonClick(Sender: TObject);
var
     i: Integer;
     MrimS: string;
begin
mailclient.Mail:=edit1.Text;
mailclient.PassWord:=edit2.Text;
     TCPClient.Active:=True;
       if TCPClient.Connected then
           MrimS:=TCPClient.Receiveln(#$A); {Получили адрес и порт}

     TCPClient.Disconnect;
     if MrimS <> '' then
         for i:=1 to Length(MrimS) do
             if MrimS[i] = ':' then
                 begin
                     MailClient.Host:=Copy(MrimS, 0, i-1);
           MailClient.Port:=StrToInt(Copy(MrimS, i+1, Length(MrimS)-i));
                     break;
                 end;

     if MailClient.HostInit then
         MailClient.Connect  {Соеденяемься}
     else
         MailClient1.RequestHost;
end;

Далее обрабатываем соеденение, если оно наступило
Код

procedure TForm.MailClientConnect(Sender: TObject);
begin
MailClient.Hello;
end;

Затем еще Проходим авторизацию!
Код

procedure TForm.MailClientHello(Sender: TObject);
begin
     MailClient.Authorize;
end;


Конечное действие, если все прошло успешно, то подключение заканчивается загрузкой контакт листа
Код

procedure TForm.MailClientEndRequestContactList(Sender: TObject);
begin
{Тут выполняем необходимые действия}
end;

Как примеры:
Отправка СМСок:
Код

procedure TForm.Button2Click(Sender: TObject);
begin
     if MailClient.Connected then
         MailClient1.SendSMS(edit14.Text,edit15.Text);
end;

Edit14 и Edit15 соотвктственно телефон и само собщение!
Допустим надо найти людей (со строковыми переменными как передавать не разобрался, майловсцы молчат):
Первые три значения пустые - '' так и не понял как передать запрос текстовый, в каком формате!
(0-любой пол, 1-мужчина, 2 -женщина)
(возраст от)
(возраст до)
(город, береться по id из базы)
(знак зодиака, от 1 до 12)
(месяц рождения от 1 до 12)
(день рождения от 1 до 31)
(страна, опять же из базы, к примеру Россия код:24)
значение -1 в числовых параметрах распознаеться как "любое зачение"
как пример, что бы найти всех девушек в возрасте от 20 до 30 лет из россии надо передать строку
Код

procedure TForm.Button3Click(Sender: TObject);
begin
If MailClient.Connected then
MailClient.FindContact('','','',2,20,30,-1,-1,-1,-1,24,false);
end;

Все, ловим событие  MailClient UserFound, приходит строка со всеми данными о пользователе
За раз приходит только 1 найденный контакт, просто ставим событие, что как только находит сразу добавлять например в массив найденных, ищет за раз по 50 контактов, для следующего поиска еще раз отправлячем запрос на поиск.
Код

procedure TForm1.MailClient1UserFound(Sender: TObject; Status, FieldNum,
  MaxRows, ServerTime: Cardinal; User, Domain, Nickname, FistName,
  LastName, Sex, Birth_Day, IDCity, Location, Zodiac, BirthMonth, BirthDay,
  IDCountry, Phone, mrim_Status: String);
Begin
Memo.lines.add(User+'@'+Domain);
End;

Таким путем будет в мемо добавленно 50 найденных контактов!
В прикрепленном компоненте кажись урезанный вариант для рассылки СМСок, но в инете видел полный такой же компонент с указанием где и что именно измененно и путем обратных изменений получаем готовый СМС спаммер, сам не скажу точно, правда или нет, так как СМС меня не сильно интересовало!

Присоединённый файл ( Кол-во скачиваний: 28 )
Присоединённый файл  Mrim.rar 29,96 Kb
PM MAIL   Вверх
Rodeon
Дата 25.1.2012, 16:09 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 124
Регистрация: 28.8.2008
Где: Россия, Ухта

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



В этой ветке обновление:
тынц
PM MAIL   Вверх
Rodeon
Дата 30.1.2012, 00:15 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 124
Регистрация: 28.8.2008
Где: Россия, Ухта

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



Подправил поля поиска, теперь найденные данные соответствуют названиям полей.
Вот список полей:
Username, Domain, Nickname, FirstName, LastName, Sex, Birthday, Zodiac, Country_id, City_ID, Location, Phone, mrim_status, status_uri, status_title, status_desc, ua_features
Измененный клиент прикрепил!
Осталось пока непонятным в какой кодировке выдаются поля статусов, у меня либо "???" либо пусто пока?
Комментарий по status_desc:
описание статуса (до 255 символов)

Комментарий по status_title:
заголовок статуса (до 16 символов)

Комментарий по status_uri:
STATUS_ONLINE - 'В сети'
STATUS_AWAY - 'Отошел'
STATUS_INVISIBLE - 'Невидимый'
status_chat - 'Готов поболтать'
status_dnd - 'Не беспокоить'
status_0' - 'Отключен'
status_1' - 'В сети'
status_2 - 'Отошел'
status_3 - ' => 'Невидимый'
status_4 - 'Болею'
status_5 - 'Дома'
status_6 - 'Кушаю'
status_7 - 'Где я?'
status_8 - 'В туалете'
status_9 - 'Готовлю'
status_10 - 'Гуляю'
status_11 - 'Я Инопланетный разум!'
status_12 - 'Йа креветко!'
status_13 - 'Я потерялся!'
status_14 - 'Я сошел с ума!'
status_15 - 'Йа утко!'
status_16 - 'Играю'
status_17 - 'Курю'
status_18 - 'На работе'
status_19 - 'На встрече'
status_20 - 'Пью пиво'
status_21 - 'Пью кофе'
status_22 - 'Работаю'
status_23 - 'Сплю'
status_24 - 'Телефон'
status_26 - 'В институте'
status_27 - 'В школе'
status_28 - 'Вы ошиблись номером'
status_29 - ':-D'
status_30 - ';-)'
status_32 - '}smile'
status_33 - '8-)'
status_34 - ':-('
status_35 - ':\'('
status_36 - 'В шоке...'
status_37 - 'Злюсь!'
status_38 - 'Диабло!'
status_39 - '(_|_)'
status_40 - 'Сердце'
status_41 - 'Сплю'
status_42 - 'Cool!'
status_43 - 'Yo!'
status_44 - 'Фига'
status_45 - 'Fuck!'
status_46 - 'Череп'
status_47 - 'Ракета'
status_48 - 'Осминог'
status_49 - 'Коза'
status_50 - 'Bad!'
status_51 - 'Белка'
status_52 - 'Звезда'
status_53 - 'Музыка'

Это сообщение отредактировал(а) Rodeon - 30.1.2012, 00:56

Присоединённый файл ( Кол-во скачиваний: 10 )
Присоединённый файл  client.rar 14,97 Kb
PM MAIL   Вверх
  
Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Сети"
Snowy
Poseidon
MetalFan

Запрещено:

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

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

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

Если Вам помогли и атмосфера форума Вам понравилась, то заходите к нам чаще! С уважением, Snowy, Poseidon, MetalFan.

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


 




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


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

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