Форум «Всё о Паскале» > Массив компонент

Помощь - Поиск - Пользователи - Календарь

Форум «Всё о Паскале» > Delphi, Assembler и другие языки. > Delphi

Unconnected

25.01.2009 23:26

Допустим,нужно много копий одного компонента и возможность обращения к свойствам любого из них. Как это можно реализовать?

volvo

26.01.2009 0:35

Что именно тебя смущает? Что это массив компонентов? Напрасно: "DRKB -> VCL -> TEdit, TSpinEdit -> Массив Edit-компонентов" приведен пример использования таких массивов.

Unconnected

26.01.2009 14:36

При использовании такого метода получается, что все Edit'ы уже должны находиться на форме, так? А мне нужно, чтобы было много компонентов без помещения их на форму... Конкретно icqclient.

mas3:array[1..m] of ticqclient;

Я сначала попробовал так, но при обращении к элементу, например mas3[4].login вылетает ошибка Acsess Violation. Хотя просто icqcliet1.login всё нормально..

volvo

26.01.2009 15:14

Цитата

Просто icqclient1 у тебя лежит на форме, то есть, конструктор его тебе (вручную) вызывать не надо. Если же у тебя массив компонентов, НЕ присутствующих на форме - то перед обращением к методу требуется вызвать конструктор (что там у TIcqClient за конструктор? Create?)... Что-то вроде

mas3[4].Create(nil); // Ну, или как там конструктор называется...
mas3[4].UIN := ...
mas3[4].Password := ...
mas3[4].Login;

Unconnected

26.01.2009 15:24

Сделал в цикле:

  for z:=1 to i do
  begin
    mas3[z].create(nil);
    mas3[z].uin:=.....;
    mas3[z].password:=.....;
    mas3[z].login;
  end;

И опять Acsess Violation..Показывает на строку с конструктором. Может, не Create, а ещё что-то, как узнать?

Unconnected

26.01.2009 16:18

Кстати, если просто написать TIcqClient.create(nil), то всё нормально..

volvo

26.01.2009 16:19

Блин... FPC-шная привычка... Не так, конечно, это не Дельфи-way... Вот так:

mas3[z] := TIcqClient.create(nil);

Unconnected

26.01.2009 16:23

Спасибо!

Unconnected

29.01.2009 19:41

Ещё проблема... На форме у нас компонента нет. А если, допустим, нужно обработать событие OnMessageRecv, что делать?

volvo

29.01.2009 20:58

В класс формы добавляешь свой обработчик:

procedure TForm1.myOnMessageRecv(Sender: TObject; Msg, UIN: String);
begin
  // делаешь то, что тебе надо
end;

и присваиваешь это событие конкретному экземпляру после Login:

  ...
  mas3[z].login;
  mas3[z].OnMessageRecv := myOnMessageRecv;
  ...

Unconnected

30.01.2009 14:28

Спасибо, работает

Unconnected

11.02.2009 19:09

Теперь возникла небольшая проблема, на коде

Код

mas3[z].Onserverdisconnect:=myOnserverdisconnect;

вылетает Incompatible types: 'Parameter lists differ'..

volvo

11.02.2009 23:43

Как описывал myOnserverdisconnect покажи...

Unconnected

12.02.2009 19:15

Код

Procedure MyOnserverdisconnect(sender:TObject);

Эта процедура описана в модуле главной формы, но вызывается из потока..

Код

mas3[z].Onserverdisconnect:=form1.myOnserverdisconnect;

Добавлено через 7 мин.
Всё,я догадался,в чём проблема, описание MyOnServerdisconneсt не совпадало с описанием Onserverdisconnect в TIcqClient. Надо было так:

Код

Procedure MyOnserverdisconnect(sender:TObject;Reason: Integer; Description: string);

Unconnected

13.02.2009 21:06

Стала возникать ошибка на строке

Код

Procedure myonlogin(sender:tobject);

в классе формы. Ошибка

Цитата

[Pascal Error] Unit1.pas(95): E2065 Unsatisfied forward or external declaration: 'TForm1.myonlogin'

.

Использую в

Код

mas3[z].OnLogIn := myOnLogIn;

Код

Procedure myonlogin(sender:TObject);
begin
...
end;

Попробовал даже объявить новый класс и добавить обработчик туда, ошибка не исчезла.. Причём когда только добавил обработчик на событие - всё работало, а что потом произошло..

volvo

13.02.2009 21:48

Цитата

Попробовал даже объявить новый класс и добавить обработчик туда, ошибка не исчезла..

Зачем новый класс? У тебя ж в сообщении об ошибке ясно сказано, что должно быть:

Procedure TForm1.myonlogin(sender:TObject);
begin
...
end;

, компилятор тебе говорит, что он не нашел реализации этого метода...

Unconnected

13.02.2009 22:07

Благодарю,работает(как же блин всё просто оказывается)...

Ещё один сопутствующий вопрос: в TIcqClient событие "насильственного" отключения от сервера(по инициативе сервера) - это OnServerDisconnect как я понял?

volvo

13.02.2009 22:18

Цитата

событие "насильственного" отключения от сервера(по инициативе сервера) - это OnServerDisconnect

Да, оно самое...

Unconnected

14.02.2009 20:40

А вот допустим если мне нужно узнать, находится ли мой номер в онлайне, можно сделать так:

if not(mas3[valid1[ab]].LoggedIn) then ...

volvo

14.02.2009 23:39

Ну, откуда же я знаю, что такое у тебя valid1, например? Вообще принцип правильный, надо проверять поле LoggedIn...

