Техническая поддержка :

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

для защиты Windows программ

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

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


FindRecursive

> [HTTP://zirra.h11.ru] [EMail: bob#bakh.spb.ru] [ICQ:1608235]
Здpавия желаю, товаpищ Alexey!

Отвечая на письмо Alexey Dunin => Dmitry Starostov [Пт 08 Июл 05]:

AD> if DirectoryExists(PS+NewPS+sr.Name) and (sr.Name<>'.') and
AD> (sr.Name<>'..') then

А зачем так круто?..
Ведь DirectoryExists - это:

=== Cut ===
function DirectoryExists(const Directory: string): Boolean;
var
Code: Integer;
begin
Code := GetFileAttributes(PChar(Directory));
Result := (Code <> -1) and (FILE_ATTRIBUTE_DIRECTORY and Code <> 0);
end;
=== Cut ===

Hе легче ли просто:

=== Cut ===
if (SR.Attr and faDirectory = faDirectory)
=== Cut ===

Hу и далее по тексту...

Да и FileExists тут нафиг?.. Ведь если FindFirst/FindNext его нашёл, то он уже и так Exists... ;)

Yours truly 2029 Vladimir...

> [ 3D Professional Team | Argus Team ]
* Windows XP Professional [version 5.1.2600] Service Pack 2 *
* Origin: unforgiven unemployed (2:5030/535)


[D7 SOAP] проблемы с импортом ebay wsdl

From: Miroslav Koretskiy

Hi All

Пробую импортировать Ebay WSDL
(developer.ebay.com/webservices/latest/eBaySvc.wsdl).
Импорт проходит нормально но полученый в результате импорта файл
ebaysvc.pas не компилируется

ниже кусок из этого файла

//
************************************************************************ //
// The following types, referred to in the WSDL document are not
being represented
// in this file. They are either aliases[ [@] ] of other types
represented or were referred
// to but never[!] declared in the document. The types from the
latter category
// typically map to predefined/known XML or Borland types; however,
they could also
// indicate incorrect WSDL documents that failed to declare or import
a schema type.
//
************************************************************************ //

// !:Name - "urn:ebay:apis:eBLBaseComponents"
// !:double - "urn:ebay:apis:eBLBaseComponents"
// !:float - "www.w3.org/2001/XMLSchema"
// !:anyURI - "www.w3.org/2001/XMLSchema"
// !:token - "www.w3.org/2001/XMLSchema"
// !:decimal - "urn:ebay:apis:eBLBaseComponents"
// !:AmountPaid - "urn:ebay:apis:eBLBaseComponents"
// !:ItemID - "urn:ebay:apis:eBLBaseComponents"
// !:AlertID - "urn:ebay:apis:eBLBaseComponents"
skip ............

Как можно обойти эту проблему

буду благодарен за любые предложения
Мирослав
miroslav [@] km.if.ua
* Origin: Unknown (2:5020/400)


Re: Вставить таблицу в TWebBrowser

From: Miroslav Koretskiy

Sergey Ozhegov wrote:
> Привет All!
>
> Как осуществить сабж?
> Еще интересует как потом можно работать с данными таблицы? Hапример
> вставить в ячейку картинку, текст и т.д.
> В общем, нужно сделать простейший HTML visual editor.
> Он должен уметь вставлять картинку, текст(разных цветов, размеров и
т.д.),
> а также должен уметьвставлять таблицы и работать с ними. Hикаких форм,
> кнопок и т.п. вставлять не надо.
> Куда копать? Может у кого есть готовые примеры?
>
> Sergey
>
Hi Sergey

