Вопрос по Делфи [ICQ чат]
Пользователи, просматривающие топик: none
|
Зашли как: Guest
|
Имя  |
| Сообщение |
<< Старые топики Новые топики >> |
|
|
Вопрос по Делфи [ICQ чат] - 2010-06-13 14:40:42.646666
|
|
|
AleksNEW
Сообщений: 1019
Оценки: 0
Присоединился: 2010-01-17 08:35:42.933333
|
Такая проблема:
Пишу ICQ чат, точнее бота для ICQ чата, не могу реализовать одну вещь - не получается сделать авторизацию (что - то навроде: "Добро пожаловать в чат! для регистрации введите !чат "ваш ник" )
И также не получается реализовать добавление пользователя в контакт лист ( listbox )
вот наработака:
procedure TForm1.ICQClient1MessageRecv(Sender: TObject; Msg, UIN: String);
var
s: boolean;
a: integer;
begin
s:= false;
memo1.Lines.Add(UIN+': '+msg);
label4.Caption:= inttostr(strtoint(label4.Caption)+1);
for a:= 0 to listbox1.Items.Count-1 do
if UIN<>listbox1.Items.ValueFromIndex[a] then
begin
s:=false;
end
else
if s=true then
begin
icqclient1.SendMessage(strtoint(UIN), 'Добро пожаловать в чат!');
end
else
if ((msg='!чат '+' ') and (s= false)) then
begin
icqclient1.SendMessage(strtoint(UIN), 'Вы вошли в чат');
listbox1.Items.Add(UIN+' ');
end;
end;
|
|
|
|
|
RE: Вопрос по Делфи [ICQ чат] - 2010-06-14 20:12:14.256666
|
|
|
Yuri_Venediktovich
Сообщений: 277
Оценки: 0
Присоединился: 2010-05-13 16:25:22.523333
|
с этим помочь не могу но я нашел одну ошибочку: procedure TForm1.ICQClient1MessageRecv(Sender: TObject; Msg, UIN: String);
вместо UIN: String должно быть UIN:integer - это целое число…
|
|
|
|
|
RE: Вопрос по Делфи [ICQ чат] - 2010-06-16 09:34:15.343333
|
|
|
AleksNEW
Сообщений: 1019
Оценки: 0
Присоединился: 2010-01-17 08:35:42.933333
|
quote:
с этим помочь не могу но я нашел одну ошибочку: procedure TForm1.ICQClient1MessageRecv(Sender: TObject; Msg, UIN: String);
вместо UIN: String должно быть UIN:integer - это целое число…
это процедура создается сама, после чего в программе идет преобразование String в Inyeger ( Strtoint(UIN) )
|
|
|
|
|
|
