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

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

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

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

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


Как следить за диpектоpией?

Привет, Youra!



YG> Подскажите, как pеализовать слежение за изменениями в конкpетной
YG> диpектоpии? Как отследить добавление, изменение содеpжимого,
YG> атpибyтов, как это сделано в Эксплоpеpе, котоpый все изменения
YG> подхватывает на летy.

RTFM FindFirstChangeNotification, FindNextChangeNotification

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

* Origin: Говорящая флора - это неправильно в принципе! (2:450/118.24)


Массив в TStream

From: "Anatoly Podgoretsky"

Hello, Milchenko!
You wrote to All on Thu, 1 Sep 2005 05:48:27 +0000 (UTC):

MA> ...нужно MyVar (со всем записанными значениями) перевести в TStream!!

Ты точно уверен, что ты хочешь передавать указатели? Какой в этом смысл?

С уважением!
Анатолий Подгорецкий

* Origin: Demos online service (2:5020/400)


Re: D4 vs D7

From: Михаил Булгаков

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

Вы писали 20 августа 2005 г., 16:49:03:

>> Hасчет сpеды я соглашyсь yдобенее, но ведь мне не нyжны всякие там
>> пpимочки и кpасивости, y меня стандаpтный набоp компонент, котоpые меня
>> yстpаивают, а вот pазмеp пpогpаммы я дyмаю бyдет намного больше и
>> тоpмознее. И еще последние веpсии по pазговоpам в этой эхе гpешат
>> большими глюками, а Д4 все-таки пpовеpенная вpеменем.

MV> Поверьте на слово - D7 очень стабильная версия (проверено временем и
MV> большими проектами).
Дальнейшее нагло выкину....

--
Здравствуйте, M..
Соглашусь, что очень стабиная, но не _абсолютно_, к
сожалению... Почему? Иногда (у меня) бывают глюки ide*.bpl,
заставляющие закрывать/открывать заново IDE. А вчера глюк был при
компиляции. В окошке "Build" появилось сообщение "License has
expired". Можно было бы грешить на пиратов/переводчиков и иже с ними,
но не на _официально купленном_ пакете....
Собсно по сабжу...Из old-ver склоняюсь больше к D3, т.к. линкер с
компилером совместимы с MSVC. В плане драйверов уровня ядра. (По
крайней мере, я не могу на D7 собрать такой драйвер _работающим_)
Вот!
--
С уважением, Михаил Булгаков (ICQ - 306337332)


Отправлено через сервер Форумы [@] mail.ru - talk.mail.ru

* Origin: Talk.Mail.Ru (2:5020/400)


DX.MISC Глюки оптимизатора?

Хэлоу, Andrey!

29 авг 05 22:42, Andrey Dudko wrote to Anatoly Podgoretsky:

AD> function TForm1.GetParamValue(const sParam: String): String;
AD> var
AD> b: Boolean;
AD> i: Integer;
AD> begin
AD> Result := '';
AD> b := False;
AD> if Assigned(FParamValueSupplier) then b :=
AD> FParamValueSupplier.GetParamValue(sParam, Result);
AD> if not b then begin
AD> i := FOutDoc.Params.IndexOfName(sParam); {*}
AD> b := i>=0;
AD> if b then Result := FOutDoc.Params.ValueFromIndex[i];
AD> end;
AD> if not b then Abort else ParamFound(sParam);
AD> end;

Есть подозрение, что у оптимизатора сносит крышу от криво построенных условий. При такой модификации процедуры, оптимизатор отрабатывает корректно:

function TForm1.GetParamValue(const sParam: String): String;
var
b: Boolean;
i: Integer;
begin
b := False;
if Assigned(FParamValueSupplier) then
b := FParamValueSupplier.GetParamValue(sParam, Result);
if not b then begin
i := FOutDoc.Params.IndexOfName(sParam);
b := i>=0;
if b then
Result := FOutDoc.Params.ValueFromIndex[i]
else
Abort;
end;
ParamFound(sParam);
end;

В данном случае, можно обойтись и без локальной переменной:

function TForm1.GetParamValue(const sParam: String): String;
var
i: Integer;
begin
if not (Assigned(FParamValueSupplier) and FParamValueSupplier.GetParamValue(sParam, Result)) then begin
i := FOutDoc.Params.IndexOfName(sParam);
if i>=0 then
Result := FOutDoc.Params.ValueFromIndex[i]
else
Abort;
end;
ParamFound(sParam);
end;

Бу!
Dimk

* Origin: Twilight Zakamsk (2:5054/45)


DX.MISC Глюки оптимизатора?

From: "Anatoly Podgoretsky"

Hello, Dmitry!
You wrote to Andrey Dudko on Fri, 02 Sep 2005 14:09:46 +0400:

DR> Есть подозрение, что у оптимизатора сносит крышу от криво построенных
DR> условий. При такой модификации процедуры, оптимизатор отрабатывает
DR> корректно:

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

Это в вольном переводе. А вот понять что неправильно не так просто.

С уважением!
Анатолий Подгорецкий

* Origin: Demos online service (2:5020/400)


Re: Вопросики вместо текста

From: Alexander Tomilov

Хаю ду ю ду Острожинский Сергей?

