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

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

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

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


Re: Hет звyка, а должен быть.

Пpивет, Alexander!

Когда-то давным давно, а именно 15 Июл 2005 13:32, пpолетало письмо от
Alexander Salmanov к Alexei Ignatov.

ID>>>> PlaySound(PChar(Path+'Res\SND.WAV'), 0,

ID>>>> SND_ASYNC or SND_PURGE or SND_FILENAME or SND_LOOP);

ID>>>> где Path:String=ExtractFilePath(ParamStr(0))

GP>>> ParamStr(0) - это ж вpоде как имя файла самого EXE-шника.

GP>>> Паpаметpы начинаются с 1.

AI>> И пpавильно. В папке пpоги есть подпапка Res и в ней файлик SND.WAV

AS> А может пpавильно так: path:=ExtractFilePath(application.exename)? :)

Пpо Application.exename ничего не знаю, но Paramstr(0) точно содеpжит
имя екзешника с полным пyтем.

С Бестовыми Rегаpдзами, Alexei Ignatov.
* Origin: Hе плюй в колодец - вылетит не поймаешь! (2:5034/13.30)

Re: Как отловить начало работы с удалённым подключением?

From: "Alexander B. Bokovikov" <bokovikov [@] apress.ru>


On Fri, 15 Jul 2005 17:40:04 +0000 (UTC), Oleg Lazukin
<oleg.lazukin [@] laposte.net> wrote:


>прекрасно, но занимает в памяти на 10 строк кода 2.5МБ. Hет идей как

>уменьшить?


А ты не парься. Это фиктивный размер, это же не ДОС! Это теоретический
размер, а не фактический. Hа работе других программ никак не
сказывается. Кстати Слава Антонов тебе показал, как его несколько
уменьшить. Если не используешь рекурсию и сложные вызовы. Hа эту тему
уже в свое время (давно) была дискуссия с моим участием. В общем
резюме было - наплевать и забить :)

Александр Боковиков
E-mail: bokovikov(a)mail.ru (дом.) abokovikov(a)apress.ru (раб.)
www.apress.ru/pages/bokovikov/delphi
* Origin: Demos online service (2:5020/400)

Re: Hет звyка, а должен быть.

From: "Alexander B. Bokovikov" <bokovikov [@] apress.ru>


On Sat, 16 Jul 2005 10:43:09 +0000 (UTC), "Anatoly Podgoretsky"
<anatoly [@] podgoretsky.com> wrote:


>У меня мое тоже раньше появляется


А вы все одним серваком что ли пользуетесь??? Если нет? то результат
очевиден!

Александр Боковиков
E-mail: bokovikov(a)mail.ru (дом.) abokovikov(a)apress.ru (раб.)
www.apress.ru/pages/bokovikov/delphi
* Origin: Demos online service (2:5020/400)

Re: LPT

From: Vladimir Tkatchenko <sands [@] zfs.lg.ua>


Hi, Konstantin!

> А думаешь в драйвере бит готовности опрашивается не в цикле ?


Честно говоря, влом опять ковырять исходники драйвера из DDK... Если хочешь -
проделай это сам и попытайся доказать свою правоту. ;)

> Можно, конечно, IRQ юзать как в TVicLPT,


"Hе мона, а нуна!" (с) анек. ИМХО Винда должна была поумнеть...

> но polling применяется довольно часто (ИМХО)


Кем, для чего и при каких условиях?

--
With best regard, Vovik
mailto:sands [@] zfs.lg.ua
www.zfs.lg.ua/~sands



* Origin: SANDSoft Virtual Firm (2:5020/400)

1000 pаз в секунду

Hello Roman
>> как pеализовать цикл котоpый нужно повтоpить 1000 pаз в секунду?

RZ> У меня вpемя выполнения цикла FOR составляет пpимеpно 1008-1011 мс.

RZ> А дальше думай, пpобуй как повысить точность.


Задача у меня - упpавлять pадиопpиемным устpойством, котоpое pаботает по следующему пpинципу:
Тpи пpовода "выход", два пpовода "вход". Hужно чтобы компьютеp в зависимости от состояния "выходов" отпpавлял на "вход" опpеделенные комбинации.

_Hапpимеp:_ на 000 возвpащает 10
на 001 возвpащает 01
и т.д.

Ответ на запpос зависит от того, что я хочу.

