Привет!В этой теме ты поймёш как можно создать самый простой icq клиент на delphi с помощью компонента TICQClient.
В этой теме я буду постить уроки.
Начнём...
[Урок 1]
Для начало нужно скачать и установить необходимые нам для работы компоненты:
~ TICQClient версия 1.34 - самый последний компонент на сегодняшний день(после обновления протокола компоненты ниже версии не хотели просто подключатся...)
Скачать его можно здесь - http://webfile.ru/2303891
~ Компонент для украшения программы - http://webfile.ru/2303919
Теперь нужно эти компоненты установить.
Неумееш устанавливать?Тогда www.google.com тебе в помощь!
Здесь небуду описывать как устанавливать компоненты,тк эта статья не по установке компонентов а по созданию своего клиента!
После установки компонентнов кинь на форму два TEdit,один TCheckBox,одну TButton,и один TICQClient.
Расположи их так на форме как тебе удобно=)
Edit1 - Будет служить для ввода UIN'a.
Edit2 - Будет служить для ввода пароля.
CheckBox1 - это для того что бы убрать звёздочки там где будет пароль.
ICQClient1 - это самое нужное,тк без него мы несможем ни принять,ни отправить сообщения!
В событии OnLogin пропиши:
Это если клиент законнектится на сервак без проблем,то первое окно скроется,и откроется окно где будут видны контакты.
Для принятия сообщений по событию OnMessageRecv пиши:
Пока нечего некомпилируй тк еще клиент неготов,нужно еще добавить окно для обмена сообщениями и т.д...
По событию кнопки OnClick пиши:
Это для подключения к серверу.
По событию CheckBox1 OnClick пиши:
Это для отображения пароля который скрыт под звёздачками...
Поздравляю!Окно для входа готово!
Теперь зайти в File=>New=>Form.
Так мы создадим форму для второго окна.
Кинь на вторую форму такие обьекты как:
TListBox,и два TButton.
По событию OnClick в Button1 пиши:
Это для закрытия клиента.Если закрыть просто форму нажав на крестик вверху то закроется просто форма а клиент будет в памяти.
Теперь клоцни по форме два раза и напиши это:
И обязательно создай файло с именем p и разшерением .inf то при запуске клиента может выскачить матюк типо нет такого файла.И помести этот файл в папку вместе с прогой!!!)))
Теперь в ListBox1 по событию OnDblClick пиши:
Это для открытия окна где можно переписываццо!
Теперь по событию OnClick второй кнопочГи пишем:
Откроется окно для добавления нового контакта.
Теперь переходим к 3й форме...
Заходи опять в File=>New=>Form...
ну и должно создатся 3е окно в котором мы будем весть переписку=)
Кинь на форму TAdvPage(у меня в исходнике ево имя - mss),и два TMemo.
В public добавь:
потом под словом {$R *.dfm} пиши:
Это процедура для отправки сообщения=)
Кликни теперь по форме и напиши это:
Кликни по второй кнопке и напиши слудущее:
Это для закрытия окна=)
Теперь в Memo1 в собитии OnKeyPress пиши:
Теперь сообщения будут отправлятся по нажатию кнопки ентер=)
эх...)
ну теперь осталось последее...))
Создай еще одну форму и кинь туда TEdit и TButton.
Кликни по кнопке два раза и впиши=) :
В этой теме я буду постить уроки.
Начнём...
[Урок 1]
Для начало нужно скачать и установить необходимые нам для работы компоненты:
~ TICQClient версия 1.34 - самый последний компонент на сегодняшний день(после обновления протокола компоненты ниже версии не хотели просто подключатся...)
Скачать его можно здесь - http://webfile.ru/2303891
~ Компонент для украшения программы - http://webfile.ru/2303919
Теперь нужно эти компоненты установить.
Неумееш устанавливать?Тогда www.google.com тебе в помощь!
Здесь небуду описывать как устанавливать компоненты,тк эта статья не по установке компонентов а по созданию своего клиента!
После установки компонентнов кинь на форму два TEdit,один TCheckBox,одну TButton,и один TICQClient.
Расположи их так на форме как тебе удобно=)
Edit1 - Будет служить для ввода UIN'a.
Edit2 - Будет служить для ввода пароля.
CheckBox1 - это для того что бы убрать звёздочки там где будет пароль.
ICQClient1 - это самое нужное,тк без него мы несможем ни принять,ни отправить сообщения!
В событии OnLogin пропиши:
Код:
Form2.Show;
Form1.Hide;Для принятия сообщений по событию OnMessageRecv пиши:
Код:
var
i: integer;
begin
Form3.Memo1.Lines.Add('('+DateToStr(NOW)+')'+' '+'от юина - '+UIN);
Form3.Memo1.Lines.Add('');
Form3.Memo1.Lines.Add(Msg);
Form3.Memo1.Lines.Add('');По событию кнопки OnClick пиши:
Код:
ICQClient1.UIN:=StrToInt(Edit1.Text);
ICQClient1.Password:=Edit2.Text;
ICQClient1.Login();По событию CheckBox1 OnClick пиши:
Код:
if CheckBox1.State = cbChecked
then
begin
Edit2.PasswordChar:=#0;
end;
if CheckBox1.State = cbunChecked
then
begin
Edit2.PasswordChar:='*';
end;Поздравляю!Окно для входа готово!
Теперь зайти в File=>New=>Form.
Так мы создадим форму для второго окна.
Кинь на вторую форму такие обьекты как:
TListBox,и два TButton.
По событию OnClick в Button1 пиши:
Код:
ExitProcess(0);Теперь клоцни по форме два раза и напиши это:
Код:
ListBox1.Items.LoadFromFile('p.inf');Теперь в ListBox1 по событию OnDblClick пиши:
Код:
Form3.Show;
Form3.mss.Caption:=Form2.ListBox1.Items.Strings[ListBox1.ItemIndex];Теперь по событию OnClick второй кнопочГи пишем:
Код:
Form4.Show;Теперь переходим к 3й форме...
Заходи опять в File=>New=>Form...
ну и должно создатся 3е окно в котором мы будем весть переписку=)
Кинь на форму TAdvPage(у меня в исходнике ево имя - mss),и два TMemo.
В public добавь:
Код:
Sen;
Код:
procedure TForm3.Send;
begin
Form1.ICQ.SendMessage(StrToInt(MSS.Caption),MEmo2.Text);
Memo1.Lines.Add('>>'+'('+TimeToStr(Now)+')'+MEmo2.Text);
MEmo2.Clear;
end;Кликни теперь по форме и напиши это:
Код:
Form3.Caption:='['+MSS.Caption+']'+' - Сообщения';
Код:
Form3.Close;Теперь в Memo1 в собитии OnKeyPress пиши:
Код:
if key = #13 then
send;эх...)
ну теперь осталось последее...))
Создай еще одну форму и кинь туда TEdit и TButton.
Кликни по кнопке два раза и впиши=) :
PHP:
Form2.ListBox1.Items.Add(Form4.Edit1.Text);
Form2.ListBox1.Items.SaveToFile('p.inf');
MessageBox(0,'Контакт добавлен','Ок...',0);
Form4.Close;[/code]
:eek::eek::eek:
Всё!)))Мучения закончились,теперь можеш скомпилирывать,запустить и радыватся=)
гыыы
-------------------------------------------------------------------------
Скачать исходные коды клиента можно здесь - [url=http://webfile.ru/2304075]http://webfile.ru/2304075[/url]
-------------------------------------------------------------------------
Если возникли какието вопросы , то задаём их здесь=)
В дальнейшем буду выкладывать новые уроки здесь,т.к в этом уроке самое основное(залогинится,отправить,принять сообщение),а это для полноценного клиента мало!
Всё!Пока=)
© TROYAN
(