http://geekinformed.com/ ru Geek community DataLife Engine http://geekinformed.com/87-ticqclient.html http://geekinformed.com/87-ticqclient.html В ICQClient.pas в паблик добавлял

procedure MaskIntoSomething(Capabilities : String; BuildNum: LongWord; ExtInfoTime: LongWord = $0000000E; ExtStatusTime : LongWord = $0000000F);

и после процедуры MaskInfoQIP добавлял эту:

procedure TICQClient.MaskIntoSomething(C apabilities : String; BuildNum : LongWord; ExtInfoTime : LongWord = $0000000E; ExtStatusTime : LongWord = $0000000F);
begin
CAPS := caps_aim_interoperate + caps_avatar +
caps_aim_server_relay + caps_aim_send_file +
caps_aim_is_icq + caps_utf8 +
caps_file_transfer + caps_typing_notifications + Capabilities +
caps_xtraz;
InfoTime := BuildNum;
ExtInfoTime := $0000000E;
ExtStatusTime := $0000000F;
UpdateInfoAndStatusTimes;
UpdateCapabilities;
end;

И на место Capabilities ставилю идентификатор клиента которого мне надо.

ICQClient1.MaskIntoSomething(caps_cl_kopete, 11);
но делфи на это ругается типа оно таких не знает
полный список капабалити и идентификаторов
Идентификаторы:
ANDRQclientID = $FFFFFF7F;
MIRANDAclientID = $FFFFFFFF;
MIRANDAclientID2 = $7FFFFFFF; //new
STRICQclientID = $FFFFFF8F;
YSMclientID = $FFFFFFAB;
ICQ2GOclientID = $FFFFFFAC;
MICQclientID = $7D0001EA;
MICQ2clientID = $FFFFFF42;
SIMclientID = $426DE16C;
ALICQclientID = $FFFFFFBE;
LICQclientID = $7D000000;
QIPclientID = $FBFFFFFF;
JimmclientID = $FFFFFFFE;
RnQclientID = $FFFFF666;

Capabilities:
#$97#$B1#$27#$51#$24#$3C#$43#$ 34#$AD#$22#$D6#$AB#$F7#$3F#$14 #$09, // Is Trillian
#$09#$49#$13#$44#$4C#$7F#$11#$ D1#$82#$22#$44#$45#$53#$54#$00 #$00, // Is kxICQ2
#$DD#$16#$F2#$02#$84#$E6#$11#$ D4#$90#$DB#$00#$10#$4B#$9B#$4B #$7D, // MacICQ
#$09#$49#$13#$49#$4C#$7F#$11#$ D1#$82#$22#$44#$45#$53#$54#$00 #$00, // LICQ
#$51#$AD#$D1#$90#$72#$04#$47#$ 3D#$A1#$A1#$49#$F4#$A3#$97#$A4 #$1F, //QIP PDA(Simbian)
#$7C#$73#$75#$02#$C3#$BE#$4F#$ 3E#$A6#$9F#$01#$53#$13#$43#$1E #$1A, //QIP Infium
#$4B#$6F#$70#$65#$74#$65#$20#$ 49#$43#$51#$20#$20#$00#$0C#$00 #$01 //Kopete ICQ
#$4D#$69#$72#$61#$6E#$64#$61#$ 4D#$00#$05#$00#$64#$00#$03#$07 #$00, //miranda
#$53#$49#$4D#$20#$63#$6C#$69#$ 65#$6E#$74#$20#$20#$0#$9#$4#$8 0, //SIM
#$F2#$E7#$C7#$F4#$FE#$AD#$4D#$ FB#$B2#$35#$36#$79#$8B#$DF#$00 #$00, //Trillian
#$56#$3F#$C8#$9#$B#$6F#$41#$51 #$49#$50#$20#$32#$30#$30#$35#$ 61, //QIP
#$4A#$69#$6D#$6D#$20#$30#$2E#$ 35#$2E#$31#$62#$00#$00#$00#$00 #$00, //jimm
#$56#$6D#$49#$43#$51#$20#$76#$ 30#$2E#$31#$2E#$34#$62#$00#$00 #$00, //vmicq
как правильно их использовать?]]> admin Sat, 03 Dec 2011 03:42:02 +0200 http://geekinformed.com/86-ttreeview-i-tadoquery-kak-sformirovat-derevo-na.html http://geekinformed.com/86-ttreeview-i-tadoquery-kak-sformirovat-derevo-na.html
Насколько я знаю, дерево формируется так:

