dbExpress und TSQLStoredProc Probleme mit Parameterübergabe

[cs.rumpelstilzchen]

In deinem Beispiel steht vor dem Open noch Params.Clear und Params.CreateParam. Ich hab das auch probiert:

Delphi-Quellcode:

with gMySqlServerObject.SQLStoredProc do
  begin
  try
    StoredProcName := 'TestProc';
    Params.Clear;
    Params.CreateParam(ftInteger,'Result',ptResult);
    Params.CreateParam(ftInteger,'@Input',ptInput);
    ParamByName('@Input').AsInteger := 1;
    Open;
    iResult := ExecProc;
    Output1 := FieldByName('Output1').AsInteger;
    Output2 := FieldByName('Output2').AsInteger;
    Close;

    ShowMessage('ExecProc = '+inttostr(iResult));

    ShowMessage('Output1 = '+inttostr(Output1));

    ShowMessage('Output2 = '+inttostr(Output2));
  finally
    Free;

  end;  // with gMySqlServerObject.SQLStoredProc do

end;

Beim Open tritt folgende Fehler auf:

Im Projekt ... ist eine Exception der Klasse EListError mit der Meldung 'Listenindex überschreitet das Maximum (0)' aufgetreten.