X-Received: by 10.224.160.65 with SMTP id m1mr20061339qax.2.1366640240527; Mon, 22 Apr 2013 07:17:20 -0700 (PDT) X-Received: by 10.49.60.193 with SMTP id j1mr2402607qer.33.1366640240480; Mon, 22 Apr 2013 07:17:20 -0700 (PDT) Path: news.cambrium.nl!textnews.cambrium.nl!feeder2.cambriumusenet.nl!feed.tweaknews.nl!194.109.133.86.MISMATCH!newsfeed.xs4all.nl!newsfeed3.news.xs4all.nl!xs4all!novso.com!nerim.net!usenet-fr.net!feeder1-2.proxad.net!proxad.net!feeder2-2.proxad.net!nx02.iad01.newshosting.com!newshosting.com!69.16.185.11.MISMATCH!npeer01.iad.highwinds-media.com!news.highwinds-media.com!feed-me.highwinds-media.com!gp5no4723150qab.0!news-out.google.com!ef9ni9516qab.0!nntp.google.com!gp5no4723140qab.0!postnews.google.com!glegroupsg2000goo.googlegroups.com!not-for-mail Newsgroups: comp.databases.oracle.tools Date: Mon, 22 Apr 2013 07:17:20 -0700 (PDT) In-Reply-To: <01bdd81c$bab749e0$2d7446a2@sdonaldson.amsinc.com> Complaints-To: groups-abuse@google.com Injection-Info: glegroupsg2000goo.googlegroups.com; posting-host=81.218.56.171; posting-account=dUI7cwoAAAAPNSw4Q_UJ7h2VqWgYiqoM NNTP-Posting-Host: 81.218.56.171 References: <01bdd81c$bab749e0$2d7446a2@sdonaldson.amsinc.com> User-Agent: G2/1.0 MIME-Version: 1.0 Message-ID: <40f75a84-1654-4fdb-a65d-7f4102f533d6@googlegroups.com> Subject: Re: OCX and Forms 5.0 From: uri.witman@gmail.com Injection-Date: Mon, 22 Apr 2013 14:17:20 +0000 Content-Type: text/plain; charset=ISO-8859-1 Content-Transfer-Encoding: quoted-printable X-Received-Bytes: 3254 Xref: news.cambrium.nl On Friday, September 4, 1998 10:00:00 AM UTC+3, Scott Donaldson wrote: > I am trying to implement the MS Winsock 5.0 OCX in Forms 5.0 and am havin= g trouble getting the argument of an event that is needed as an argument to= another method for the OCX. Namely, the ConnectionRequest is fired and the= RequestID is the input argument. I then need to take this RequestID and pa= ss it as the argument of the Accept method. My question is how do I retriev= e this RequestID parameter in Forms? I am a VB programmer and in VB the par= ameter is passed into the event. How do I get this parameter in the ON-DISP= ATCH-EVENT trigger. I know the Event number from the OLE Importer. Here is = the code from the Program Unit Package Body that was created from the OLE I= mporter:PROCEDURE /* ConnectionRequest */ EVENT2(interface OleObj, requestI= D IN OUT NUMBER) ISBEGINNULL;END;Here is the code from my on-dispatch-event= for the OCX:DECLARE eventname VARCHAR2(32767) :=3D :system.custom_item_eve= nt; bytesTotal NUMBER;data VARCHAR2(32767);maxLen NUMBER; requestID NUMBER;= BEGINIF eventname =3D 'EVENT0' THEN /*DataArrival*/ bytesTotal :=3D MSWinso= ck_IMSWinsockControl.BytesReceived(:item('PB.ACTIVEX_WINSOCK').interf ace);= MSWinsock_IMSWinsockControl.GetData(:item('PB.ACTIVEX_WINSOCK').interface, = TO_VARIANT(data), TO_VARIANT(VT_BSTR), TO_VARIANT(maxLen));:PB.ASYNC_MSGS := =3D :PB.ASYNC_MSGS||'data:'||data;:PB.ASYNC_MSGS :=3D data;synchronize;MSWi= nsock_IMSWinsockControl.ole_Close(:item('PB.ACTIVEX_WINSOCK').interface) ;M= SWinsock_IMSWinsockControl.Listen(:item('PB.ACTIVEX_WINSOCK').interface); s= ynchronize;ELSIF eventname =3D 'EVENT1' THEN /*Connect*/NULL; ELSIF eventna= me =3D 'EVENT2' THEN /*ConnectionRequest*/IF MSWinsock_IMSWinsockControl.St= ate(:item('PB.ACTIVEX_WINSOCK').interface) !=3D MSWinsockLib_CONSTANTS.sckC= losed THENMSWinsock_IMSWinsockControl.ole_Close(:item('PB.ACTIVEX_WINSOCK')= .interface) ;END IF;MSWinsock_IMSWinsockControl.ole_Accept(:item('PB.ACTIVE= X_WINSOCK').interface , requestID);END IF;END; Hi, Still involved in that stuff? Uri