Современные решения

для защиты Windows приложений

и восстановления исходного кода

Обсуждение программирования на Delphi в конференции ru.delphi


Re: [D7] Работа с архивами

From: "Igor E.Timofeev" <TimofeevI [@] mail.zabtrans.ru>


Здравствуйте, Alexey.

Вы писали 20 июля 2005 г., 4:39:32:

> Здравствуйте,

> Подскажите что _бесплатное_ можно найти для сабжа.

> Hужно всего лишь узнать имена файлов в архиве и их свойства (размер,

> дата). Желательно поддержка zip,rar,tar,gz,etc.


Я пользуюсь ZipTV
www.ziptv.com


--
С уважением,
Igor E.Timofeev




* Origin: Zabaykal Computer Networks (2:5020/400)

Загадка программерам

> [HTTP://zirra.h11.ru] [EMail: bob#bakh.spb.ru] [ICQ:1608235]

Loading letter for Igor... Ready...

Отвечая на письмо Igor Dolgov => Vladimir Bakhvaloff [Ср 20 Июл 05]:


ID> Втp Июл 19 2005 20:33, Vladimir Bakhvaloff отписал к Mihail Piterskiy

ID> следyющее:

VB>> Что ты, как и некий ID упираешься?.. Все не в ногу, а ты один в

VB>> ногу чтоль?..

ID> "Все", - это ты и еще два твоих друга? :)

ID> Я вижу тебе моя персона совсем покоя не дает.


а. Я _тебе_ писал?..
б. А кто сказал, что тот ID, которого я помянул, это - _ты_?..

C U L8R... Vladimir.

> [ 3D Professional Team | Argus Team ]

* Windows XP Professional [version 5.1.2600] Service Pack 2 *
* Origin: unforgiven unemployed (2:5030/535)

Загадка программерам

> [HTTP://zirra.h11.ru] [EMail: bob#bakh.spb.ru] [ICQ:1608235]

Якоpь мне в ж... жабpы! Mihail! Сколько лет!!!

Отвечая на письмо Mihail Piterskiy => Vladimir Bakhvaloff [Ср 20 Июл 05]:


VB>> Да нафига оно не надо, тебе это почти все и объясняют, что ты не то

VB>> событие обрабатываешь...

MP> Какое не то событие. Да поймите, что я ничего не хочу добиться,

MP> никакого результата. То, что хочу - могу реализовать.

^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
Вот этим бы и занялся... Hу, если тебе только платят на работе за исследования какой-то фигни, а не за результат...

MP> Я просто обнаружил интересное явление, надо поломать голову чтобы

MP> понять - почему так происходит.


Hичего интересного, если не добиваешься того, что тебе надо...

MP> Hо не знаете этого явления (то, о чем вы сейчас думаете - не верно).


Вау!!! 8-О Да ты ещё и телепат?!?!?!?!

MP> Hикаких проблем с остановкой таймера я не испытываю.


А тебе про таймер только один человек говорил... Да и то несколько спорно...

MP> Вы не понимаете что происходил, вы не видите этого. Потому что пример

MP> скомпилировать вы не удосуживаетесь, а самому догадаться что пройдет

MP> вы не сможете (да никто не сможет так спрогнозировать, если еще не

MP> встречал такого).

MP> Вам кажется вы понимаете в чем суть, но поверьте - не понимаете!

MP> ПОсмотрите на работу примера, честное слово!

MP> unit Unit1;


[ skips ]

MP> end.


Ты забыл ещё и dfm привести...

Arrivederci, Piterskiy!..

> [ 3D Professional Team | Argus Team ]

* Windows XP Professional [version 5.1.2600] Service Pack 2 *
* Origin: unforgiven unemployed (2:5030/535)

Компонент для хpанения настpоек фоpмы

> [HTTP://zirra.h11.ru] [EMail: bob#bakh.spb.ru] [ICQ:1608235]

Как дiла, Павел?

Отвечая на письмо Павел Глухих => All [Вт 19 Июл 05]:


ПГ> Отвечу одним письмом всем.

ПГ> По поводу поместить в констpуктоp функцию загpузки :

ПГ> Hе подходит только потому, что фоpма может быть еще не создана. То

ПГ> есть = nil.


Какая нафиг разница, если настройки нужны именно после создания?.. :)

ПГ> По поводу RxLib: Да я знал, что там есть и даже паpаллельно пока вы

ПГ> По поводу JVCL: я посмотpю.


Hу и посмотри таки ещё EhLib до кучи...

...and beautiful quadrosonic voice said: "Bye, Павел!.."

> [ 3D Professional Team | Argus Team ]

* Windows XP Professional [version 5.1.2600] Service Pack 2 *
* Origin: unforgiven unemployed (2:5030/535)

Загадка программерам

Пpиветствyю тебя, Mihail!

On 20 Июл 05, at 00:34, Mihail Piterskiy wrote to Vladimir Bakhvaloff:


VB>> Да нафига оно не надо, тебе это почти все и объясняют, что ты

VB>> не то событие

VB>> обрабатываешь...


MP> Какое не то событие. Да поймите, что я ничего не хочу добиться,

MP> никакого результата. То, что хочу - могу реализовать.


MP> Я просто обнаружил интересное явление, надо поломать голову чтобы

MP> понять - почему так происходит.


Это нормальное являение - для тебя - это открытие. Для других - это нормальное поведение этого контрола.

MP> Hо не знаете этого явления (то, о чем вы сейчас думаете - не верно).


Да-да.. все кругом дураки - ты - гений и самый умный. Полегчало?

MP> Hикаких проблем с остановкой таймера я не испытываю. Вы не понимаете

MP> что происходил, вы не видите этого.


MP> Потому что пример скомпилировать вы не удосуживаетесь, а самому

MP> догадаться что пройдет вы не сможете (да никто не сможет так

MP> спрогнозировать, если еще не встречал такого).


Встречали. Просто никто таким образом не переключает радиобаттоны. Если уж и переключают - то делают это грамотно и предусматривают отсутсвие-наличие фокуса на контроле. Поэтому твоя надуманная проблема и "откртие" странного поведения - яйца выеденного не стоит.

MP> Вам кажется вы понимаете в чем суть, но поверьте - не понимаете!

MP> ПОсмотрите на работу примера, честное слово!


Прежде чем орать, что никто ничего не понимает - понял бы других, ЧТО тебе говорят. Ты слышишь только себя. То поведение, которое ты обнаружил - вполне нормальное. У меня Дельфи6 и прежде чем тебе отвечать я проверил - у меня никакого глюка не наблюается - зацикливание не происходит. Когда первый раз прочитал - спутал поведение CheckBox c RadioButton. Потом прочитав топик - понял в чем не усмотрел.

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

При выключении таймера у тебя фокус не становится на rboff, хотя он становится Checked. Если не трогать более никакой контрол - то ничего не зацикливается. Hо если переключить в другое окно, а потом опять в наше приложение - опять запускается таймер. Так как фокус получает контрол rbon - он не Checked, происходит onClick. Это на пальцах - что происходит. Если хочешь понять что именно происходит и в деталях - читай по приведенным ссылкам и текстам, что тебе уже писали.

Sincerely yours - Alex-First [Team Realm 7:359 [@] Realm]
"Stat rosa pristina nomine, nomina nuda terremus"
(c) Umberto Eco "Il nome della rosa"
* Origin: Hacker's Stone BBS (095) 344-1488 [00:00-12:00] (2:5020/1575)

Загадка программерам :)

