[fpc-pascal] fcl-db: oracle SP

[Bee]

> 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