» Вопросы по компонентам для Delphi, C++ Builder 2

Всем привет..
я всё по прежнему с большими датасетами %)

[никак не могу подобрать ключевые слова, чтобы поиск адекватные результаты выдал]

Хочу где-нибудь почитать или спросить совета как выводить progress bar fetchа в dataset :-?
заранее спасибо :)

vshersh
Большое спасибо!!

test_testov and jicoff
Первым делом я попытался это сделать но нету там такого пакета.
BDS2006 конечно же позволяет управлять пакетами.
Поэтому я и спрашиваю есть ли у кого опыт установки этого пакета.

borodavolga

Цитата:

посоветуйте компоненты, которые наиболее быстро отображают геометрию (сотни тысяч объектов, достаточно простых)

Не специалист, но еще есть PowerCAD, BlockEngine, HyperGraphics, FlexGraphics, SweetDrawingEngine (бесплатно), Graphics32 (бесплатно, оптимизировано для 32-битного цвета), DrawStyles...

Добавлено:
Thegodofviruses, NexusDB.

Добавлено:
xy, чтобы организовать прогрессбар нужно знать количество записей, которые будут выбраны, чтобы знать количество записей, нужно пройтись по всей выборке, а так как заранее размер выборки мы не знаем, желательно отображать прогресс бар... Замкнутый круг.
Можно ориентироваться на размер выборки "в прошлый раз", считая, что он не мог слишком измениться. Можно попробовать воспользоваться Count, если сервер мощный...

Sexton
предположим, что я знаю количество записей
в конце концов знать их кол-во точно действительно не так важно

а вот как узнать состояние загрузки датасета :-?
или как подгружать датасет порциями :-?

Добавлено:
нашел в Фибах:
function FetchNext(FetchCount:Dword):integer;
похоже это имеено то, что мне надо :)

xy, скажем так. Для решения этой экзотической задачи нормальных "профессиональных" средств нет. Ну а в качестве экзотического решения экзотической задачи, может, и FetchNext сгодится.
FIBDataSet возвращает количество отфетченных записей (общее количество записей в выборке DataSet просто не может узнать, пока fetchall не сделает). Может, читать просто количество записей в датасете в отдельном потоке?

Sexton
та не, с FetchNext всё просто :)
если нам не жалко сервер (а чего его жалеть :-?) он как правило при наличии Primary Key хорошо с count справляется, я делаю следующее:


Код:
procedure OpenWithProgress(DataSet: TpFIBDataSet; ProgressBar: TProgressBar);
const FetchStep = 400;
begin
DataSet.Options := DataSet.Options - [poFetchAll];
DataSet.PrepareOptions := DataSet.PrepareOptions + [psAskRecordCount];

ProgressBar.Show;
ProgressBar.Position := 0;
ProgressBar.Repaint;

DataSet.Open;

ProgressBar.Max := DataSet.RecordCount;
while ProgressBar.Position < ProgressBar.Max do
begin
DataSet.FetchNext(FetchStep);

ProgressBar.Position := ProgressBar.Position + FetchStep;
ProgressBar.Repaint;
end;

ProgressBar.Hide;
ProgressBar.Parent.Repaint;
end;

relictus
Sexton
Спасибо, буду ковырять
а PowerCAD есть ломанный?

xy
Вроде все правдоподобно..
Только я для нормальной отрисовки в цикл еще Application.ProcessMessages бы засунул.

Цитата:

вставлять реакцию на отмену

Возможно, ProcessMessages здесь тоже поможет.

З.Ы. Может FetchStep от RecordCount вычислять? Типа, чтоб бегунок аккуратней двигался

xy

Цитата:

как в такого рода циклы (или циклы с длительными вычислениями) вставлять реакцию на отмену (кнопку или хотябы считывание VK_ESCAPE) :-?

Более красиво, но и более аккуратно надо делать - выносить такие вещи в отдельный поток.
Если попроще, то вызывать Application.ProcessMessages - без этого прогресс бар отрисовываться все равно не будет

Привет всем!
Подскажите, пожалуйста, какую нибудь замену TMainMenu, TPopupMenu и TMenuItem c исходниками для добавления своих фич.

Samotek, TdxBar (DevExpress).

Samotek
Toolbar2000
DevExpress имхо излишне монстрообразен.

RomanTim
Цитата:

вызывать Application.ProcessMessages - без этого прогресс бар отрисовываться все равно не будет

вы уж меня извините, но Бар отрисовывается и так отлично :)


а за идею с
Цитата:

Application.ProcessMessages

вообще вам с Arvur спасибо

я так понимаю Application.ProcessMessages перечитывает системные сообщение, т.е. это надо хуки на них ставить (на клавиатурные) :-?
всё таки если можно примерчик с перехватом Эскейпа, ибо давно когда-то с сообщениями работал и что-то у меня плохие воспоминания :)

xy

Цитата:

вы уж меня извините, но Бар отрисовывается и так отлично

Странно... теоретически форма вообще отрисовываться не должна - для этого ведь надо обработать WM_PAINT, но раз работает - то и ладно


Цитата:

я так понимаю Application.ProcessMessages перечитывает системные сообщение, т.е. это надо хуки на них ставить (на клавиатурные) :-?
всё таки если можно примерчик с перехватом Эскейпа, ибо давно когда-то с сообщениями работал и что-то у меня плохие воспоминания

Имено так - разгребает все, что успело к моменту вызова набежать в очередь. А хуки - это уже через чур - хватит обчного OnKeyPressed или OnKeyDown у формы c включенным KeyPreviw

