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

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Mail.Ru Agent 
:(
    Опции темы
Zlo
Дата 13.5.2006, 22:15 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


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

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



Cобственно Mail.Ru Agent  хочу сделать альтернативу, может у когонить есть какиенить наброски на дельфях? 
PM MAIL   Вверх
Jey_k
Дата 13.5.2006, 23:22 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


WEB-командир
****


Профиль
Группа: Комодератор
Сообщений: 4149
Регистрация: 16.11.2003
Где: Москва

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



Zlo, Да это в общем-то обычный mail-client. Просто чаще проверяющий ящик. Все через Indy можно сделать. В дельфе 7 в примерах есть вариант мэйл клиента. Его и возьми за основу.  

Это сообщение отредактировал(а) Jey_k - 13.5.2006, 23:23


--------------------
PM MAIL WWW   Вверх
Poseidon
Дата 13.5.2006, 23:26 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Delphi developer
****


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

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



Цитата(Jey_k @  13.5.2006,  23:22 Найти цитируемый пост)
это в общем-то обычный mail-client. Просто чаще проверяющий ящик.
 Там вроди еще и игры внедрили. Точно не знаю, не использую smile
 


--------------------
Если хочешь, что бы что-то работало - используй написанное, 
если хочешь что-то понять - пиши сам...
PM MAIL ICQ   Вверх
Jey_k
Дата 13.5.2006, 23:38 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


WEB-командир
****


Профиль
Группа: Комодератор
Сообщений: 4149
Регистрация: 16.11.2003
Где: Москва

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



Цитата(Poseidon @  13.5.2006,  23:26 Найти цитируемый пост)
Там вроди еще и игры внедрили. Точно не знаю, не использую 
 

ну там есть подобие аси. Только основная функция агента проверять мыло и извещать о поступлении письма.  


--------------------
PM MAIL WWW   Вверх
Zlo
Дата 14.5.2006, 00:32 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


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

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



неменя интересует именно сообщения игры вроде как не очень еще там теперь смс можно отсылать и голосом базарить 
PM MAIL   Вверх
Poseidon
Дата 14.5.2006, 03:06 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Delphi developer
****


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

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



Цитата(Zlo @  14.5.2006,  00:32 Найти цитируемый пост)
неменя интересует именно сообщения 

Тогда используй TIdPop3 (поищи по форуму примеры)
 


--------------------
Если хочешь, что бы что-то работало - используй написанное, 
если хочешь что-то понять - пиши сам...
PM MAIL ICQ   Вверх
Aleksiem
Дата 29.5.2006, 02:09 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


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

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



Наверное меня сейчас завалят критикой, как новичка на форуме но это далеко не mail-client это гораздо ближе к аське по протоколу, правда как мне кажется у аськи всё гораздо сложнее. А так там всё так же организовано, как и в аське есть свои пакеты, в том числе и когда приходит новое письмо, никакие ящики при этом проверять не надо. Даже есть оповещения о том, что собеседник печатает (так же как в ICQ-протоколе версии 11). Протокол открыт и доступен по адресу http://agent.mail.ru/dev-license.html. Многие мои знакомые используют его как замену аське. И компоненты типа POP3 здесь ну никак не уместны. Всё делается через обычные сокеты(типа ClientSocket). Сам делаю через winsock, чего и тебе советую. На ссылке всё подробно описано. если делал хоть раз аську или что-то подобное проблем не будет. 
З.Ы. Надеюсь тема ещё не потеряла свою актуальность 

Это сообщение отредактировал(а) Aleksiem - 29.5.2006, 02:10
PM MAIL ICQ   Вверх
Snowy
Дата 29.5.2006, 09:06 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


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

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



Цитата(Aleksiem @  29.5.2006,  02:09 Найти цитируемый пост)
Наверное меня сейчас завалят критикой, как новичка на форуме
Aleksiem, вовсе нет. Ты совершенно прав.
Просто не все знают, что такое маилрушный агент.
А вот, что у него протокол открытый - и я не знал.
За ссылку спасибо. 
PM MAIL   Вверх
Zlo
Дата 20.8.2006, 23:39 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


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

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



Snowy нету какихнить нароботок по вопросу? а то я тут вот за сокеты взялся, но даж незнаю  с чего начать, и что хорошего на руском почитать по этой теме не знаешь?
PM MAIL   Вверх
Snowy
Дата 21.8.2006, 09:26 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


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

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



Если с сетью не работал, то ты слишком круто взялся.
Потренеруйся для начала на более простых вещах.
Что почитать - даже не подскажу. Давно не интересовался этим вопросом.

Наработок пока нет. Точнее мне не попадались.
А свою делать - пока не до этого.
Ближайшие 2 месяца точно не возьмусь за этот вопрос.
PM MAIL   Вверх
Snowy
Дата 21.8.2006, 09:59 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


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

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



Приклеиваю заголовочный файл с типами и константами.
Могет кому понадобится.
Правда корректность не гарантирую - я просто сконвертил и довёл до компилируемого состояния.
Работоспособность не проверял.

Присоединённый файл ( Кол-во скачиваний: 109 )
Присоединённый файл  PROTO.ZIP 2,46 Kb
PM MAIL   Вверх
ya_mag
Дата 20.4.2007, 09:39 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

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



извиняюсь за глупый вопрос а можно маленький пример как его использовать?
PM MAIL   Вверх
Snowy
Дата 20.4.2007, 10:24 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


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

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



Пример не получится.
Здесь только структуры и константы расписаны.
Чтобы использовать - нужно писать реализацию протокола.
Если напишешь - будешь первый smile
PM MAIL   Вверх
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 найденных контактов!
В прикрепленном компоненте кажись урезанный вариант для рассылки СМСок, но в инете видел полный такой же компонент с указанием где и что именно измененно и путем обратных изменений получаем готовый СМС спаммер, сам не скажу точно, правда или нет, так как СМС меня не сильно интересовало!

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


Новичок



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

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



ни  как не поставить компонент  помогите  разобратся с ошибками 

  [Warning] Unit 'pworks' implicitly imported into package 'dclusr'
  [Warning] Unit 'proto' implicitly imported into package 'dclusr'
  [Warning] Unit 'Constants' implicitly imported into package 'dclusr'
  [Warning] Unit 'StringFunc' implicitly imported into package 'dclusr'
  [Warning] Unit 'Bodies' implicitly imported into package 'dclusr'


в результате нет компонента  

Это сообщение отредактировал(а) cable - 16.9.2010, 01:33
PM MAIL   Вверх
Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Сети"
Snowy
Poseidon
MetalFan

Запрещено:

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

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

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

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

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


 




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


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

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