Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Display object values
Message
General information
Forum:
Visual FoxPro
Category:
Object Oriented Programming
Environment versions
Visual FoxPro:
VFP 9 SP2
Miscellaneous
Thread ID:
01336143
Message ID:
01336148
Views:
15
This message has been marked as the solution to the initial question of the thread.
>Thank you
>
>I can see the proprieties
>
>It there anyway to display the value of a propriety ?
Pop3 = CREATEOBJECT("JMail.Pop3")
IF AMEMBERS(arrayPop3, Pop3, 3 ) # 0
CREATE CURSOR crsTest (ObjectMembres C(254), propertyType C(254), Signatured C(254), HlpString M, cValues C(254))
INSERT INTO crsTest;
FROM ARRAY arrayPop3
SCAN
IF LEFT(PropertyType,8) == [Property]
? ALLTRIM(ObjectMembres)
lcProperties = [Pop3.]+ALLTRIM(ObjectMembres)
TRY
REPLACE cValues WITH ICASE(TYPE(lcProperties) == [O], [{Object}],;
ISNULL(EVALUATE(lcProperties)), [{NULL}],;
TRANSFORM(EVALUATE(lcProperties)))
CATCH
ENDTRY
ENDIF
ENDSCAN
GO TOP
BROWSE NORMAL
ENDIF

AGAIN not tested :-)
Against Stupidity the Gods themselves Contend in Vain - Johann Christoph Friedrich von Schiller
The only thing normal about database guys is their tables.
Previous
Reply
Map
View

Click here to load this message in the networking platform