TOracleEvent

[Eugene]

Hi there
I use TOracleEvent component to display pipe messages from long running stored procedure. Everything works great with one exception, all my messages are displayed when stored procedure is finished. What should I change to display messages while stored procedure is running.

Current TOracleEvent component setting are:
KeepConnection := false;
Synchronized := false;
TimeOut := 0;
ObjectType := otPipe;
onEvent := OracleEvent1Event;

procedure TMainForm.OracleEvent1Event(Sender: TOracleEvent;
const ObjectName: String; const Info: Variant);
var i: Integer;
begin
if VarIsArray(Info) then
for i := 0 to VarArrayHighBound(Info, 1) do Memo.Lines.Add(Info);
end;

Thank you

 

[Marco Kalter]

You probably need to execute the stored procedure in a background thread, so that the main thread of your application keeps running. If you are using a TOracleQuery, simply set Threaded to True and Execute it.

------------------
Marco Kalter
Allround Automations

 

[Eugene]

Thank you all.

I found the way to solve my problem by putting execution of oracle stored procedure in separate thread.