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

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Протокол [email protected] 
:(
    Опции темы
nod3264
Дата 4.10.2009, 14:43 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


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

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



Подскажите где найти актуальный Протокол [email protected]?

Это сообщение отредактировал(а) nod3264 - 4.10.2009, 14:45
PM MAIL   Вверх
Telepyz
Дата 4.10.2009, 17:25 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


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

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



на их сайте...

Протокол@mail.ru
--------------------
обновить драйвер
PM MAIL   Вверх
nod3264
Дата 4.10.2009, 18:41 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


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

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



А компонентом есть? Это я видел, хотелось бы компонент 
PM MAIL   Вверх
Данкинг
Дата 4.10.2009, 18:43 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Yersinia pestis
****


Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

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



Цитата(nod3264 @ 4.10.2009,  19:41)
А компонентом есть? Это я видел, хотелось бы компонент

Какой ещё компонент - вроде как TicqClient? Угу, размечтался. smile 


--------------------
There's nothing left but silent epitaphs.
PM MAIL WWW   Вверх
nod3264
Дата 4.10.2009, 19:16 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


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

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



Да, типа него... Вообще нету или никто не выкладывает? а за $?
PM MAIL   Вверх
Proxin
Дата 7.10.2009, 17:19 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


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

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



Есть опенсорсный клиент andml - сайт его andml.org.ru. Тоже на дельфи, посмотри их реализацию протокола.
Вообще, совет - реализуй по спецификации на сайте. Учись. В крайнем случае смотри и понимай, как реализовано у них. А то так дальше формочек с одной-двумя кнопками не пойдёшь.
К слову, я не видел ни одного рабочего клиента аськи на ticqclient.
PM MAIL   Вверх
Rodeon
Дата 8.10.2009, 11:41 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


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

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



По этому протоколу есть хороший, рабочий компонент для делфей, с небольшим примером!
Компонент маленько резаный, убрана часть с отправкой СМСок, что бы не делали СМС спамеры!
Лично пользовался, все работает! Примеры выложить не могу, все дома! Если что завтра!
Тут!

PM MAIL   Вверх
darkmamba
Дата 26.10.2009, 19:18 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


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

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



Выложи плз исходники, если есть отправка смсок то будет просто гуд!

Это сообщение отредактировал(а) darkmamba - 26.10.2009, 19:44
PM MAIL   Вверх
Rodeon
  Дата 27.10.2009, 04:46 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


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

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



Так вот по этой ссылке как раз можно качнуть и сам компонент и есть несколько примеров, сюда все писать смысла нету, так как объем большой.
Ссылка
PM MAIL   Вверх
darkmamba
Дата 4.11.2009, 19:36 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


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

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



протокл сменился, поснифав, кажется какойто RAND_ID добавился, как вычесляется - хз, какойто код кудрявый в оле запарился сидеть... ктонибуть пробовал разобратся?
PM MAIL   Вверх
Rodeon
  Дата 20.11.2009, 23:27 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


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

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



Сменилась версия, с 1.7 на 1.12 в файле proto смените цифру - все будет ОК!
Проверил - все работает после смены версии и не работает, т.е. не коннектиться до смены!
PM MAIL   Вверх
Rodeon
  Дата 21.11.2009, 00:23 (ссылка)    | (голосов: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 найденных контактов!
В прикрепленном компоненте кажись урезанный вариант для рассылки СМСок, но в инете видел полный такой же компонент с указанием где и что именно измененно и путем обратных изменений получаем готовый СМС спаммер, сам не скажу точно, правда или нет, так как СМС меня не сильно интересовало!

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


Новичок



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

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



А как получить Имя Фамилия и т.д. Залогинившегося аккаунта?)
PM MAIL   Вверх
Sukablia
Дата 28.11.2009, 06:10 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

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



Сделал вот так:
Код

MailClient1.FindContact(MailClient1.Mail, False);


Код

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
  Label5.Caption:= FistName + ' ' + LastName;
  if Length(Sex) > 0 then
  begin
    if Sex = '1' then
    begin
      //действие
    end
    else
    begin
      //действие
    end;
  end;
end;

PM MAIL   Вверх
alf138
Дата 19.4.2010, 19:28 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


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

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



Rodeon,  а не подскажите где можно скачать ваш компонент MailClient а то все ссылки битые а поиск в гугле не дал результатов.
PM MAIL   Вверх
wed
Дата 5.11.2010, 11:44 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

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



ничего из этого не работает. если у кого нибудь получилось отпишитесь пожалуйста!
PM MAIL   Вверх
Rodeon
Дата 6.11.2010, 00:01 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


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

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



Исходник работающий и сам компонент с уже измененной версией, на момент написания сообщения все работает (коннектится, отправляет смс)

Присоединённый файл ( Кол-во скачиваний: 107 )
Присоединённый файл  1.rar 198,91 Kb
PM MAIL   Вверх
Norfonzor
Дата 18.11.2010, 10:08 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


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

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



Rodeon, во время установки mrim, в pworks.pas появляется ошибки:
Код

[Error] pworks.pas(16): Undeclared identifier: 'PMRIMPacket'
[Error] pworks.pas(116): Undeclared identifier: 'TMRIMPacket'
[Error] pworks.pas(117): Missing operator or semicolon
[Error] pworks.pas(118): Missing operator or semicolon
[Error] pworks.pas(119): Missing operator or semicolon
[Error] pworks.pas(120): Missing operator or semicolon
[Error] pworks.pas(121): Missing operator or semicolon
[Error] pworks.pas(122): Missing operator or semicolon
[Error] pworks.pas(127): 'THEN' expected but identifier 'dlen' found
[Error] pworks.pas(140): Undeclared identifier: 'LPS'
[Error] pworks.pas(141): Undeclared identifier: 'LenLPS'
[Error] pworks.pas(141): Incompatible types
[Error] pworks.pas(142): 'THEN' expected but identifier 'dlen' found
[Warning] pworks.pas(147): Comparing signed and unsigned types - widened both operands
[Warning] pworks.pas(148): Combining signed and unsigned types - widened both operands
[Error] pworks.pas(148): Statement expected, but expression of type 'Integer' found
[Error] pworks.pas(154): 'THEN' expected but identifier 'dlen' found
[Error] pworks.pas(164): Undeclared identifier: 'Result'
[Error] pworks.pas(165): Undeclared identifier: 'Offset'
[Error] pworks.pas(165): 'THEN' expected but identifier 'dlen' found
[Warning] pworks.pas(167): Combining signed and unsigned types - widened both operands
[Error] pworks.pas(172): Statement expected but 'FUNCTION' found
[Warning] pworks.pas(177): Comparing signed and unsigned types - widened both operands
[Error] pworks.pas(187): Undeclared identifier: 'TMRIMPacket'
[Error] pworks.pas(188): ')' expected but identifier 'dlen' found
[Error] pworks.pas(197): Statement expected but 'FUNCTION' found
[Error] pworks.pas(199): 'THEN' expected but identifier 'dlen' found
[Error] pworks.pas(201): ')' expected but identifier 'dlen' found
[Error] pworks.pas(203): ';' expected but 'ELSE' found
[Error] pworks.pas(205): '.' expected but ';' found
[Error] pworks.pas(18): Unsatisfied forward or external declaration: 'MMP_AddLPS'
[Error] pworks.pas(20): Unsatisfied forward or external declaration: 'MMP_GetUL'
[Error] pworks.pas(24): Unsatisfied forward or external declaration: 'MMP_RecvPack'
[Fatal Error] client.pas(8): Could not compile used unit 'pworks.pas'


Помогите установить компонент!
PM MAIL   Вверх
Rodeon
Дата 18.11.2010, 20:30 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


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

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



Пользуюсь 7 delphi. Выбираем Component - Install Component. В строке Unit file name указываем путь к файлу client.pas
жмем ОК
опять заходим в Component - New component. В Ancestor type набираем Tmail (после ввода tma остальное сам добьет).
В Pallete page выбираем куда установить - жмем Install

Не забываем добавлять путь к компоненту в библеотеке Tools - Enviroment options - Library - Library path
PM MAIL   Вверх
Norfonzor
Дата 23.11.2010, 13:00 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


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

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



Rodeon, спс за помощь! Программа из проекта не хотела работать. Переделал ее немножко. Рабочий экземпляр: http://webfile.ru/placed?id=4920688

Это сообщение отредактировал(а) Norfonzor - 23.11.2010, 13:02
PM MAIL   Вверх
poisk
Дата 13.12.2010, 13:39 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

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



Можно дополнить компонент, чтобы он принимал и телефонные номера. Они перечисляются через запятую в строке.
Для этого нужно подправить файл pworks.pas:
Код

function MMP_GetLPS;
var
  LenLPS: DWORD;
begin
  Result := ''; // Внесено дополнение
  LenLPS := MMP_GetUL(lpPack, Data, Offset);
  if (LenLPS > 0) and (Offset + LenLPS <= lpPack.dlen) then
  begin
    SetLength(Result, LenLPS);
    MoveMemory(PCHAR(Result), Pointer(DWORD(Data) + Offset), LenLPS);
    Offset := Offset + LenLPS;
  end;
end; 

И файл client.pas:
Код

          Flag:= MMP_GetUL(@Pack, Data, Offset);
          GroupID:= MMP_GetUL(@Pack, Data, Offset);
          EMail:= MMP_GetLPS(@Pack, Data, Offset);
          Nick:= MMP_GetLPS(@Pack, Data, Offset);
          ServerFlag:= MMP_GetUL(@Pack, Data, Offset);
          Status:= MMP_GetUL(@Pack, Data, Offset);
          Phone := MMP_GetLPS(@Pack, Data, Offset); // Внесено дополнение
          for i:= 8 to Length(ContactMask) do // Внесено изменение
           case ContactMask[i] of
            'u':
             MMP_GetUL(@Pack, Data, Offset);
            's':
             MMP_GetLPS(@Pack, Data, Offset);
           end;

В нём так же надо дополнить заголовки функции OnContact, чтобы она возвращала и значение Phone.

Полностью изменённые файлы в архиве.

Присоединённый файл ( Кол-во скачиваний: 46 )
Присоединённый файл  mrim.rar 6,73 Kb
PM MAIL   Вверх
Cash1
Дата 22.1.2012, 01:19 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

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



у меня не получается поиск , пожалуста помогите!!!!
PM MAIL   Вверх
Rodeon
Дата 25.1.2012, 12:03 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


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

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



Поднял клиентский протокол до 1.13 Добавил 2 параметры: x_status, unknown (другого названия не придумал, скорее всего - что слушает в данный момент пользователь из поиска).
Появились возможносмть видеть x_status.
Поиск работает, странно что запускается не с первого раза, приходиться 3-4 раза запрос сделать прежде чем выдаст результат, а дальше уже как по маслу.

Пока работает.
Внесенные изменения:
Код

 while Offset < Pack.dlen do
         for i:= 0 to FieldNum - 1 do
         begin
          User:= MMP_GetLPS(@Pack, Data, Offset);
          Domain:= MMP_GetLPS(@Pack, Data, Offset);
          Nickname:= MMP_GetLPS(@Pack, Data, Offset);
          FistName:= MMP_GetLPS(@Pack, Data, Offset);
          LastName:= MMP_GetLPS(@Pack, Data, Offset);
          Sex:= MMP_GetLPS(@Pack, Data, Offset);
          Birth_Day:= MMP_GetLPS(@Pack, Data, Offset);
          IDCity:= MMP_GetLPS(@Pack, Data, Offset);
          Location:= MMP_GetLPS(@Pack, Data, Offset);
          Zodiac:= MMP_GetLPS(@Pack, Data, Offset);
          BirthMonth:= MMP_GetLPS(@Pack, Data, Offset);
          BirthDay:= MMP_GetLPS(@Pack, Data, Offset);
          IDCountry:= MMP_GetLPS(@Pack, Data, Offset);
          Phone:= MMP_GetLPS(@Pack, Data, Offset);
          X_Status:= MMP_GetLPS(@Pack, Data, Offset);  // Внесено дополнение
          unknown:= MMP_GetLPS(@Pack, Data, Offset);  // Внесено дополнение
          mrim_Status:= MMP_GetLPS(@Pack, Data, Offset);


Присоединённый файл ( Кол-во скачиваний: 39 )
Присоединённый файл  agent_protocol.rar 14,92 Kb
PM MAIL   Вверх
Rodeon
Дата 29.1.2012, 19:24 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 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

Присоединённый файл ( Кол-во скачиваний: 83 )
Присоединённый файл  client.rar 14,97 Kb
PM MAIL   Вверх
ZCoder
Дата 4.7.2013, 17:23 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

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



Добрый день!
Можно еще раз перезалить файл последний, а тоссылка битая.
PM MAIL   Вверх
Rodeon
Дата 4.7.2013, 18:33 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


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

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



Нормальная ссылка. Все качается. Боюсь что именно этого файла в том виде что тут уже у меня нету - давно видоизменен.
PM MAIL   Вверх
Q98
Дата 25.4.2014, 11:19 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

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



Здравствуйте. Извиняюсь, что поднимаю старую тему. Хочется узнать, как можно узнать ответ на выполнение команды?
Код

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

В инди можно так увидеть:
Код

Idhttp.Request.RawHeaders.Text
и
Idhttp.Response.RawHeaders.Text

С этим компонентом не могу разобраться, посмотрел уже весь client.pas. Подскажите.
PM MAIL   Вверх
winner13
Дата 14.7.2016, 01:55 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

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



Понятно, что какахи мамонта поднимать не комильфо, но это лучше чем плодить темы. 

Установил компонент под XE7, не работает зараза, где - то наткнулся, что работает только с седьмым делфи. 
Может кто помочь с установкой под ХЕ или рад 2010? Возможно я неправильно поправил либы...

Вроде всё делаю правильно:

Код

procedure TForm1.Button1Click(Sender: TObject);
var
  i: Integer;
  MrimS: string;
begin
  MailClient1.Mail := Edit1.Text;
  MailClient1.PassWord := Edit2.Text;
  IdTCPClient1.Connect;
  if IdTCPClient1.Connected then
    MrimS := IdTCPClient1.IOHandler.ReadLn; { Получили адрес и порт }
  IdTCPClient1.Disconnect;
  if MrimS <> '' then
    for i := 1 to Length(MrimS) do
      if MrimS[i] = ':' then
      begin
        MailClient1.Host := Copy(MrimS, 0, i - 1);{получил IP}
        MailClient1.Port := StrToInt(Copy(MrimS, i + 1, Length(MrimS) - i)); {получил port}
      end;

  // if MailClient1.HostInit = true then
  // begin
  // MailClient1.Connect; { Соединяться как бы нужно }
  // Label1.Caption := 'Соединился';
  // end
  // else
  // begin
  // MailClient1.RequestHost;
  // Label1.Caption := 'Не вышло';
  // end;
  // end;
  MailClient1.Connect;
  if MailClient1.Connected = true then
    Label1.Caption := 'Соединился'
  else
    Label1.Caption := 'Не соединился';
end;


Прикрепляю ниже отредактированные мной либы.

Это сообщение отредактировал(а) winner13 - 14.7.2016, 02:30

Присоединённый файл ( Кол-во скачиваний: 1 )
Присоединённый файл  Mrim.7z 13,04 Kb
PM MAIL   Вверх
Страницы: (2) [Все] 1 2 
Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Сети"
Snowy
Poseidon
MetalFan

Запрещено:

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

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

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

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

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


 




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


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

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