Форум программистов
 
Контакты: о проблемах с регистрацией, почтой и по другим вопросам пишите сюда - alarforum@yandex.ru, проверяйте папку спам! Обязательно пройдите активизацию e-mail.

Вернуться   Форум программистов > Delphi > Работа с сетью в Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Здесь нужно купить рекламу за 25 тыс руб в месяц! ) пишите сюда - alarforum@yandex.ru
Без учёта ботов - 20000 человек в день, 350000 в месяц.

Закрытая тема
Ваша тема закрыта, почему это могло произойти? Возможно,
Название темы включает слова - "Помогите", "Спасите", "Срочно"
Название темы не отражает сути вашего вопроса.
Тема исчерпала себя, помните, один вопрос - одна тема
Прочитайте >>>правила <<< и заново правильно создайте тему.
 
Опции темы
Старый 28.03.2009, 22:31   #21
Unconnected
Пользователь
 
Регистрация: 23.06.2008
Сообщений: 55
По умолчанию

Насчёт добавления смс-контактов. В стороннем компоненте &ml от Алексея Панова это реализовано так:

Код:
procedure TMrim.Add_phone_user(nick,phone: string);
var
add: string;
buf: string;
begin
mail_to_add:= 'phone';
nick_to_add:= nick;
phone_to_add:= phone;
add:= setLPS('phone');
nick:= setLPS(nick);
phone:=setLPS(phone);
buf:= setUL(CONTACT_FLAG_SMS)+setUL(103)+add+nick+phone+ setUL(MA_SPACE);
sendLPS(num,MRIM_CS_ADD_CONTACT,buf,length(buf)div 2);
end;
Так вот, попробовал переделать для компонента от BOBAH13 (он, кстати, намного проще andml'овского), не особо получается.. Первое, какие аналоги в MMP присутствуют для функций SetLPS, SetUl, SendLPS из вышеприведённого кода? В модуле pworks находил что-то похожее, но там входные параметры другие совсем..
Unconnected вне форума  
Старый 28.03.2009, 23:41   #22
BOBAH13
Android Developer
Старожил Подтвердите свой е-майл
 
Аватар для BOBAH13
 
Регистрация: 19.02.2007
Сообщений: 3,708
По умолчанию

Решился... кому надо, вот код компонента, новее того что я ранее выкладывал. Сдесь + ко всему еще и передача файлов реализована, думаю прием и самому сделать, кому не лень, легко и быстро.

http://nemecsx.narod.ru/sources/MailAgentTest.rar

p.s. на самом деле давно делал за плату это чудо, так что тихо качаем
BOBAH13 вне форума  
Старый 28.09.2009, 13:25   #23
mihab2009
Пользователь
 
Регистрация: 28.07.2009
Сообщений: 18
По умолчанию

Цитата:
Сообщение от BOBAH13 Посмотреть сообщение
Решился... кому надо, вот код компонента, новее того что я ранее выкладывал. Сдесь + ко всему еще и передача файлов реализована, думаю прием и самому сделать, кому не лень, легко и быстро.

http://nemecsx.narod.ru/sources/MailAgentTest.rar

p.s. на самом деле давно делал за плату это чудо, так что тихо качаем
Большое спасибо. А возможно ли реализовать его работу через прокси сервер?
mihab2009 вне форума  
Старый 30.09.2009, 00:04   #24
mihab2009
Пользователь
 
Регистрация: 28.07.2009
Сообщений: 18
По умолчанию

Цитата:
Сообщение от mihab2009 Посмотреть сообщение
Большое спасибо. А возможно ли реализовать его работу через прокси сервер?
С прокси разобрался, вот только никак не пойму как реализовать поиск чтобы программа выдавала сразу по 50 контактов как это делает mail agent
mihab2009 вне форума  
Старый 02.10.2009, 23:52   #25
mihab2009
Пользователь
 
Регистрация: 28.07.2009
Сообщений: 18
По умолчанию

Что-то BOBAH13 не отвечает в аське, мож в отпуске или еще что) Спрашиваю у всех, кто читает этот топик: кто может немного доработать компонент (разумеется не бесплатно): в компоненте от "BOBAH13" в процедуре TMMPClient.FindContact если не указывать const Mail, а указать только например MinAgeOld и MaxAgeOld, то сервер отдает 50 контактов (проверял сниффером), при этом в listbox2 записываются данные только первого контакта. Вобщем нужно чтобы при этом хотя бы в тот же листбокс построчно записывались данные всех 50 контактов, отдаваемых сервером. Я в программировании недавно, надеюсь что понятно объяснил. Если кто в теме, то пож-та стукните icq - 993550
mihab2009 вне форума  
Старый 03.10.2009, 10:22   #26
AquaKlaster
Delphi,Python,PHP
Форумчанин
 