RomanTim

Цитата:

Имено так - разгребает все, что успело к моменту вызова набежать в очередь. А хуки - это уже через чур - хватит обчного OnKeyPressed или OnKeyDown у формы c включенным KeyPreviw

Понятно, спасибо :)


Цитата:

Странно... теоретически форма вообще отрисовываться не должна - для этого ведь надо обработать WM_PAINT, но раз работает - то и ладно

Видимо Repaint именно для того и нужен, чтоб это обходить

xy

Цитата:

Видимо Repaint именно для того и нужен, чтоб это обходить

Repaint действительно принудительно переисовывает окно - видимо напрямую вызывает процедуру отрисовки.
А с прогресбаром вообще интересно - получается у него репайнт автоматом срабатывает при изменении значения. по крайней мере если написать такое
Код: for i := 1 to 100000 do
for j := 1 to 100000 do
ProgressBar1.Position := (j div i) mod 100;

RomanTim
Однако стоит заметить, что если не перерисовать бар после Show, то его никто не увидит ;)

Samotek

ToolBar2000 by Jourdan Russel
+TBX
+SpTbxlib

будет все красиво и с юникодом!

xy

Цитата:

Однако стоит заметить, что если не перерисовать бар после Show, то его никто не увидит

В том то и дело, что никакого переисовывания я руками не вызываю. Этот двойной цикл выполняется довольно долго, если в это время над окном с прогресом провести окном другого приложения, то вместо формы на экране будут остатки изображения другого окна, а на фоне этого мусора будет бегающая полоска - хватает просто изменения Position.

Собственно говоря, в МСДН так и написано: PBM_SETPOS Message - Sets the current position for a progress bar and redraws the bar to reflect the new position. В общем можно в очередной раз сказать себе - учи матчасть

RomanTim
в двойном безсмысленном цыкле да, но в моем случае с датасетом - промежуток времени между Show и первым изменением позиции не моментален, поэтому репэинт там весьма уместен как мне кажется ;)

а кстати для открисовки окна и избежания зависания.. что можно вызывать в цикле и насколько это будет влиять на производительность :-?
может вызывать отрисовку (Application.ProcessMessages ?) каждую 1000 итераций.. как-то так :-?

Sexton
Arvur
vipettut
Спасибо, ребята, будем пробовать.
С уважением, Samotek.

Подскажите, пожалуйста, нет ли где у/для FIB+ функции, для нормальной локальной сортировки украинской локали

Ибо стандартный прием несовсем отрабатывает, остается неотсортированной буква I, хотя проблему Є оно решает :-/

xy

Цитата:

в двойном безсмысленном цыкле да, но в моем случае с датасетом - промежуток времени между Show и первым изменением позиции не моментален, поэтому репэинт там весьма уместен как мне кажется

Такие вещи несколько удобнее делать не в OnShow - в OnShow можно сделать
PostMessage(Handle, WM_USER, 0, 0);

а в процедуре обработки этого сообщения начинать свой запрос
procedure WMUser(var Msg: Tmessage); message WM_USER;
тогда форма отрисуется и уже потом твой долгий код выполняться будет


Цитата:

а кстати для открисовки окна и избежания зависания.. что можно вызывать в цикле и насколько это будет влиять на производительность :-?
может вызывать отрисовку (Application.ProcessMessages ?) каждую 1000 итераций.. как-то так :-?

Application.ProcessMessages и надо вызывать, а через сколько итераций - это лучше опытным путем подобрать.

Цитата:

а кстати для открисовки окна и избежания зависания.. что можно вызывать в цикле и насколько это будет влиять на производительность :-?

А чего так не хочется использовать отдельный thread? Если уж так сложно в коде то возьми на помощь TjclThread (или как-то так) из JVCL, так много чего для design-time сделано.

Подскажите бесплатный компонент для работы с Mysql 5 из Delphi?
Искал по форуму, нашел только DirectMySQLObjects и ZEOS Database Objects, оба не работают с такими версиями. Еще находил mydac, но он платный и всего 60 дней работает, больше платные не пробовал.

Вобщем либо версия неподходит, либо платный. Есть что-то бесплатное?

vsh747
Цитата:

А чего так не хочется использовать отдельный thread?

та просто потому, что мне это не надо :)

Sergey913
Цитата:

Подскажите бесплатный компонент для работы с Mysql 5 из Delphi?

Ну так TMySQL5, соответственно (http://tmysql5.blogspot.com/).

xy
Цитата:

Sexton та не, с FetchNext всё просто если нам не жалко сервер (а чего его жалеть :-?) он как правило при наличии Primary Key хорошо с count справляется, я делаю следующее:

Учитывая, что выборки будут крупные, стоит ли выполнять их на сервере по 2 раза (Count+собственно выборка), да еще и при многопользовательской работе?
В любом случае, как правильно сказано, фетч надо оформлять в отдельный поток. А Фибы, я думаю, позволят из другого потока получать количество уже отфетченных записей (psAskRecordCount надо будет, конечно, отключить).

Кто может подсказать инструмент аналогичный BlazeTop SQL Monitor для работы с Firebird 2. На двойке при массивных запросах BT SQL Monitor умирает.
Devrace (которые выпускают FIBPlus, Athlant, а также BlazeTop) выпустили вместо BlazeTop новый продукт - SQLHammer - но он поддерживает только Firebird 1,5.
Какие у кого варианты?

IBExpert не предлагать - там только внутренний SQL Monitor.