» Вопросы по Delphi (версии 2009, 2010 Weaver, 2011 Fulcrum)

Спасибо. Все ок.

Такой вопросик.
В процессе написания класса постоянно добавляются и изменяются методы. Когда класс готов я в спецификации начинаю выставлять методы в определенном логическом порядке. Как сделать так что в теле модуля эти методы следовали так же как в спецификации?

tanaseduard
Это проходит, со временем.
А если все равно очень нужно, Ctrl+X, Ctrl+V.

wasilissk
Тоже думал что проходит, но люблю порядок. Думал может есть тулза.
Просто открываю класс написанные лет 5 назад а там не так как в спецификации, привык что в том же оракле все по порядку у меня, в делфе тоже захотелось.

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

tanaseduard
MM CodeExplorer вроде позволяет сортировать методы в нужном порядке.

Delphi 2009 - AdoConnection - TAdoQuery - Sybase 7.0 - Win2008 r2 64. Вместо русск букв, кракозябли. На XP - Sybase 8.0 все нормально. В connectionstring charset = cp1251 или cp866 прописан. В ODBC тоже. Что не так?

Frodo_Torbins
Спасибо.

Помогите понять почему не работает код:
З.Ы. Код добавляет в системный ImageList иконку размером 256x256 в Jumbo ImageList. В другие(меньшего размера добавляется нормально). ОС - Win 7 x64 x86

Код:
function GetImageListSH(SHIL_FLAG:Cardinal): HIMAGELIST;
type
_SHGetImageList = function (iImageList: integer; const riid: TGUID; var ppv: Pointer): hResult; stdcall;
var
Handle: THandle;
SHGetImageList: _SHGetImageList;
begin
Result:= 0;
Handle:= LoadLibrary('Shell32.dll');
if Handle<>S_OK then
try
SHGetImageList:=GetProcAddress(Handle, PChar(727));
if Assigned(SHGetImageList) and (Win32Platform=VER_PLATFORM_WIN32_NT) then
SHGetImageList(SHIL_FLAG, IID_IImageList, Pointer(Result));
finally
FreeLibrary(Handle);
end;
end;

procedure TFmMain.bTestClick(Sender: TObject);
var
ImageList: HIMAGELIST;
Ico: TIcon;
Res: Integer;
begin
if odPicture.Execute then
begin
ImageList := GetImageListSH(SHIL_JUMBO);
Ico := TIcon.Create;
try
ico.LoadFromFile(odPicture.FileName);
Res := ImageList_AddIcon(ImageList,Ico.Handle);
ShowMessage(IntToStr(Res)); //Res always equal -1
finally
ico.Free;
end;
end;
end;

Комрады,

есть ли у кого готовые функции или компоненты для подсчета хеша строк под юникод и бинарных блобов? Признательность моя б потеряла всякие границы

eddoc

1. Delphi Encryption Compendium

Цитата:

Hashes
•MD2, MD4, MD5
•RipeMD128, RipeMD160, RipeMD256, RipeMD320
•SHA, SHA1, SHA256, SHA384, SHA512
•Haval128, Haval160, Haval192, Haval224, Haval256
•Tiger
•Panama
•Whirlpool, Whirlpool1
•Square
•Snefru128, Snefru256
•Sapphire

2. HashLib! v1.03

Цитата:

Implementation of MD2, MD4, MD5, SHA-1, SHA (256, 384, 512), Haval (128, 160, 192, 224, 256), GOST R 34.11-94, Ripe-MD (128, 160), Tiger (128, 160, 192), CRC32, CRC32b, Adler32 hash alogrithms
Common and really simple inteface (same API for every algorithm)
High and low level functions (buffers, strings, files)
Self-testing routines
Small size (SysUtils and other system units are not used), you can Undefine using of specified algs.
Some functions are rewritten in Assembler
Native Delphi code.

3. DCPcrypt

Доброго времени суток!

Есть ли у кого-нибудь юниты с русифицироваными строками под 2010?

