WP
Thu Jan 18 15:29:06 CST 2007
Sorry Rick, but where can I download this ep_winsock.vcx ?
Walter
"Rick Bean" <rgbean@unrealmelange-inc.com> escribió en el mensaje
news:%23vHzRqqOHHA.5064@TK2MSFTNGP04.phx.gbl...
> Walter,
> This "problem" is a variant (different OCX) of the one described in
>
http://support.microsoft.com/default.aspx?scid=kb%3Ben-us%3BQ139154 -
> "INFO:
> OLE Control Licensing in Visual FoxPro (Q139154)". The final example shows
> a
> way around the problem.
>
> You may want to also read
>
http://support.microsoft.com/default.aspx?scid=kb%3Ben-us%3BQ192693 -
> "BUG:
> License Error with ActiveX Control Added at Run-Time (Q192693)"
>
> For some actual code, the following is currently working just fine in many
> locations (VFP 6.0 SP5). Basically, because the VCX does the direct usage
> of
> Winsock, and it's precompiled, it doesn't create a license problem! It's a
> simple procedure that uses Winsock to get the IP address.
>
> * Program....: GETIP.PRG
> * Version....: 1.0
> * Author.....: ** Andy Goeddeke **
> * Date.......: January 8, 2002
> * Return IP address as char string
>
> * 02/04/2002 Changed the technique slightly to avoid the "Class not
> registered/licensed" errors.
>
> *!* The following DOESN'T work!
> *!* LOCAL loWinsock
> *!* loWinSock = CREATEOBJECT("MSWinsock.Winsock")
> *!* return loWinsock.LocalIP
>
> LOCAL oForm1, lcIP
> oForm1 = CREATEOBJECT("dummyform")
> lcIP = oForm1.Olecontrol1.LocalIP
> RELEASE oForm1
> RETURN lcIP
>
> *************************************
> DEFINE CLASS dummyform AS form
>
> DoCreate = .T.
> Caption = "dummyform"
> Name = "dummyform"
>
> PROCEDURE INIT
> IF .F.
> ** This sucks the class into the project automatically.
> SET CLASS TO ep_winsock
> ENDIF
> THISFORM.NewObject("olecontrol1", "ep_winsock", "ep_winsock")
> ENDPROC
>
> ENDDEFINE
>
> *** Where ep_winsock.vcx is (code from class browser):
> **************************************************
> *-- Class: ep_winsock (..\classlibs\ep_winsock.vcx)
> *-- ParentClass: olecontrol
> *-- BaseClass: olecontrol
> *-- Time Stamp: 02/04/02 10:38:02 AM
> *-- OLEObject = C:\WINNT\SYSTEM32\MSWINSCK.OCX
> *
> DEFINE CLASS ep_winsock AS olecontrol
> Height = 100
> Width = 100
> Name = "ep_winsock"
>
> ENDDEFINE
> *
> *-- EndDefine: ep_winsock
> **************************************************
>
> Rick
>
> "WP" <wpaul@nospam_fibertel.com.ar> wrote in message
> news:efKq7ikOHHA.780@TK2MSFTNGP03.phx.gbl...
>> Thanks, Man-wai Chang,
>>
>> I have found in fox.wikis.com the article Get Pop Email and I have run it
>> with slight modifications on my machine. It works fine, but when I
>> compile it to put it into our server, I get error message "OLE error code
>> 0x80040112: Appropriate license for this class not found". Maybe you know
>> how can I fix this?
>>
>> Walter
>>
>>
>> "Man-wai Chang" <toylet.toylet@gmail.com> escribio en el mensaje
>> news:OOEY7zjOHHA.3944@TK2MSFTNGP06.phx.gbl...
>>> WPa wrote:
>>>> I want to write a program to get the number of mails there are in the
>>>> queue
>>>> of a POP3 collector mailbox, and trigger an alarm when there are more
>>>> than
>>>> 50 mails.
>>>
>>>
http://fox.wikis.com
>>>
>>> search for "pop3" and "winsock" respectively.
>>>
>>> --
>>> .~. Might, Courage, Vision, SINCERITY.
http://www.linux-sxs.org
>>> / v \ Simplicity is Beauty! May the Force and Farce be with you!
>>> /( _ )\ (Ubuntu 6.10) Linux 2.6.19.2
>>> ^ ^ 21:39:01 up 6 days 51 min 0 users load average: 0.00 0.00 0.00
>>> news://news.3home.net news://news.hkpcug.org
>>> news://news.newsgroup.com.hk
>>
>>
>