override TSQLConnection.StrToStatementType in TOracleCOnnection, and add it
there.
I added this to oracleconnection.pp unit
function TOracleConnection.StrToStatementType(s : string) : TStatementType;
begin
S:=Lowercase(s);
if s = 'call' then exit(stSelect);
result := inherited StrToStatementType(s);
end;
Recompiled my fpc 2.2.1, compilation went ok.
Compile my test program, fine. Run the test program, it crashed. But
now, instead of unknown AV, it raised a runtime error (EDatabaseError)
with message: "EDatabaseError : : Oracle returned error 24333:".
The number means: "ORA-24333: zero iteration count error". It's the same
exact error message when I tried Zeos to access the same SP. I don't
know what it means. I'm stucked, again. :(
-Bee-
has Bee.ography at:
http://beeography.wordpress.com
_______________________________________________
fpc-pascal maillist - fpc-pascal@lists.freepascal.org
http://lists.freepascal.org/mailman/listinfo/fpc-pascal