var
Node : TTreeNode;
begin
Node := tv.Items.Add(nil, '1');
Node := tv.Items.AddChild(Node, '1.1');
Node := tv.Items.Add(Node, '1.2');
Node := tv.Items.Add(tv.Items[0], '2');
Node := tv.Items.Add(Node, '3');
Node := tv.Items.AddChild(Node, '3.2');
Node := tv.Items.AddChildFirst(Node.Parent, '3.1');
end;

А данные из базы берутся вроде бы так:

with TADOQuery do
begin
Open;
First;
while not Eof do
begin
Node := tv.Items.Add(nil, FieldByName('CompanyName').AsString);
Next;
end;
end;

Пробовал это связать в процедуре TMainForm.FormCreate, но что-то не доходит до меня, как это правильно сделать. Помогите, пожалуйста, кто в этом разбирается.]]> admin Sat, 03 Dec 2011 03:41:55 +0200 http://geekinformed.com/85-plug-in-v-delphi-slozhno.html http://geekinformed.com/85-plug-in-v-delphi-slozhno.html Или может литература какая-нибудь, но только чтобы на доступном языке?]]> admin Sat, 03 Dec 2011 03:41:48 +0200 http://geekinformed.com/84-objfree-ili-freeandnilobj.html http://geekinformed.com/84-objfree-ili-freeandnilobj.html
Вопрос довольно простой , кто из вас что использует для уничтожения объектов? Obj.Free или FreeAndNil(Obj)? Что до меня, я всегда, с определённого момента использую только FreeAndNil потому как вижу в нем много преимуществ. А что используете вы и почему ?]]> admin Sat, 03 Dec 2011 03:41:41 +0200 http://geekinformed.com/83-avast-vs-tidhttp-v-chem-problema.html http://geekinformed.com/83-avast-vs-tidhttp-v-chem-problema.html
имя вируса: Win32:Banker-BO[Tri]
тип вируса: Троян
версия VPS: 090720-1

Сталкивались ли вы с такой проблемой? Чем можно заменить TidHTTP? Почему остальные антивирусы молчат?]]> admin Sat, 03 Dec 2011 03:41:33 +0200 http://geekinformed.com/82-winapi.html http://geekinformed.com/82-winapi.html admin Sat, 03 Dec 2011 03:41:25 +0200 http://geekinformed.com/81-simulyaciya-zapuska-delphi.html http://geekinformed.com/81-simulyaciya-zapuska-delphi.html Первым делом полез дальше в инет за крякнутым компонентом или полноценным. Ни тот ни другой в итоге не были идентичны демоверсии и некоторых используемых мной ранее функций в них не было, хотя и описанная версия совпадала.
Сейчас остается только переделать код под другой аналогичный по функциональностям компонент =)

но всё же интересует мысль: нельзя ли без самого запуска Delphi, обмануть эту программу и сделать какую-нибудь симуляцию запущенного Delphi? =)]]> admin Sat, 03 Dec 2011 03:41:18 +0200 http://geekinformed.com/80-programmistyyevolyucionnyj-podxodtekst-zheny.html http://geekinformed.com/80-programmistyyevolyucionnyj-podxodtekst-zheny.html http://users.livejournal.com/akme_/profile?mode=full):
Я чуть подправил для удобства чтения =)

----------------------------------------------------------------------------------------
Я тут смотрела фотки с нового года для детей сотрудников и поняла - основой нового общества станут программисты. То есть, как после атомного взрыва выживут тараканы и крысы, так после постмодернизма, “смерти взрослых”, социетального кризиса и окончательного исчезновения реальности выживут программисты. Я практически уверена. Они будут господствующей разумной формой жизни на Земле, потому что, именно они обладают всеми признаками обеспечивающими выживание.

Во-первых
Программисты это одна из немногих социальных групп, которые сейчас производят продукт. Причем продукт такой, без которого современный мир существовать не в состоянии. А как мы помним из Смита и Маркса - продукт это архиважная фигня, и тот, у кого он есть практически не может продуть в борьбе за блага.

Во-вторых
Программисты сохраняют матримониальное поведение, чем так же повышают свои шансы на выживание. В отличие от остальных они создают семьи, которые как известно, являются наиболее устойчивой социальной формой существования.

Идея о том, что программисты это жуткие тщедушные, занудные задроты, которые естественным образом выпадают из процесса размножения - ошибочна. Во-первых, они бывают разные, во-вторых, разбирают всех! Честно вам говорю. Причем жутких и тщедушных быстрее остальных. Потому что, на самом деле, программист это весьма подходящая для семейной жизни штуковина! Он безобиден, тих, верен и зарабатываем много денег. А самое главное, программист хочет жениться, потому что добывать секс и еду в борьбе на вольных выпасах ему не интересно, лениво, да и просто страшно. В результате он с радостью покоряется первой же девушке, которая решит отвести его в ЗАГС.