Смотрю и вижу, как ты печатаешь умные вещи и дай-ка, думаю,
тоже что-нибудь напечатаю:

ОС> "c_1251.nls" в параметр "1252" ключа реестра
ОС> \HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Nls\CodePage. Hо лазить в
ОС> реестр неприемлемо для наших задач, поэтому хочется найти способ "правильно
ОС> написать" программу, чтобы русские буквы показвались без ковыряний в реестре.

ОС> Кто-нибудь сталкивался с такой проблемой? Может что-нибудь посоветовать?

Могу посоветовать все-таки подправить реестр ибо юзер только спасибо
скажет - без этого исправления даже копирование в самой windows
глючит:
Hапример, если скопировать из свойств ярлыка путь содержащий русские
буквы и вставить его затем, например, в WIN+R то нифига хорошего не
получиться - те же вопросы. (win2k sp4)

--
Только по темноте своей народ надеется на светлое будущее.
Я и мои соседи слушаем: Second Hand Band - Groove of The Nation
Alexander Tomilov E-mail: asteroid (at) perm (dot) raid (dot) ru
Форум не обо всем, но многом: sforum.hut1.ru/forum/

* Origin: Asteroid Software (2:5020/400)


Массив в TStream

From: "Milchenko Alexandr"

AP> Ты точно уверен, что ты хочешь передавать указатели? Какой в этом смысл?

У меня есть "выбранные записи" из "базы данных", ...данные разного типа:
01. blob`ы;
02. memo;
03. Integer, Byte, TDate;
03. Boolean;
04. String (PChar) и т.д.

Мне нужно это все переслать по локальной сети на др. компьютер
(TClientSocket/TServerSocket).

Я решил все данные загнать в массив (что бы избежать содания временных файлов
с выбранными данными) ...и из массива конвертировать в TStream, потом TStream
запакавать через Z-Lib и отправить на др. конец провода...


P.S. Хочу выразить признательность всем, кто не проигнорировал этот топик!!!

ERrorMAKros

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


Re: Вопросики вместо текста

From: Alexander Grischenko

Alexander Tomilov пишет:
> Хаю ду ю ду Острожинский Сергей?
>
> Смотрю и вижу, как ты печатаешь умные вещи и дай-ка, думаю,
> тоже что-нибудь напечатаю:
>
> ОС> "c_1251.nls" в параметр "1252" ключа реестра
> ОС> \HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Nls\CodePage. Hо лазить в
> ОС> реестр неприемлемо для наших задач, поэтому хочется найти способ "правильно
> ОС> написать" программу, чтобы русские буквы показвались без ковыряний в реестре.
>
> ОС> Кто-нибудь сталкивался с такой проблемой? Может что-нибудь посоветовать?
>
> Могу посоветовать все-таки подправить реестр ибо юзер только спасибо
> скажет - без этого исправления даже копирование в самой windows
> глючит:
[..]
>

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

Лучше выставить русскую кодировку в самой проге (font.charset := RUSSIAN_CHARSET)

--
Alexander Grischenko

* Origin: Demos online service (2:5020/400)


Re: Вопросики вместо текста

From: "Острожинский Сергей"

Fri Sep 02 2005 17:40, Alexander Grischenko wrote to Alexander Tomilov:

>> ОС> "c_1251.nls" в параметр "1252" ключа реестра
>> ОС> \HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Nls\CodePage. Hо
>> лазить в ОС> реестр неприемлемо для наших задач, поэтому хочется найти
>> способ "правильно ОС> написать" программу, чтобы русские буквы
>> показвались без ковыряний в реестре.
>> ОС> Кто-нибудь сталкивался с такой проблемой? Может что-нибудь
>> посоветовать?

>> Могу посоветовать все-таки подправить реестр ибо юзер только спасибо
>> скажет - без этого исправления даже копирование в самой windows
>> глючит:

AG> Скажет ли? Либо у юзера кривые руки, и он не может нормально человеческую
AG> кодировку выставить (пару кликов мышой), тогда это лечится залечиванием
AG> юзера :) либо ему изначально не нужна русская кодировка, а ковырянем в
AG> реестре можно доставить ему массу неприяных впечатлений.

Я повторю еще раз, лазить в реестр неприемлемо для наших задач, из всяких не
относящихся к Дельфи соображений. Совет Андрея Рязанова заставить юзера
исправить Regional Options гораздо приемлемей, спасибо ему. Hо остается
надежда как-то сделать так, чтобы работало и без этого...

AG> Лучше выставить русскую кодировку в самой проге (font.charset :=
AG> RUSSIAN_CHARSET)

А вот это первое, что я попробовал, не помогает.

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


Массив в TStream

From: "Anatoly Podgoretsky"

Hello, Milchenko Alexandr!
You wrote to Anatoly Podgoretsky on Fri, 2 Sep 2005 13:22:52 +0000 (UTC):

MA> Я решил все данные загнать в массив (что бы избежать содания временных
MA> файлов с выбранными данными) ...и из массива конвертировать в TStream,
MA> потом TStream запакавать через Z-Lib и отправить на др. конец провода...

В массив занать можно, но в статический, а данными переменной длины, посылай в начале блока размер.

--
С уважением,
Анатолий Подгорецкий

* Origin: Demos online service (2:5020/400)



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




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