Обсуждение программирования на 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 <km [@] km.if.ua>
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 <km [@] km.if.ua>
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" <TimofeevI [@] mail.zabtrans.ru>
Здравствуйте, 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)