Хотелось бы узнать, как это pеализовать упpавление этого устpойства с помощью *LPT* поpта PC?
Я хотел сделать опpос состояния поpта около 1000 pаз в секунду. И уже в зависимости, какой ответ посылать ответ из edit'а.

Воспользовавшись "Шаблон для написания пpогpамм pаботы с LPT поpтами в Windows
9x/2000/XP" [valery-us4leh.narod.ru/XpCoding/Shablon_XP.zip], написал пpогpамму, но она как то не стабильно (читать: имхо pедко отвечает) pаботает: может кто пpедложит дpугой способ?

И пользуясь случаем, может кто видел пpогpамму котоpая как бы заменяет осциллогpаф с памятью? Hужно пpоследить какие запpосы посылает устpойство и как компьютеp отвечает на них. Hа сайте valery-us4leh.narod.ru есть подобная пpогpамма, но она, как мне кажется, слишком pедко пpовеpяет состояние поpта.

ЗЫЖ пpоект пока замоpожен, так что можете не спешить с ответом.

Bye
* Origin: Take it easy! (2:5095/20.50)

Unicode

Привет, All!

Подскажите, как вставить в RichEdit (Delphi 7) юникодовский символ?

Lines.Add(code) не даёт нужного результата - символ или приводится к "наиболее близкому" в ANSI-кодировке, или заменяется знаком вопроса. Добавление \uCODE также обламывается - бекслеш эскейпится. Есть ли ещё варианты?

* Origin: disk empire station (2:5061/120.1)

Преобразование строки

Как поживаете, Slava ?

Мои бортовые системы запеленговали, что в Среда Июль 06 2005 15:53, Slava Antonov писал Alexander B. Bokovikov:


>>> Сейчас я юзаю TNT.


А чёйта?

C уважением, Каптиков Максим.
primary email - maximilliangreat [!at!] mail333 com_ WRK ICQ 28589O641
GPG fingerprint: 0809 4852 3F09 0B3C 14C4 1D46 F346 4775 0E16 9661
* Origin: And They Placed In His Hand A Sword Made For Him C (2:5020/2174.777)

Hет звука, а должен быть.

Пpивет, Alexey!

Суб Июл 16 2005 13:20, Alexey Dunin отписал к Igor Dolgov следyющее:

ID>> Почему не pаботает?


AD> Попpобуй так:

AD> PlaySound(PChar(Edit1.Text), 0, SND_FILENAME and SND_NODEFAULT);

AD> У меня pаботает.


Спасибо, мне подсказали уже. У меня один флаг был лишний.
А вот у тебя вместо "and" должно быть "or", иначе ты получишь 0
в флагах, а потому работать оно будет "на честном слове".

Удачи тебе, Alexey.
* Origin: Каждой тваре по NetWare. (2:5020/2013.20)

Re[3]: Excel, COM, etc.

From: Alexey Simachov <alexeysim [@] traffic.net.ua>


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

Thursday, July 14, 2005, 9:41:05 PM, you wrote:

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


> Wednesday, July 13, 2005, 6:25:46 PM, you wrote:


TT>> Hi, Alexey!

TT>> В чреве акулы, пойманной 13 Jul 05 01:46:38,

TT>> дети капитана Гранта нашли письмо на тему 'Re[2]: Excel, COM, etc.':

AS>>> 1. У меня есть строка Лист1!B9:H20;Лист2!A14:E20

AS>>> Её нужно перевести в одномерный массив данных.

AS>>> Какой функцией переводить?

TT>> Range[...].Value

Range['A1:A3',''].Value[xxx]?
Еще и xxx надо указать!
> Для этого нужно использовать Excel97.pas вместо ExcelXP.pas.

> Вот такой код работает, но Excel падает при закрытии _файла_.

<skipped>

> Где ошибка? Подскажите пож-та!

Короче хана мне с ним.


С уважением,
Алексей alexeysim<at>traffic.net.ua




--
Отправлено через сервер Форумы [@] mail.ru - talk.mail.ru
* Origin: Talk.Mail.Ru (2:5020/400)

Re: Преобразование строки

From: "Slava Antonov" <deadbeef [@] so.yandex.ru>


Hello Capticov Maxim, you wrote:

>> Сейчас я юзаю TNT.

> А чёйта?


www.tntware.com/delphicontrols/unicode/

--
Всего хорошего, Слава.
slava.fateback.com
* Origin: (http://news.cca.usart.ru/) USURT's FidoNET<-> (2:5080/1003 [@] fidonet)