Error 1733

On Wed, 26 May 2004 03:11:56 -0600, "Zorrillo Visual"
wrote:

No se encuentra la definición de clase "nombre" (Error 1733).

Como puedo obtener un valor logico si existe o no una clase???

Para que NO me regrese este error:

oMy = CREATEOBJECT("MY.Application")

TRY
llError = .F.
oMy = CREATEOBJECT("MY.Application")
CATCH
llError = .T.
ENDTRY
IF llError
MESSAGEBOX("Clase no instanciada",16,"Error")
ENDIF



En versiones anteriores a VFP 8.0:

ON ERROR llError = .T.
oMy = CREATEOBJECT("MY.Application")
IF llError
MESSAGEBOX("Clase no instanciada",16,"Error")
ENDIF



Alex Feldstein
________________________________
Microsoft Visual FoxPro MVP
Please respond in the public groups so that everybody
can benefit from the exchange.
Favor de responder en los foros públicos asi todos se benefician.
(Address scrambled with ROT-13)

Se puede instanciar una clase por ejemplo el Notepad.exe??

saludos
"Alex Feldstein" escribió en el mensaje
news:

On Wed, 26 May 2004 03:11:56 -0600, "Zorrillo Visual"
wrote:

>No se encuentra la definición de clase "nombre" (Error 1733).
>
>Como puedo obtener un valor logico si existe o no una clase???
>
>Para que NO me regrese este error:
>
>oMy = CREATEOBJECT("MY.Application")


TRY
llError = .F.
oMy = CREATEOBJECT("MY.Application")
CATCH
llError = .T.
ENDTRY
IF llError
MESSAGEBOX("Clase no instanciada",16,"Error")
ENDIF



En versiones anteriores a VFP 8.0:

ON ERROR llError = .T.
oMy = CREATEOBJECT("MY.Application")
IF llError
MESSAGEBOX("Clase no instanciada",16,"Error")
ENDIF



Alex Feldstein
________________________________
Microsoft Visual FoxPro MVP
Please respond in the public groups so that everybody
can benefit from the exchange.
Favor de responder en los foros públicos asi todos se benefician.
(Address scrambled with ROT-13)

Outgoing mail is certified Virus Free.
Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.698 / Virus Database: 455 - Release Date: 03/06/2004

Notepad.exe no es una "clase" ni tampoco es un servidor de automatización
como por ejemplo lo es Word.

lo = CREATEOBJECT("Word.Application")
? lo.Name
? lo.Version
lo.Visible = .T.

Luis María Guayán
Tucumán, Argentina
________________________________
SysOp de www.PortalFox.com
Microsoft Visual FoxPro MVP
________________________________
La palabra imposible solo figura
en el diccionario de los tontos

"Yoban R." escribió en el mensaje
news:e$

Se puede instanciar una clase por ejemplo el Notepad.exe??

saludos
"Alex Feldstein" escribió en el mensaje
news:
> On Wed, 26 May 2004 03:11:56 -0600, "Zorrillo Visual"
> wrote:
>
> >No se encuentra la definición de clase "nombre" (Error 1733).
> >
> >Como puedo obtener un valor logico si existe o no una clase???
> >
> >Para que NO me regrese este error:
> >
> >oMy = CREATEOBJECT("MY.Application")
>
>
> TRY
> llError = .F.
> oMy = CREATEOBJECT("MY.Application")
> CATCH
> llError = .T.
> ENDTRY
> IF llError
> MESSAGEBOX("Clase no instanciada",16,"Error")
> ENDIF
>
>
>
> En versiones anteriores a VFP 8.0:
>
> ON ERROR llError = .T.
> oMy = CREATEOBJECT("MY.Application")
> IF llError
> MESSAGEBOX("Clase no instanciada",16,"Error")
> ENDIF
>
>
>
> Alex Feldstein
> ________________________________
> Microsoft Visual FoxPro MVP
> Please respond in the public groups so that everybody
> can benefit from the exchange.
> Favor de responder en los foros públicos asi todos se benefician.
> (Address scrambled with ROT-13)



Outgoing mail is certified Virus Free.
Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.698 / Virus Database: 455 - Release Date: 03/06/2004

Gracias !!

"Luis María Guayán" escribió en el mensaje
news:ODShu$

Notepad.exe no es una "clase" ni tampoco es un servidor de automatización
como por ejemplo lo es Word.

lo = CREATEOBJECT("Word.Application")
? lo.Name
? lo.Version
lo.Visible = .T.

Luis María Guayán
Tucumán, Argentina
________________________________
SysOp de www.PortalFox.com
Microsoft Visual FoxPro MVP
________________________________
La palabra imposible solo figura
en el diccionario de los tontos

"Yoban R." escribió en el mensaje
news:e$
> Se puede instanciar una clase por ejemplo el Notepad.exe??
>
> saludos
> "Alex Feldstein" escribió en el mensaje
> news:
> > On Wed, 26 May 2004 03:11:56 -0600, "Zorrillo Visual"
> > wrote:
> >
> > >No se encuentra la definición de clase "nombre" (Error 1733).
> > >
> > >Como puedo obtener un valor logico si existe o no una clase???
> > >
> > >Para que NO me regrese este error:
> > >
> > >oMy = CREATEOBJECT("MY.Application")
> >
> >
> > TRY
> > llError = .F.
> > oMy = CREATEOBJECT("MY.Application")
> > CATCH
> > llError = .T.
> > ENDTRY
> > IF llError
> > MESSAGEBOX("Clase no instanciada",16,"Error")
> > ENDIF
> >
> >
> >
> > En versiones anteriores a VFP 8.0:
> >
> > ON ERROR llError = .T.
> > oMy = CREATEOBJECT("MY.Application")
> > IF llError
> > MESSAGEBOX("Clase no instanciada",16,"Error")
> > ENDIF
> >
> >
> >
> > Alex Feldstein
> > ________________________________
> > Microsoft Visual FoxPro MVP
> > Please respond in the public groups so that everybody
> > can benefit from the exchange.
> > Favor de responder en los foros públicos asi todos se benefician.
> > (Address scrambled with ROT-13)
>
>
>
> Outgoing mail is certified Virus Free.
> Checked by AVG anti-virus system (http://www.grisoft.com).
> Version: 6.0.698 / Virus Database: 455 - Release Date: 03/06/2004
>
>

Outgoing mail is certified Virus Free.
Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.704 / Virus Database: 460 - Release Date: 12/06/2004