Thema: Delphi Performance TpFIBDataset

Einzelnen Beitrag anzeigen

Benutzerbild von nachti1505
nachti1505

Registriert seit: 7. Apr 2007
188 Beiträge
 
Delphi 7 Enterprise
 
#22

Re: Performance TpFIBDataset

  Alt 27. Okt 2008, 10:52
Nachdem Hansa ja die Ursache auf NICHT-MEHR-VORHANDENE Grids oder Fehler meinerseits schiebt, nochmal ein Versuch zur Problembehebung / -lokalisierung!

1.) Neue VCL-Anwendung
2.) pFIBDatabase, pFIBTransaction, pFIBDataset auf Formular gesetzt und verbunden
3.) in pFIBDataset SQL-Anweisung generiert (SELECT name1, name2, name3, strasse, ort, .... FROM adresse)
4.) Button auf Formular gesetzt und im OnClick:
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var i: integer;
    debug: cardinal;
begin
  debug := GetTickCount;
  pFIBDataset1.Active := true;
  while NOT pFIBDataset.EOF do begin
    for i := 1 to 10 do
      pFIBDataset1.Fields[i].AsString;

    pFIBDataset1.Next;
  end;
  pFIBDataset1.Active := false;
  ShowMessage(IntToStr(GetTickCount - Debug));
end;
5.) Ergebnis: bei ca. 3k Datensätze knappe 3500ms

Ergo keine Besserung, trotz ORIGINAL-Kompos (nichts abgeleitet) und selbst OHNE irgendwelche Grids.

Selbiger Testlauf mit JvUIB oder IBX brachte die gewohnten niedrigen Laufzeiten...

Ob ich mich mal an Devrace wende? Oder hat von euch noch einer eine Idee...

BTW: Werde das heute nachmittag noch in einer VirtualMachine probieren *gruebel*
  Mit Zitat antworten Zitat