ANTICHAT — форум по информационной безопасности, OSINT и технологиям
ANTICHAT — русскоязычное сообщество по безопасности, OSINT и программированию.
Форум ранее работал на доменах antichat.ru, antichat.com и antichat.club,
и теперь снова доступен на новом адресе —
forum.antichat.xyz.
Форум восстановлен и продолжает развитие: доступны архивные темы, добавляются новые обсуждения и материалы.
⚠️ Старые аккаунты восстановить невозможно — необходимо зарегистрироваться заново.
08.03.2009, 18:49
|
|
Познающий
Регистрация: 19.08.2008
Сообщений: 69
Провел на форуме:
458484
Репутация:
31
|
|
Да мне в любом случае нужно убрать форму Не спятать а именно убрать
Лучше помоги сделать
ICQClient.OnLogin:= qwe; +++++
ICQClient.OnMessageRecv:= ewq; +++++
Дальше я какнить сам сделаю все нужное
У меня уже есть готовый вариант приложения со спрятаной формой
|
|
|
08.03.2009, 18:58
|
|
Постоянный
Регистрация: 25.07.2008
Сообщений: 454
Провел на форуме:
1229135
Репутация:
425
|
|
мда... ну ты даешь =\
Как тебе процедура может быть равна какому либо значению?!
можно так
procedure ICQClient.onLogin;
begin
qwe;
end;
и
procedure ICQClient.OnMessageRecv(Msg, UIN: String);
begin
ewq;
end;
|
|
|
|
08.03.2009, 19:22
|
|
Познающий
Регистрация: 19.08.2008
Сообщений: 69
Провел на форуме:
458484
Репутация:
31
|
|
Код:
program icqsend;
uses
Windows, sysutils, ICQClient;
{$R *.res}
var ICQClient: TICQClient;
procedure ewq;
begin
end;
procedure qwe;
begin
end;
procedure ICQClient.OnMessageRecv(Msg, UIN: String);
begin
ewq;
end;
procedure FormCreate;
begin
ICQClient.DisableDirectConnections:= True;
ICQClient.ICQServer:= 'login.icq.com';
ICQClient.ICQPort:= 5190;
ICQClient.UIN:= StrToIntDef(Trim('43****043'), 0);
ICQClient.Password := Trim('X*****DI');
ICQClient.Login();
end;
procedure ICQClient.onLogin;
begin
qwe;
end;
begin
end.
Identifier redeclared: 'ICQClient'
25. Identifier redeclared <Имя>.<Имя> описано повторно, но в пределах блока имя можно описать лишь раз. Проверьте, не обозначена ли локальная переменная тем же именем, что и формальный параметр блока.
хм Теперь в чем проблема?=)
если уберу var то начинают появляться ошибки везде где есть ICQClient.
Последний раз редактировалось Uname-A; 08.03.2009 в 19:30..
|
|
|
|
08.03.2009, 19:30
|
|
Постоянный
Регистрация: 25.07.2008
Сообщений: 454
Провел на форуме:
1229135
Репутация:
425
|
|
где-то дважды обозначен icqclient =\
да еп....
в варе напиши не icqclient:ticqclient
а icqclient1:ticqclient
и везде поменяй
|
|
|
|
08.03.2009, 19:35
|
|
Познающий
Регистрация: 19.08.2008
Сообщений: 69
Провел на форуме:
458484
Репутация:
31
|
|
Сообщение от AlexTheC0d3r
где-то дважды обозначен icqclient =\
да еп....
в варе напиши не icqclient:ticqclient
а icqclient1:ticqclient
и везде поменяй
менял
ток тоже ошибка...
';' expected but '.' found
непойму нах делпи требует ; вместо точки((((
|
|
|
|
08.03.2009, 19:38
|
|
Постоянный
Регистрация: 25.07.2008
Сообщений: 454
Провел на форуме:
1229135
Репутация:
425
|
|
Код:
program icqsend;
uses
Windows, sysutils, ICQClient;
{$R *.res}
var ICQClient1: TICQClient;
procedure ewq;
begin
end;
procedure qwe;
begin
end;
procedure ICQClient1.OnMessageRecv(Msg, UIN: String);
begin
ewq;
end;
procedure FormCreate;
begin
ICQClient1.DisableDirectConnections:= True;
ICQClient1.ICQServer:= 'login.icq.com';
ICQClient1.ICQPort:= 5190;
ICQClient1.UIN:= StrToIntDef(Trim('43****043'), 0);
ICQClient1.Password := Trim('X*****DI');
ICQClient1.Login();
end;
procedure ICQClient1.onLogin;
begin
qwe;
end;
end.
все.. |
|
|
|
08.03.2009, 19:41
|
|
Познающий
Регистрация: 19.08.2008
Сообщений: 69
Провел на форуме:
458484
Репутация:
31
|
|
Продолжаю бьться бошкой аб стол=)))
E2004 Identifier redeclared: 'ICQClient1'
все в тех же строчках
procedure ICQClient1.OnMessageRecv(Msg, UIN: String);
procedure ICQClient1.onLogin;
|
|
|
|
08.03.2009, 19:55
|
|
Постоянный
Регистрация: 25.07.2008
Сообщений: 454
Провел на форуме:
1229135
Репутация:
425
|
|
program project2;
uses
Windows,
sysutils,
ICQClient;
{$R *.res}
var ICQClient1: TICQClient;
procedure ewq;
begin
end;
procedure qwe;
begin
end;
procedure application;
begin
ICQClient1.DisableDirectConnections:= True;
ICQClient1.ICQServer:= 'login.icq.com';
ICQClient1.ICQPort:= 5190;
ICQClient1.UIN:= StrToIntDef(Trim('43****043'), 0);
ICQClient1.Password := Trim('X*****DI');
ICQClient1.Login();
end;
procedure icqclient1onlogin;
begin
icqclient1.SendMessage(331122,'asdasdasd');
end;
procedure icqclient1onmessagerecv(uin,msg:string);
begin
end;
end.
|
|
|
|
08.03.2009, 19:58
|
|
Познающий
Регистрация: 19.08.2008
Сообщений: 69
Провел на форуме:
458484
Репутация:
31
|
|
Все работает Спс огромное!
Сори если оч тупил=)
|
|
|
|
09.03.2009, 00:03
|
|
Познающий
Регистрация: 20.12.2008
Сообщений: 76
Провел на форуме:
432982
Репутация:
6
|
|
Есть у меня массив компонентов
Bot:array of TICQClient;
так вот как к этому массиву прикрутить процедуру как к обычному TIcqClient'u еслиб я его кинул на форму. Например
Код:
procedure TMain.bot[i]Login(Sender: TObject);
begin
end;
|
|
|
|
|
 |
|
|
Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
|
|
|
|
Похожие темы
Комбинированный вид