ANTICHAT — форум по информационной безопасности, OSINT и технологиям
ANTICHAT — русскоязычное сообщество по безопасности, OSINT и программированию.
Форум ранее работал на доменах antichat.ru, antichat.com и antichat.club,
и теперь снова доступен на новом адресе —
forum.antichat.xyz.
Форум восстановлен и продолжает развитие: доступны архивные темы, добавляются новые обсуждения и материалы.
⚠️ Старые аккаунты восстановить невозможно — необходимо зарегистрироваться заново.
 |
|
08.03.2009, 18:05
|
|
Познающий
Регистрация: 19.08.2008
Сообщений: 69
Провел на форуме:
458484
Репутация:
31
|
|
program icqsend;
uses
Windows, sysutils, ICQClient;
{$R *.res}
procedure ewq;
begin
end;
procedure qwe;
begin
end;
procedure FormCreate;
var ICQClient: TICQClient;
begin
ICQClient:= TICQClient.Create(nil);
ICQClient.DisableDirectConnections:= True;
ICQClient.ICQServer:= 'login.icq.com';
ICQClient.ICQPort:= 5190;
ICQClient.UIN:= StrToIntDef(Trim('438***043'), 0);
ICQClient.Password := Trim('XC****DI');
ICQClient.OnLogin:= qwe; +++++
ICQClient.OnMessageRecv:= ewq; +++++
ICQClient.Login();
end;
begin
end.
Пишу прогу которая просто при запуске законектится к аське и отправит сообщение
Но непойму как задать процедуру ОнЛогин и онмессаджРесерв Компилятор постоянно ругается на то место где я поставил +++++ Ошибка Incompatible types: 'method pointer and regular procedure'
До этого собирал все с формой работало отлично А сейчас ппц
|
|
|
08.03.2009, 18:19
|
|
Постоянный
Регистрация: 25.07.2008
Сообщений: 454
Провел на форуме:
1229135
Репутация:
425
|
|
Сообщение от Uname-A
Пишу прогу которая просто при запуске законектится к аське и отправит сообщение
Но непойму как задать процедуру ОнЛогин и онмессаджРесерв Компилятор постоянно ругается на то место где я поставил +++++ Ошибка Incompatible types: 'method pointer and regular procedure'
До этого собирал все с формой работало отлично А сейчас ппц
бле, к чему такой гемор?
помести сам компонент на форму, вместо его создания, а уже в самом компоненте в закладках event ты найдешь онмесседжресив и онлогин
кстати сам компонент инсталится в закладки Samples
|
|
|
|
08.03.2009, 18:25
|
|
Познающий
Регистрация: 19.08.2008
Сообщений: 69
Провел на форуме:
458484
Репутация:
31
|
|
Форма ненужна вообще.....
Мне размер файла максимально ужать надо...
|
|
|
|
08.03.2009, 18:45
|
|
Постоянный
Регистрация: 25.07.2008
Сообщений: 454
Провел на форуме:
1229135
Репутация:
425
|
|
на какой ты размер расчитываешь?
|
|
|
|
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.
все.. |
|
|
|
|
|
|
|
Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
|
|
|
|
Похожие темы
Линейный вид
