Hi Stevie,
Danke für den Link zu dem Zeos Tuto.
Ich hatte mir das Firebird embedded Tuto von Domo Sokrat angesehen (wurde igrendwo auf der
DP darauf hingewiesen), hatte den zweiten Teil (bezüglich ZEOS) allerdings übersehen. Mal sehen, ob ich damit meine Probleme lösen kann.
Trotzdem noch mal kurz zum Problem :
Ich hab's noch mal durchgetestet und der Fehler bei wiederholtem Aufruf einer Stored Proc tritt tatsächlich nur dann auf, wenn man der Stored Proc vorher einen Wert übergibt.
Z.B. folgende SP :
SQL-Code:
CREATE PROCEDURE TEST2_PROC (
INVALUE INTEGER)
RETURNS (
RESULT INTEGER)
AS
BEGIN
result = :INVALUE;
SUSPEND;
END
In Delphi :
Delphi-Quellcode:
ZStoredProc.ExecProc;
MessageDlg(IntToStr(ZStoredProc.ParamByName('RESULT').Value),mtInformation,[mbOK],0);
ZStoredProc.ExecProc;
MessageDlg(IntToStr(ZStoredProc.ParamByName('RESULT').Value),mtInformation,[mbOK],0);
funktioniert, während
Delphi-Quellcode:
ZStoredProc.ParamByName('INVALUE').Value := 1;
ZStoredProc.ExecProc;
MessageDlg(IntToStr(ZStoredProc.ParamByName('RESULT').Value),mtInformation,[mbOK],0);
ZStoredProc.ExecProc;
MessageDlg(IntToStr(ZStoredProc.ParamByName('RESULT').Value),mtInformation,[mbOK],0);
beim zweiten ExecProc nicht mehr funktioniert.
Schon komisch.
Tschüss,
Lutz