Разводится программист тоже только в одном случае - если сходит на психологический тренинг, но это бывает крайне редко. Да и то, он потом сразу же снова женится, на чем-то аналлогичном. В результате программистские семьи просто нереально показательно крепки.

Третье
Как известно, залогом выживания вида является размножение. И, я скажу вам, програмисты размножаются! У нас в конторе на 80 сотрудников уже около 60 детей. У многих по двое, у некоторых по трое.

Происходит это потому, что средний программист уютнее и увереннее всего ощущает себя в положении “уткнувшись в комп”. Он допоздна торчит на работе, а когда приходит домой, то снова принимает удобное положение. В это время его жена стервенеет от невнимания и скуки. Первый год она надеется, что все изменится, второй - скандалит, на третий плюет, рожает и начинает развлекаться самостоятельно ребенком. Для программиста ребенок это практически единственный способ сделать так, чтобы жена была относительно удовлетворена и отстала от него. Правда приколюхи хватает года на два, потом ей снова становится скучно и тогда заводят второго, благо денег хватает.

В общем, пока крутые доминирующие самцы хлещутся в страстях, пьянках и интригах программисты тихо делают свое дело. Угадайте, чьих детей в итоге будет больше?]]> admin Sat, 03 Dec 2011 03:41:11 +0200 http://geekinformed.com/79-delphi-2010-i-c-builder-2010-vyxodyat-25-avgusta.html http://geekinformed.com/79-delphi-2010-i-c-builder-2010-vyxodyat-25-avgusta.html http://habrahabr.ru/blogs/delphi/66711/

Выход CodeGear Studio 2010, Delphi 2010, C++ Builder 2010 и Delphi Prism 2010 намечен на 25 августа. Некоторые новые возможности программ показаны на видео:
http://vkontakte.ru/video-91322_120686967

Нововведений немного, но многие из них существенны.
Так, самая главная особенность новой версии Делфи и Билдера — поиск по всему (IDE Insight) позволяет из одного окошка искать сразу по компонентам, проектам, опциям и меню.
Далее по списку:

* Настраиваемое меню последних изменений (Recent) — теперь количество строк в списке можно настроить, а ненужные проекты — удалить.
image
* Автоформат кода (Code formatting) — код форматируется, как вы захотите.
* Старая панель компонентов, как в Делфи 7 — то, что все так долго хотели. Эта панель, однако, не зависит от существующей, можно включать сразу обе.
* Компилятся в фоне (Background compilation) — теперь во время компиляции нет модального окошка, и можно продолжать изменять код программы.
* Отладка потоков (Threads debugging) — точки останова работают и для потоков.
* Инспектор классов для C++ (C++ Class Explorer) — встроенный инспектор, наподобие ModelMaker.
* Удобное представление данных при отладке (Data vizialization in debugger) — теперь при просмотре значений переменных во время отладки, списки, к примеру, показываются в виде списков, а не в виде строк.
* Подсветка поиска и строка поиска (Search highlighting and search bar) — поиск по коду, как в современных браузерах, из строки, с подсветкой найденного.
* Новое отображение опций инспектора объектов (Object Inspector) — Булевы переменные теперь в виде галочки, а не выпадающего списка, а даты — в виде календаря
* Поддержка мульти-тача в Windows 7 (Multi-touch capabilities) — встроенная возможность писать программы для мульти-тач дисплеев.

Обновления, скорее всего, на этом не заканчиваются. За информацией о новых возвожностях сред можно следить на официальном сайте (http://www.embarcadero.com/rad-studio-2010/) или твиттере (http://twitter.com/EmbarcaderoTech).]]> admin Sat, 03 Dec 2011 03:41:05 +0200 http://geekinformed.com/78-vnimanie-vsem-ispolzuyushhim-delphi-c-4-po-7-33.html http://geekinformed.com/78-vnimanie-vsem-ispolzuyushhim-delphi-c-4-po-7-33.html
Проверьте свои версии Delphi и, если найдёте у себя SysConst.bak, выполните следующие действия:
1. Удалите SysConst.dcu
2. Скопируйте SysConst.bak в SysConst.dcu. Важно именно скопировать, а не переименовать, чтобы SysConst.bak тоже остался на диске — это убережёт систему от повторного заражения.]]> admin Sat, 03 Dec 2011 03:40:57 +0200