![]() |
Модераторы: Snowy, Poseidon, MetalFan |
![]() ![]() ![]() |
|
Zlo |
|
|||
Бывалый ![]() Профиль Группа: Участник Сообщений: 235 Регистрация: 18.9.2004 Репутация: нет Всего: 1 |
Cобственно Mail.Ru Agent хочу сделать альтернативу, может у когонить есть какиенить наброски на дельфях?
|
|||
|
||||
Jey_k |
|
|||
![]() WEB-командир ![]() ![]() ![]() ![]() Профиль Группа: Комодератор Сообщений: 4149 Регистрация: 16.11.2003 Где: Москва Репутация: нет Всего: 61 |
Zlo, Да это в общем-то обычный mail-client. Просто чаще проверяющий ящик. Все через Indy можно сделать. В дельфе 7 в примерах есть вариант мэйл клиента. Его и возьми за основу.
Это сообщение отредактировал(а) Jey_k - 13.5.2006, 23:23 |
|||
|
||||
Poseidon |
|
|||
![]() Delphi developer ![]() ![]() ![]() ![]() Профиль Группа: Комодератор Сообщений: 5273 Регистрация: 4.2.2005 Где: Гомель, Беларусь Репутация: 4 Всего: 133 |
Там вроди еще и игры внедрили. Точно не знаю, не использую
![]() -------------------- Если хочешь, что бы что-то работало - используй написанное, если хочешь что-то понять - пиши сам... |
|||
|
||||
Jey_k |
|
|||
![]() WEB-командир ![]() ![]() ![]() ![]() Профиль Группа: Комодератор Сообщений: 4149 Регистрация: 16.11.2003 Где: Москва Репутация: нет Всего: 61 |
ну там есть подобие аси. Только основная функция агента проверять мыло и извещать о поступлении письма. |
|||
|
||||
Zlo |
|
|||
Бывалый ![]() Профиль Группа: Участник Сообщений: 235 Регистрация: 18.9.2004 Репутация: нет Всего: 1 |
неменя интересует именно сообщения игры вроде как не очень еще там теперь смс можно отсылать и голосом базарить
|
|||
|
||||
Poseidon |
|
|||
![]() Delphi developer ![]() ![]() ![]() ![]() Профиль Группа: Комодератор Сообщений: 5273 Регистрация: 4.2.2005 Где: Гомель, Беларусь Репутация: 4 Всего: 133 |
Тогда используй TIdPop3 (поищи по форуму примеры) -------------------- Если хочешь, что бы что-то работало - используй написанное, если хочешь что-то понять - пиши сам... |
|||
|
||||
Aleksiem |
|
|||
Шустрый ![]() Профиль Группа: Участник Сообщений: 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 |
|||
|
||||
Snowy |
|
|||
![]() Эксперт ![]() ![]() ![]() ![]() Профиль Группа: Модератор Сообщений: 11363 Регистрация: 13.10.2004 Где: Питер Репутация: 53 Всего: 484 |
||||
|
||||
Zlo |
|
|||
Бывалый ![]() Профиль Группа: Участник Сообщений: 235 Регистрация: 18.9.2004 Репутация: нет Всего: 1 |
Snowy нету какихнить нароботок по вопросу? а то я тут вот за сокеты взялся, но даж незнаю с чего начать, и что хорошего на руском почитать по этой теме не знаешь?
|
|||
|
||||
Snowy |
|
|||
![]() Эксперт ![]() ![]() ![]() ![]() Профиль Группа: Модератор Сообщений: 11363 Регистрация: 13.10.2004 Где: Питер Репутация: 53 Всего: 484 |
Если с сетью не работал, то ты слишком круто взялся.
Потренеруйся для начала на более простых вещах. Что почитать - даже не подскажу. Давно не интересовался этим вопросом. Наработок пока нет. Точнее мне не попадались. А свою делать - пока не до этого. Ближайшие 2 месяца точно не возьмусь за этот вопрос. |
|||
|
||||
Snowy |
|
|||
![]() Эксперт ![]() ![]() ![]() ![]() Профиль Группа: Модератор Сообщений: 11363 Регистрация: 13.10.2004 Где: Питер Репутация: 53 Всего: 484 |
Приклеиваю заголовочный файл с типами и константами.
Могет кому понадобится. Правда корректность не гарантирую - я просто сконвертил и довёл до компилируемого состояния. Работоспособность не проверял. Присоединённый файл ( Кол-во скачиваний: 109 ) ![]() |
|||
|
||||
ya_mag |
|
|||
Новичок Профиль Группа: Участник Сообщений: 1 Регистрация: 16.4.2007 Репутация: нет Всего: нет |
извиняюсь за глупый вопрос а можно маленький пример как его использовать?
|
|||
|
||||
Snowy |
|
|||
![]() Эксперт ![]() ![]() ![]() ![]() Профиль Группа: Модератор Сообщений: 11363 Регистрация: 13.10.2004 Где: Питер Репутация: 53 Всего: 484 |
Пример не получится.
Здесь только структуры и константы расписаны. Чтобы использовать - нужно писать реализацию протокола. Если напишешь - будешь первый ![]() |
|||
|
||||
Rodeon |
|
||||||||||||||
![]() Шустрый ![]() Профиль Группа: Участник Сообщений: 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
Далее обрабатываем соеденение, если оно наступило
Затем еще Проходим авторизацию!
Конечное действие, если все прошло успешно, то подключение заканчивается загрузкой контакт листа
Как примеры: Отправка СМСок:
Edit14 и Edit15 соотвктственно телефон и само собщение! Допустим надо найти людей (со строковыми переменными как передавать не разобрался, майловсцы молчат): Первые три значения пустые - '' так и не понял как передать запрос текстовый, в каком формате! (0-любой пол, 1-мужчина, 2 -женщина) (возраст от) (возраст до) (город, береться по id из базы) (знак зодиака, от 1 до 12) (месяц рождения от 1 до 12) (день рождения от 1 до 31) (страна, опять же из базы, к примеру Россия код:24) значение -1 в числовых параметрах распознаеться как "любое зачение" как пример, что бы найти всех девушек в возрасте от 20 до 30 лет из россии надо передать строку
Все, ловим событие MailClient UserFound, приходит строка со всеми данными о пользователе За раз приходит только 1 найденный контакт, просто ставим событие, что как только находит сразу добавлять например в массив найденных, ищет за раз по 50 контактов, для следующего поиска еще раз отправлячем запрос на поиск.
Таким путем будет в мемо добавленно 50 найденных контактов! В прикрепленном компоненте кажись урезанный вариант для рассылки СМСок, но в инете видел полный такой же компонент с указанием где и что именно измененно и путем обратных изменений получаем готовый СМС спаммер, сам не скажу точно, правда или нет, так как СМС меня не сильно интересовало! Присоединённый файл ( Кол-во скачиваний: 52 ) ![]() |
||||||||||||||
|
|||||||||||||||
cable |
|
|||
Новичок Профиль Группа: Участник Сообщений: 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 |
|||
|
||||
![]() ![]() ![]() |
Правила форума "Delphi: Сети" | |
|
Запрещено: 1. Публиковать ссылки на вскрытые компоненты 2. Обсуждать взлом компонентов и делится вскрытыми компонентами
Если Вам помогли и атмосфера форума Вам понравилась, то заходите к нам чаще! С уважением, Snowy, Poseidon, MetalFan. |
1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей) | |
0 Пользователей: | |
« Предыдущая тема | Delphi: Сети | Следующая тема » |
|
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности Powered by Invision Power Board(R) 1.3 © 2003 IPS, Inc. |