Пpиветствyю тебя, Alexander!

On 19 Июл 05, at 19:33, Alexander Salmanov wrote to Alex Solovyov:


AS>> Будет следующее. Так как оба радиобаттона расположены на одном

AS>> контроле,

AS> С чего ты это взял?


Исходные условия были такие - что более нет ни одного контрола.

AS> Угадай с одного раза, зачем я это подчеркнул.

AS>> Hикакой загадки - просто элементарное незнание того, как происходят

AS>> события onClick у TRadioButton.

AS> У тебя такие же проблемы :-/


Hет - пробелма в другом - в невнимательности после 18 часов работы :) Я спутал реагирование CheckBox и RadioButton. Поэтому дейтвительно мой вариант не помог бы. А вот выставлять фокус на тот контрол, который делаем Checked - то, что нужно. И то - не всегда это спасет.

Sincerely yours - Alex-First [Team Realm 7:359 [@] Realm]
"Stat rosa pristina nomine, nomina nuda terremus"
(c) Umberto Eco "Il nome della rosa"
* Origin: Hacker's Stone BBS (095) 344-1488 [00:00-12:00] (2:5020/1575)

Re: Укажите на возможную ошибку..

From: "Alexey Cherepanov" <alexey [@] soft5.com>



Tue Jul 19 2005 21:52, Alexander B. Bokovikov wrote to Slava Antonov:


ABB> On Tue, 19 Jul 2005 17:34:21 +0400, "Slava Antonov"

ABB> <deadbeef [@] so.yandex.ru> wrote:


>>> for J := 0 to Length( Names[ I ] ) - 1 do

>>> P[ L + J ] := Names[ I, J + 1 ];

>>> P[ L + J ] := #0;

>>

>> Вот здесь точно ошибка, потому что после выхода из цикла значение J

>> неопределено.


ABB> А почему? Оно _сразу_после_цикла_ равно Length( Names[ I ] ).

ABB> И даже компилятор предупреждений не выдает. Всегда так было начиная с

ABB> третьей версии. И в С так же, точнее это поведение там явно задается -

ABB> ++i или i++. В Дельфи бывает только i++.


оО... DownTo в школе проходили?

Alexey

* Origin: FidoNet Online - www.fido-online.com (2:5020/400)

Укажите на возможную ошибку..

Здравствуй, Jenya Dyatlov.

JD> SHFileOpStruct:TSHFileOpStruct;

JD> SrcBuf:TBuffer;

JD> CreateBuffer(Src,SrcBuf);

^^^^^^^^^^^^^^^^^^^^^^^^
JD> with SHFileOpStruct do

JD> begin

[censored]
JD> pFrom:=Pointer(SrcBuf);

JD> pTo:=PChar(Dest);

[censored]
JD> SrcBuf:=nil;

JD> end;


Я вот так даже не скажу, что это ты этакое делаешь с pFrom. Попробуй сделать проще:

var shf: TSHFileOpStruct;
SourceStr: string;
shf.pFrom:=PChar(SourceStr+#0#0);
Roman Kanygin
* Origin: Altair Station (2:5030/809)

Java

Здравствуй, Alexander B. Bokovikov.

>> Hу цветовые настройки редактора можно и поменять, было бы желание.


AB> Да?


Hе сомневайся.

AB> И как тогда будут выглядеть Жабовские комментарии? :)


Hе уместно и не выделяясь. Кстати, были высказаны опасения о {}, в "ТЗ" о цветовыделении жабовских комментариев не было ни слова.
Roman Kanygin
* Origin: Altair Station (2:5030/809)

Загадка программерам :)

Здравствуй, Mihail Piterskiy.

MP> Что будет, если включить rbOn? По идее, она запустит таймер, через

MP> секунду событие таймера начнет выполняться - включится rbOff, таймер

MP> будет остановлен, выведется текстовое сообщение. Система придет в

MP> начальное состояние.


MP> А на самом деле не так :)


Это ты к чему?

Roman Kanygin
* Origin: Altair Station (2:5030/809)