Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

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

Восстановить пароль

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 09.01.2011, 00:38   #1
asp1k
Пользователь
 
Аватар для asp1k
 
Регистрация: 30.08.2010
Сообщений: 22
Печаль Проблемка с TICQclient v1.34

В онлайн заходит..на команды реагирует...
а сообщение не получается отправить...
В чем проблема?
Код:
procedure TForm1.Button3Click(Sender: TObject);
begin
icqclient1.sendmessage(StrToInt(LabeledEdit1.Text),Memo1.Text);
end;
вписываешь сразу номер...работает
Код:
begin
icqclient1.sendmessage(8899079,Memo1.Text);
end
;





UPD 09.01.2011
Проблема решена
Человеческое звено - самый слабый фактов в защите системы.
Кевин Митник©

Последний раз редактировалось asp1k; 09.01.2011 в 04:03.
asp1k вне форума Ответить с цитированием
Старый 09.01.2011, 00:48   #2
Пепел Феникса
Старожил
 
Аватар для Пепел Феникса
 
Регистрация: 28.01.2009
Сообщений: 21,000
По умолчанию

всмысле не получается?
не доходит сообщение или ошибка вылазит?
Хорошо поставленный вопрос это уже половина ответа. | Каков вопрос, таков ответ.
Программа делает то что написал программист, а не то что он хотел.
Функции/утилиты ждут в параметрах то что им надо, а не то что вы хотите.
Пепел Феникса вне форума Ответить с цитированием
Старый 09.01.2011, 00:49   #3
asp1k
Пользователь
 
Аватар для asp1k
 
Регистрация: 30.08.2010
Сообщений: 22
По умолчанию

Не доходит сообщение
Человеческое звено - самый слабый фактов в защите системы.
Кевин Митник©
asp1k вне форума Ответить с цитированием
Старый 09.01.2011, 00:53   #4
asp1k
Пользователь
 
Аватар для asp1k
 
Регистрация: 30.08.2010
Сообщений: 22
По умолчанию

Антиспам не стоит,есть этот номер в кл...
Сообщение не доходит(
может надо было что то в uses добавить?
Код:
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, StdCtrls, ICQClient,ICQWorks, XPMan,inifiles;
Человеческое звено - самый слабый фактов в защите системы.
Кевин Митник©
asp1k вне форума Ответить с цитированием
Старый 09.01.2011, 01:07   #5
asp1k
Пользователь
 
Аватар для asp1k
 
Регистрация: 30.08.2010
Сообщений: 22
По умолчанию

Код:
procedure TForm1.ICQClient1MessageRecv(Sender: TObject; Msg, UIN: String);
var
ICQ: Cardinal;
i: integer;
begin
If msg='Отключись'
then begin ICQClient1.SendMessage(StrToInt(UIN), 'Отключаюсь');
IcqClient1.LogOff();
button1.Enabled:=true;
button2.Enabled:=false;
Image1.Picture.LoadFromFile('offline.bmp');
end;
Это работает...
Человеческое звено - самый слабый фактов в защите системы.
Кевин Митник©
asp1k вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
TICQClient RazoRIII Работа с сетью в Delphi 6 20.09.2011 19:29
TICQClient Maxs Работа с сетью в Delphi 1 18.11.2009 16:44
TICQClient __@cmd@__ Компоненты Delphi 3 20.08.2009 16:03
TICQClient Xandr Работа с сетью в Delphi 11 04.07.2008 13:28
Проблемка с TIcqClient BlackOmen Работа с сетью в Delphi 6 02.03.2008 18:29