Re: InSQRIBE and Oracle Forms 4.5

[Michael DeAngelo <Michael.DeAngelo@US.COOPERS.COM>]

Here is some code I wrote to begin excercising the InSQRibe control in
Forms 5.0...

The ActiveX control was embedded as 'INQRIBE'.
HOST_RESULT was a text item I used to display a result.
HOST_NAME, HOST_USERNAME, HOST_PASSWORD, and HOST_COMMAND are text items
that should be self explanatory.

SQROCX_DSQROCX is the name of the imported interface to the InSQRibe
control.

Good luck.
Mike

PS - I'm not sure if I could send you more due to copyright restrictions...

DECLARE
   status NUMBER;
   intfc  OLE2.obj_type;
BEGIN
   :HOST_RESULT := NULL;
   ACTIVATE_SERVER('INSQRIBEBLOCK.INSQRIBE');
   intfc := GET_INTERFACE_POINTER('INSQRIBEBLOCK.INSQRIBE');
   SQROCX_DSQROCX.RemoteConnect( intfc,
      :HOST_NAME, :HOST_USERNAME, :HOST_PASSWORD, NULL);
   status := SQROCX_DSQROCX.RemoteIsConnected(intfc);
   IF status = 0 THEN
      :HOST_RESULT := 'Could not connect';
   ELSE
      :HOST_RESULT := 'Connected';
      SQROCX_DSQROCX.RemoteExec(intfc,
         :HOST_COMMAND, 'c:\rprtout.txt');
      :HOST_RESULT := 'Seemed to work';
      SQROCX_DSQROCX.RemoteDisconnect(intfc);
   END IF;

END;


SEMECH wrote:
>
> Hi,
>
> Can someone send me a sample form (.fmb) that implements the
> InSQRIBE's ActiveX RUNSQR and
> SQR Viewer.
>
> Thank's in advance,
>
> Arnon.
> -------------------------------------------------------------------
> SEMECH SOFTWARE MARKETING LTD.
> TEL : (972) - 3 - 5333144
> FAX : (972) - 3 - 5333132
> Email: <semech@pobox.com>
> ------------------------------------------------------------------