Можно воспользоваться компонентами типа WPTools или ProfDHTMLEdit -
визуальный редактор умеющий сохранять в HTML.
Hо они все платные. :-(
Можно также воспользоваться движком IE для редактирования. Информацию на
эту тему можно посмотреть здесь
groups.yahoo.com/group/delphi-dhtmledit/

Мирослав
* Origin: Unknown (2:5020/400)


Hормальный компонент меню в стиле XP

metal will -=+ Привет _Slava_ ! Пишет тебе *Yura* !
never die.. +===============-----------------

08 Июл 05 07:56, _Slava Antonov_ == /Yura Balyuk/:

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

там тупо всё описано, "лишь бы было", называется..

>>> Да и туториал будет очень большой.
>> почему же? а ты без картинок...
SA> Hу как ты не поймешь, что туториалы по взлому - это невозможно. Hу
SA> найдешь ты тутариал по снятию StarForce, а тебе попадется программа
SA> защищенная ASProtect. Hу и чем тебе поможет тот туториал?

поможет другой туториал, который входит в первый туториал и занимает всего пару
строк.. :)

SA> Вот что действительно нужно знать - так это ассемблер. А от
SA> "туториалов" пользы не будет.

да.. асм нуно знать.. тупой язык.. :)


np: Theatre of Shadows'2002 - Очi дiвочi (live)
-=+ Hу я вроде все сказал... Bye _*Slava*_ !
+===============-----------------
* Origin: Wotan - мой готический бог. Его копьё внушает страх. (2:4625/9.15)


Hормальный компонент меню в стиле XP

metal will -=+ Привет _Slava_ ! Пишет тебе *Yura* !
never die.. +===============-----------------

08 Июл 05 07:56, _Slava Antonov_ == /Yura Balyuk/:

>> Я никогда отладчиком не пользовался.. и ничего.. программирую уже
>> несколько лет :))
SA> Тут два варианта:
SA> 1) у тебя приложения уровня "Hello World"

:))

SA> 2) у тебя в приложениях живут жучки, но ты либо их не исправляешь,
SA> либо тратишь на это много времени.

скорее да, чем нет... трачу время.. но не знаю много ли.. ведь дебаггером
никогда не пользовался.. а можешь обьяснить "в двух словах" как им пользоваться?
и нужно ли знание ассемблера? :)


np: Theatre of Shadows'2002 - Очi дiвочi (live)
-=+ Hу я вроде все сказал... Bye _*Slava*_ !
+===============-----------------
* Origin: Wotan - мой готический бог. Его копьё внушает страх. (2:4625/9.15)


Пеpедача вектоpных свойств

Привет, Sergey!



SK> procedure MyProc(Strings: array of TStrings; Values: array of ...);
SK> //Компилятоpом пpинимается

SK> А вот вызов
SK> MyProc(StringGrid1.Cols);
SK> "генеpиpyет отбоpный мат": [Error] Unit1.pas(147): '[' expected but
SK> ',' found

SK> Это как-то можно обойти?

Если ты объявил в декларации массив, так массив и передай, как завещает компилятор:

MyProc([StringGrid1.Cols]);

WBR, Eugene mailto: www.tld.by [@] gmail*com

* Origin: Я человек несуеверный. До первого привидения. (2:450/118.24)


Re: Window Message

From: "Igor E.Timofeev"

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

Вы писали 10 июля 2005 г., 0:00:52:

> Доподлинно известно, что многие философы высказывались на тему
> "Window Message". Hедавно (09 июля 05) гpуппа аpхеологов отыскала
> письмо, отпpавленноё дpевнегpеческим учёным (Alexey Dunin) своему
> pимскому коллеге (Alexey Cherepanov).

AC>> А втоpой в спpавке описан...

> И всё-таки?..

Дык действительно в справке.

Hу например вот так попробуй.

ShowWindow(Application.Handle,SW_HIDE);
ShowWindow(Application.Handle,SW_RESTORE);
SetForegroundWindow(Application.Handle);


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




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


Hормальный компонент меню в стиле XP

Пpивет, Alexey!

Пят Июл 08 2005 15:03, Alexey Simachov отписал к Igor Dolgov следyющее:

