Mal ein Beispiel, das nimmt eine
SQL-Anweisung entgegen und gibt ein TDataSet zurück.
Delphi-Quellcode:
function TServerMethods1.GetSQLDataSet(ID,
SQL:
string): TDataSet;
var t1,t2:TTime;
begin
AFSQuery1.Close;
AFSQuery1.SQL.Text:=
SQL;
try
t1:=now;
AFSQuery1.Open;
T2:=now;
Result := AFSQuery1;
FM_Haupt.RE_LOG.Lines.Add('
ID:'+ID+'
/SQL:'+IntToStr(AFSQuery1.RecordCount)+'
;'+
SQL+'
'+TimeToStr(now-t1));
except
on E:
Exception do begin
FM_Haupt.RE_LOG.Lines.Add('
ERROR: '+e.
Message);
FM_Haupt.RE_LOG.Lines.Add('
SQL: '+
SQL);
//
Result :=
nil;
end;
end;
end;
PS: das logt noch etwas mit und macht auch eine Zeitmessung, d.h. alles mit FM_HAUPT kannste entfernen
AFSQuery ist eine beliebige
Query Komponente