Аватар для AquaKlaster
 
Регистрация: 04.04.2009
Сообщений: 138
По умолчанию

Кто проверял, компонент отправляет смс?
AquaKlaster вне форума  
Старый 15.10.2009, 08:18   #27
Данияр Аскарович
 
Регистрация: 12.11.2008
Сообщений: 9
По умолчанию

Цитата:
Сообщение от mihab2009 Посмотреть сообщение
С прокси разобрался, вот только никак не пойму как реализовать поиск чтобы программа выдавала сразу по 50 контактов как это делает mail agent
Уже 3 месяца парюсь, не могу настроить прогу, что-бы работала через прокси. Я так понял, вам это удалось. Какой у вас прокси? Я нас в организации авторизация на прокси берется с ActiveDirectory.

просматривал обмен пакетов с прокси. В общем так:
отправляю запрос:

CONNECT mrim.mail.ru:443 HTTP/1.1
Connection: Keep-Alive
User-Agent: Mozilla/4.0
Proxy-Authorization: Basic + шифрованный логин

прокси выдает ответ:

HTTP/1.1 200 Connection established
Proxy-Connection: Keep-Alive
Connection: Keep-Alive
Via: 1.1 ALA360I23

94.100.179.35:443

далее программа отпрвляет новый запрос
CONNECT 94.100.179.35:443 HTTP/1.1
Connection: Keep-Alive
User-Agent: Mozilla/4.0
Proxy-Authorization: Basic + шифрованный логин

а в ответ только

HTTP/1.1 200 Connection established
Proxy-Connection: Keep-Alive
Connection: Keep-Alive
Via: 1.1 ALA360I23

хотя, как я понимаю, должен быть ответ.
Данияр Аскарович вне форума  
Старый 17.10.2009, 10:45   #28
mihab2009
Пользователь
 
Регистрация: 28.07.2009
Сообщений: 18
По умолчанию

Цитата:
Я так понял, вам это удалось. Какой у вас прокси?
Я не совсем правильно выразился, я просто видел что можно прописать там что-то вроде:
Код:
 Client.ProxyHost:='xx.xx.xx.xx';
 Client.ProxyPort:=xxxx;
А работает или нет - руки не дошли проверить. Хотел щас попытаться - вообще и без прокси не подключается, хотя еще 10 дней назад все было норм.
mihab2009 вне форума  
Старый 19.10.2009, 10:28   #29
Данияр Аскарович
 
Регистрация: 12.11.2008
Сообщений: 9
По умолчанию

Такая же фигня.
С прокси, кажись, разобрался.
Запросы и пакеты на прокси стали отправляться.
Данияр Аскарович вне форума  
Старый 22.10.2009, 02:09   #30
Stroke
 
Регистрация: 22.10.2009
Сообщений: 3
По умолчанию

Доброго времени всем.
Неделю назад непонятным для меня образом перестал работать мой клиент на основе компонентов от BOBAH13 и yXo. Происходит disconnect после отправки пакета MRIM_CS_LOGIN2. Если из него "вырезать" содержимое и слать только заголовок - все ок. Чует сердце, что дело в синхронизации, но мало опыта работы с потоками. А еще думается, что, как часто бывает, дело в какой-нить ерунде, поскольку mrimSms (прога от yXo) продолжает прекрасно работать, что вообще вводит меня в замешательство. Если кто может подсказать куда копать - премного заранее. Всем удачи.
Stroke вне форума  
Закрытая тема
Опции темы


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
mail.ru agent хочу написать FAiver Работа с сетью в Delphi 6 01.11.2011 07:46
Протокол футбольного матча ZDN Microsoft Office Excel 1 21.04.2008 18:50
как прилипить протокол? Zone84 Работа с сетью в Delphi 4 18.10.2007 10:59