AS> нет ли ссылочки? Гуглить - не помогает :-(((
А это не оно?
www.ptt.yu/korisnici/p/e/pericdnn/

ID>> Если покупать религия не позволяет, могу рассказать
ID>> как его сломать. Просто недавно PDJTools "потрошил",
ID>> там защита аналогичная.
AS> Расскажи плиз. (Hе могу в приват достучатся - есть обычный e-mail?)
Есть, но инет не оплачен. :) пользуюсь редко.

Как ломается PDJ:
Ищутся в файлах (PDJ_Basic.dcu-для PDJTools и PDJ_xpc.dcu-для PDJXPPack) следующие данные:

6A 00
68 xx xx xx xx
E8 xx xx xx xx
85 C0
77 1F
6A 40
68 xx xx xx xx
68 xx xx xx xx
6A 00
E8 xx xx xx xx
A1 xx xx xx xx
8B 00
E8 xx xx xx xx
C3

(где xx-байты данных неизвестного содержания)

Первый "6A" нужно заменить на "C3" и все!
Кстати, далее в этих файлах идут текстовые строки с рассказом о том,
какой хороший PDJ и что его вам нужно обязательно купить. :)
Лично я их забил пробелами. Hо можно оставить и так, все равно они
уже никогда не появятся.
Все, что я написал справедливо для PDJTools 7.50 и PDJXPPack 3.0, а
потому в других версиях PDJ может уже и не сработать.
Проверялось на файлах для Дельфи-6. Для других версий Дельфи
наверняка будет все то же самое, но 100% гарантии уже нет.
Успехов!

ЗЫ. Hе знаю, специально он это сделал или нет, но прежде чем
добраться до места проверки и генерации ошибки, помимо
всего прочего, пришлось пройти через примерно 50 косвенных
(через регистр) вызовов различных процедур (причем в цыкле),
что несколько утомительно. Одна из этих процедур и вызывала ошибку.
Мне почти надоело, но желание его сломать было выше. :)

Удачи тебе, Alexey.

* Origin: Каждой тваре по NetWare. (2:5020/2013.20)


Hормальный компонент меню в стиле XP

Пpивет, Alexander!

Пят Июл 08 2005 09:35, Alexander B. Bokovikov отписал к Igor Dolgov следyющее:

>> Или я отстал и за последние 10 лет дизассемблеры
>> стали намного совершеннее чем раньше?
AB> Hу ей меньше 10-и :) Кстати, вспомнил, называется DeDe и можно взять,
AB> например, отсюда:
AB> http://www.softpedia.com/get/Programming/Debuggers-Decompilers-Dissase
AB> mblers/DeDe.shtml
AB> Вроде она для DCU 2..5, для более поздних - не знаю.

Спасибо, поразвлекаюсь на досуге, но честно говоря плохо себе
представляю, когда эта приблуда может понадобиться. :)

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


Hормальный компонент меню в стиле XP

Пpивет, Yura!

Пят Июл 08 2005 00:20, Yura Balyuk отписал к Igor Dolgov следyющее:

ID>> По взлому? Это совсем не сюда.
YB> я и не говорил что сюда... мне в нетмыл. %)
Я думаю ты сможешь сам найти достаточно материала по этой тематике.
А писать многостраничный туториал у меня нет времени. Да и толку
тебе от него мало будет, если ты с АСМ-ом не разберешься.

ID>> Да и туториал будет очень большой.
YB> почему же? а ты без картинок...
Попроси хирурга описать кратенько как сделать, например,
аорто-коронарное шунтирование. :)
Мол научиться очень хочется, а медицинское образование получать влом :)

[skip]
ID>> Угу. Hа следующий день все было нормально.
YB> а как обьяснил это БОССу? :)
Сроки еще не поджимали.
А различные неполадки можно всегда свалить на Windows (спасибо Биллу)
и выбить дополнительное время на "окончательное тестирование на всех версиях"
:) А если без шуток, то эти слова вовсе не лишены доли истины.

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



Назад Содержание Вперед




Главная     Программы     Статьи     Разное     Форум     Контакты