Unconnected

17.02.2009 14:12

..при ближайшем знакомстве с компонентом TIcqClient я начал понимать, что местами он ну очень неудобный... Т.е. в него вложено много всего того, что мне вообще не нужно, а это не лучшим образом сказывается на производительности. Есть ли возможность работать с протоколом напрямую, без всяких компонентов, т.е. просто кодом делать то, что нужно? Протокол ICQ закрытый, насколько я знаю..

volvo

17.02.2009 15:17

Цитата

Протокол ICQ закрытый, насколько я знаю..

Неправда. С 5-го марта 2008 OSCAR открытый (но не свободный !!!) протокол: Wiki: OSCAR (протокол), там же ссылки на спецификацию...

Unconnected

17.02.2009 15:36

http://dev.aol.com/aim/oscar/

Вот это да.. Мне это только года через 4 читать)) Лучше из компонента всё ненужное попробую выбросить..

Unconnected

10.03.2009 21:56

В TIcqclient есть процедура смены информации номера. Входные параметры на рисунке:

ScreenShot

Так вот, на скриншоте видно, что параметр Gender, например (это пол, и некоторые другие) типа byte или word.. Какая система обозначений применяется?

volvo

10.03.2009 22:33

Ну, с Gender-ом все просто:

  FGender := GetInt(Pkt, 1); // The user's gender. 1 = female, 2 = male, 0 = not specified.

, с TimeZone чуть сложнее:

Цитата

Чтобы сконвертировать TimeZone в нормальное представление(типа +2:00), вы должны сделать следующее:

var
  S: String;
// ...
S := IntToStr(- ShortInt(TimeZone) div 2) + ':' + IntToStr(Abs(ShortInt(TimeZone) mod 2 * 30));

, а страны представляются вот так:

const
  Countries: array[0..242] of record Ident: Word; Value: String end = ...

, где Value представляет название страны, для которой телефонный код хранится в Ident. К примеру, 1 = USA, 7 = Russia, 711 = Uzbekistan, и так далее... Для конвертации кода страны в название есть функция

function CountryToStr(Value: Word): String;

, кстати...

Unconnected

11.03.2009 14:28

Про TimeZone не совсем понял.. Нормальное представление - это +2:00, к примеру, а входной параметр имеет тип byte, он же такую запись не примет, правильно..?

volvo

11.03.2009 14:32

Правильно. Именно поэтому чтобы ПРЕОБРАЗОВАТЬ значение TimeZone к привычному, надо произвести вышеописанную процедуру.

Unconnected

11.03.2009 21:15

Ясно. Ещё про страны: вот, допустим, выбор страны у меня в combobox'е, обязательно руками вбивать все 242 страны или есть какая-то структура специальная для выбора?(обленился я совсем

) Есть же ComboBox для шрифтов, где они уже заложены в компонент..

Цитата

const
Countries: array[0..242] of record Ident: Word; Value: String end = ...

Здесь после равно идёт перечисление стран, так ведь?

Всё, я понял, это в icqworks.pas все страны и вбиты

Unconnected

12.03.2009 19:31

volvo, возможно, я не прав, но тебе не кажется, что это

Цитата

Чтобы сконвертировать TimeZone в нормальное представление(типа +2:00), вы должны сделать следующее:
var
S: String;
// ...
S := IntToStr(- ShortInt(TimeZone) div 2) + ':' + IntToStr(Abs(ShortInt(TimeZone) mod 2 * 30));

преобразует целочисленное значение (которое нужно в качестве входного параметра процедуре) в запись +2:00? А нужно-то наоборот. Или я опять что-то не понял..

volvo

12.03.2009 21:01

Ну, если я не ошибся, то обратное преобразование (из th и tm в переменную типа byte) будет таким:

b := byte(-2 * shortint(th)) + (tm div 30) * (1 - 2 * (byte(th >= 0)));

Только учти один особый случай... Поскольку 0 знака не имеет, то время -0:30 должно кодироваться при th = 0 и tm = -30.

Unconnected

13.03.2009 21:10

Мда, вот неудача.. Несколько дней писал интерфейс, а SetSelfInfo возьми да и не заработай..

Код

  form1.ICQClient1.UIN:=*******;
  form1.icqclient1.Password:='********';
  form1.icqclient1.Login;
  form1.ICQClient1.SetSelfInfo(nickname,firstname,lastname,email,city,state,phone,fax,
   & nbsp;street,cellular,zip,country,timezone,publish,age,gender,homepage,birthyear,
birthmonth,birthday,
    lang1,lang2,lang3,about,autoriz,web);
  form1.icqclient1.logoff;

Логин проходит нормально. После этого если вбить номер в поиске QIP, например, то информация та же самая..

volvo

13.03.2009 21:36

SetSelfInfo - это что? Нет такого метода в TICQClient, есть SetSelfInfoGeneral, есть SetSelfInfoMore...

Unconnected

13.03.2009 21:54

А у меня есть

TIcqClient 1.34

http://xmages.net/out.php/i142119_.JPG

Попробую-ка по частям инфо вбивать...

Добавлено через 17 мин.
setselfinfogeneral(...); - тоже не меняет..

Unconnected

14.03.2009 22:08

А ларчик просто открывался.. После логина нужно было ждать около 5 секунд и тогда уже менять информацию..

Unconnected

19.03.2009 15:58

Ещё одна небольшая неувязка - индекс, передаю в процедуру '123', например, а в номере меняется на '842072068'..

Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.