В сети, последнее что видел - для 2007.

Neg4t1ve
Их выкладывали в варезной теме по RAD2010.

Вы имели в виду это?
http://forum.ru-board.com/topic.cgi?forum=35&topic=44011&start=1000#21
Если да, то по ссылке файл уже недоступен

Neg4t1ve
Обратитесь в личку к автору этого поста. Или можно в том топике спросить, может еще у кого эти файлы остались.

Neg4t1ve
Вот забирай
h__p://www.onlinedisk.ru/file/841868/

Связался с автором поста, он обновил ссылку.
Спасибо!

V1s1ter, спасибо.
Вы уверены, что там от 2010? Судя по версии это ХЕ2

При работе с Delphi 2010 столкнулся со следующей проблемой: решил воспользоваться возможностью установки помощи от Delphi XE в 2010-ю в соответствии с
http://docs.embarcadero.com/products/rad_studio/radstudioXE/hxs_install_readme.html
help-файлы от августа 2010 установились отлично, всё работает. Проблемы возникли с установкой файлов помощи от июня 2011 г. В частности, ссылка на файл
http://docs.embarcadero.com/products/rad_studio/radstudioXE/radHelp_XE_Jun2011_EN.hxs
оказалась битой. Загружается файл меньшего размера(16964 Кб), чем указано в описании на странице(18605 Кб), файл от предыдущей версии помощи также весит в районе 18 Мб с лишним, т.е. косяк явный. Естественно, при установке нарушается структура помощи, не работают гиперссылки и т.п. На мои письма в техподдержку никакой реакции нет, заменять битый файл производитель, видимо, не собирается, не барское это дело.
Соответственно просьба: у кого есть, выложите, пожалуйста, файлы rad.hxs и vcl.hxs из последнего обновления помощи Delphi XE на файлообменник.

P.S. Модераторов прошу не сносить пост в варез, поскольку установка помощи от XE в 2010 - это штатная возможность от производителя. Другое дело, что этот самый производитель забил на качество своей же продукции, так что приходится по миру идти...

italek
см. ПМ

eddoc
Премного благодарен, всё установилось и работает. Наконец-то диаграмки наследования классов вернулись, которые в 2010-й поломали.

Добавлено:
eddoc
Не будет сильно нагло, если попрошу залить и codesamp.hxs? Он, по идее, небольшой - старая версия у меня размером в 1148Кб. Как оказалось, в обновлении его тоже довольно сильно изменили.

КАК "Уменьшить размер создаваемого файла"
1 из способов:

Вот незнаю кому может пригодится..
(Обсуждалось но решение там другое...)
помогает в XE and XE2

решаю эту проблему так:
1. Закрываю проект
2. удаляю Project1.dproj
и Win32 в проекте (если есть)
3. Открываю Project1.dpr компилирую и о Чудо... вместо 8-12 мег 1.5-4

не факт что всем подойдет,
но у меня
все работает, как на своем компе так и на других

MikhaNikus
Похоже у вас включена отладочная информация на странице Linking свойств проекта.

MikhaNikus

Наверное делается debug-build

Да... верно
походу из - за этого:
Project - Options - Linking - Debug Information

Добрый день!

Подскажите есть ли возможность в DOA (используя свойства OracleSession или другого компонента) периодически посылать запрос на Oracle, чтобы не рвалась сессия, которая рвется при бездействии?

Просмотрел все свойства но ничего не нашел.

GrHnd
Думаю для периодического посылания запроса подойдут компоненты TTimer и TOracleQuery

Samotek
Это то понятно, но хотелось что-либо из коробки (типа свойства KeepAlive)

GrHnd

Цитата:

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

У меня периодически происходит опрос, так что я даже не замечал никогда, что сессия рвется. Но пробуй периодически проверять ее TSession.CheckConnection(True)

GrHnd
Из коробки нет.

italek
отправил. извините, что долго - только сейчас увидел мессагу