Liebe Mitleidenden,
ich möchte mit einer Fortschrittsanzeige (neudeutsch Progressbar) einem Anwender anzeigen, wieviel Tassen Kaffee noch nötig sind
Ernsthaft, ich möchte nach einer SQL Open Anweisung ein Event nutzen, das mir bei jedem neuen Datensatz die Möglichkeit gibt, den Progressbar um einen Schritt zu erhöhen. Ich lese aus einer Oracle-Datenbank Bilder per DSL aus, manchmal 15-20 tausend Stück. Da wüsste man gern, wo das Ding den gerade ist und ob es sich lohnt, noch mit den Hunden raus zu gehen oder ein Kaffee zu kochen.
Ich hab bisher das hier
Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
| procedure TFormMain.QueryFetchProgress(DataSet: TCustomADODataSet;
Progress, MaxProgress: Integer; var EventStatus: TEventStatus);
begin
ProgressBarFetch.Max := MaxProgress;
ProgressBarFetch.Position := Progress;
Application.ProcessMessages;
end; |
mit Client-seitigem Cursor (static) und eoAsyncFetchNonBlocking auf True.
Ganz toll, keine graduelle Erhöbung des Progressbar, erst wenn alles da ist.
Hat jemand eine Idee was ich da falsch mache?
Vielen Dank für das Lesen meiner Sorge. Für jede Antwort dankbar
Pit
Moderiert von 
raziel: Delphi-Tags hinzugefügt.
