Data.Win.ADODB.TCustomADODataSet.OnFetchProgress
Delphi
property OnFetchProgress: TFetchProgressEvent read FOnFetchProgress write FOnFetchProgress;
C++
__property TFetchProgressEvent OnFetchProgress = {read=FOnFetchProgress, write=FOnFetchProgress};
Eigenschaften
| Typ | Sichtbarkeit | Quelle | Unit | Übergeordnet |
|---|---|---|---|---|
| event | published | Data.Win.ADODB.pas Data.Win.ADODB.hpp |
Data.Win.ADODB | TCustomADODataSet |
Beschreibung
Wird während asynchroner Abrufoperationen immer wieder ausgelöst.
In der Ereignisbehandlungsroutine OnFetchProgress können Sie während einer asynchronen Abrufoperation bestimmte Aktionen durchführen. Das Ereignis wird während des gesamten Vorgangs immer wieder ausgelöst. So können Sie dem Benutzer beispielsweise visuelle Rückmeldungen über den Fortgang der Operation geben.
DataSet ist die ADO-Datenmenge, in der das Ereignis aufgetreten ist. Die Datenmenge enthält auch das betreffende Recordset-Objekt.
Progress gibt an, wie viele Datensätze seit Beginn der Operation abgerufen wurden.
MaxProgress gibt an, wie viele Datensätze in der Operation insgesamt abgerufen werden.
Mithilfe der Parameter Progress und MaxProgress können Sie ermitteln, zu wie viel Prozent die Aktion bereits abgeschlossen ist (Progress / MaxProgress * 100).
procedure TForm1.ADODataSet1FetchProgress(DataSet: TCustomADODataSet; Progress, MaxProgress: Integer; var EventStatus: TEventStatus);
begin
Caption := 'Porzent abgeschlossen: ' +
IntToStr(Trunc(Progress / MaxProgress * 100)) + '%';
Application.ProcessMessages;
end;
void __fastcall TForm1::ADODataSet1FetchProgress(TCustomADODataSet *DataSet, int Progress, int MaxProgress, TEventStatus &EventStatus)
{
Caption = "Porzent abgeschlossen: " +
IntToStr(Trunc(Progress / MaxProgress * 100)) + "%";
Application->ProcessMessages;
}