General discussion

Locked

Juan Calcagno

By jlc ·
Tags: Off Topic
blog root

This conversation is currently closed to new comments.

8 total posts (Page 1 of 1)  
| Thread display: Collapse - | Expand +

All Comments

Collapse -

Good day. My Blog is on.

by jlc In reply to Juan Calcagno

<p>
Yeah man, yeah!.
</p>
<p>
 
</p>
<img width="0" height="0" src="http://blog.jlcconsulting.com/aggbug.ashx?id=b705c37b-b47f-4e8d-8f8b-091efc4cb684" /><p><div class="blogdisclaim"><a href="http://blog.jlcconsulting.com/PermaLink,guid,b705c37b-b47f-4e8d-8f8b-091efc4cb684.aspx">This post originally appeared on an external website</a></div>

Collapse -

InstallShield Express for Visual Foxpro Woes

by jlc In reply to Juan Calcagno

<span style="font-size: 10pt; font-family: Verdana;">
<p>
<br>
<font color="#000000">A colleague on </font><span style="font-size: 10pt; font-family: Verdana;"><font color="#000000"></font></span><font color="#000000">the <a href="http://www.universalthread.com">UniversalThread</a>  </font><span style="font-size: 10pt; font-family: Verdana;"><font color="#000000">reported </font><span style="font-size: 10pt; font-family: Verdana;"><font color="#000000">getting
this error  </font></span></span><font color="#000000">when building his setup
using InstallShield for Visual Foxpro</font>
</p>
<p>
<font color="#000000"><strong><font size="1">Resolving strings...<br>
ISEXP : error -6264: A record in the Property table is using string ID 'ID_STRING1'
for column 'Value' but this string is blank and the column is not nullable<o></o>
</font></strong></font>
</p>
</span>
<p>
</p>
<p>
<span style="font-size: 10pt; color: black; font-family: Verdana;">I believe this
problem is either a bug or corrupted ism file.
<o></o>
</span>
</p>
<p>
<span style="font-size: 10pt; font-family: Verdana;"><font color="#000000">Although
IS does not store data in SQL database, t<span style="color: black;">rying to apply
similar concepts, you would agree with me that the program is trying to save
a .null. value into a field who does not accept such values; since you can't modify
that in IS Express for VFP, the only solution seems to be to fill that entry with
some string value. </span></font><span style="color: rgb(0, 51, 0);">
<o></o>
</span></span>
</p>
<ol type="1">
<li class="MsoNormal" style="margin: 0in 0in 0pt; color: rgb(0, 51, 0);">
<span style="font-size: 10pt; color: black; font-family: Verdana;">Open your ism project</span><span style="font-size: 10pt; font-family: Verdana;">
<o></o>
</span>
</li>
<li class="MsoNormal" style="margin: 0in 0in 0pt; color: rgb(0, 51, 0);">
<span style="font-size: 10pt; color: black; font-family: Verdana;">Click on plus sign
to open "Organize your setup? option branch</span><span style="font-size: 10pt; font-family: Verdana;">
<o></o>
</span>
</li>
<li class="MsoNormal" style="margin: 0in 0in 0pt; color: rgb(0, 51, 0);">
<span style="font-size: 10pt; color: black; font-family: Verdana;">Look for every
single entry that requires a text entry and make sure there?s a string entered for
each one, if not, enter some text, example being, ?Publisher/Product URL? needs a
string value, and so on. </span><span style="font-size: 10pt; font-family: Verdana;">
<o></o>
</span>
</li>
<li class="MsoNormal" style="margin: 0in 0in 0pt; color: rgb(0, 51, 0);">
<span style="font-size: 10pt; color: black; font-family: Verdana;">Rebuild your project,
be happy again. If still did not work look into the rest of the project where a string
entry is required and do your thing.</span>
</li>
</ol>
<p>
<span style="font-size: 10pt; color: black; font-family: Verdana;">It is difficult,
if not impossible, with this limited version of IS to determine the offending
field by using the description given in the error message <span style=""> </span></span><font color="#000000"><b style=""><span style="font-size: 10pt; font-family: Verdana;">'ID_STRING1'</span></b><span style="font-size: 10pt; color: black; font-family: Verdana;">. </span></font>
</p>
<p>
<font color="#000000"><span style="font-size: 10pt; color: black; font-family: Verdana;">You
could easily know this however. </span></font><span style="font-size: 10pt; color: black; font-family: Verdana;">That
is in the case you had the full version of IS</span><span style="font-size: 10pt; color: black; font-family: Verdana;"> Express: </span>
</p>
<ul>
<li>
<span style="font-size: 10pt; color: black; font-family: Verdana;">Use the menu option
"Project-Export String Table?  to create</span><span style="font-size: 10pt; color: black; font-family: Verdana;"> a
text file with your project info. Do this at least once before you build
the project the first time.</span>
</li>
<li>
<span style="font-size: 10pt; color: black; font-family: Verdana;">When you get an
error, open this text file and look the value reported in the error message to which
project option refers</span>
</li>
<li>
<span style="font-size: 10pt; color: black; font-family: Verdana;">Go back to your
ise file and correct only the offending field.</span>
</li>
</ul>
<p>
<font color="#000000"><span style="font-size: 10pt; font-family: Verdana;">This is
how the txt file looks like:</span></font>
</p>
<img style="width: 501px; height: 227px;" src="http://blog.jlcconsulting.com/content/binary/ISETXT.JPG" border="0" height="208" width="578"><img width="0" height="0" src="http://blog.jlcconsulting.com/aggbug.ashx?id=e6c85bdc-25c1-4d68-9148-8507912e7fb3" /><p><div class="blogdisclaim"><a href="http://blog.jlcconsulting.com/PermaLink,guid,e6c85bdc-25c1-4d68-9148-8507912e7fb3.aspx">This post originally appeared on an external website</a></div>

Collapse -

Look who's talking...

by jlc In reply to Juan Calcagno

<span style="FONT-SIZE: 10pt; COLOR: #003300; FONT-FAMILY: Verdana"><span style="FONT-SIZE: 10pt; COLOR: #003300; FONT-FAMILY: Verdana"><span style="FONT-SIZE: 10pt; COLOR: #003300; FONT-FAMILY: Verdana">
<p>
<span style="FONT-SIZE: 10pt; COLOR: #003300; FONT-FAMILY: Verdana"><?xml:namespace prefix = o ns = "urn:schemas-microsoft-com:office:office" />I
remember, a while ago, two famous FoxPro gurus were fighting on what
Visual FoxPro was going to be able to do running (if ever possible) on Longhorn
and Avalon (now WPF).  One of them claimed that the impact of these new
technologies was going to be of such magnitude that would leave VFP totally out of
the game. The second guru, needles to say, denied this. It was a colorful discussion,
both got carried on to a point guru #1 proposed to bet money to show how serious
he was.<o></o>
</span>
</p>
<p>
<span style="FONT-SIZE: 10pt; COLOR: #003300; FONT-FAMILY: Verdana">As guru #2, but
for different reasons, I thought #1 was wrong.<o></o>
</span>
</p>
<p>
<span style="FONT-SIZE: 10pt; COLOR: #003300; FONT-FAMILY: Verdana">These pictures
speak by themselves. In case you didn't notice, it's FoxPro 2.6 DOS and VFP 9
running on Windows VISTA (formerly Longhorn) PDC 2005 build. In addition, I was
able to run a FoxPro DOS program (built back in 1993) flawlessly without touching
a single line of code.
<o></o>
</span>
</p>
<p>
<span style="FONT-SIZE: 10pt; COLOR: #003300; FONT-FAMILY: Verdana">But this means
nothing compared to what can be seen in <a href="http://channel9.msdn.com/ShowPost.aspx?PostID=78672#78672">Ken
Levy?s Channel9 video</a>, (I recommend the whole video but, for what is
worth, the fun starts at minute 21). <o></o>
</span>
</p>
<p>
<span style="FONT-SIZE: 10pt; COLOR: #003300; FONT-FAMILY: Verdana">Now, is it me
or one of these 2 persons proved to be soooo... wrong? </span><span style="FONT-SIZE: 10pt; COLOR: #003300; FONT-FAMILY: Verdana">I am
also wondering what they may think now...<o></o>
</span>
</p>
<p>
</span></span></span>>
<img src="http://blog.jlcconsulting.com/content/binary/VistaFoxDOS_1.JPG" border=0><img src="http://blog.jlcconsulting.com/content/binary/vISTAvfp3_1.JPG" border=0><img width="0" height="0" src="http://blog.jlcconsulting.com/aggbug.ashx?id=a4c0d684-e0bb-4338-b7c5-540947479f72" /><p><div class="blogdisclaim"><a href="http://blog.jlcconsulting.com/PermaLink,guid,a4c0d684-e0bb-4338-b7c5-540947479f72.aspx">This post originally appeared on an external website</a></div>

Collapse -

ProjectHooks with non-visual Classes

by jlc In reply to Juan Calcagno

<p>
A colleague using VFP7 asked recently about removing those pesky printer references
in reports. Of course, you have a way to manually remove them in VFP8
and VFP9 (report menu-printer environment and also for VFP9 report properties).
</p>
<p>
In case you still maintain projects in VFP7 and/or upgrade report files into projects
using versions 8 or 9, trying to remove those printer references (if any) automatically
won't hurt your project after all. The best known option for this is to put some
code in your project hook class 'beforebuild' method.
</p>
<p>
Most Fox people know that they can associate a ProjectHook visual class with
their projects using the Project Menu options available; Since I couldn't send to
my colleague the visual class as a file  (it was an internet newsgroup), I thought
of a way to do this programatically so here's another way to do it, probably useful
in case you had your classes defined in a prg. The downside is that the ProjectHook
reference does not persist when you close the project.
</p>
<p>
This code takes care of creating the class file and adding at least one file
to the project in order to build it as an APP, needles to say these are things needed
for this example only, in a real life scenario those 2 would be existing
files.
</p>
<p>
<span style="FONT-SIZE: 11px; COLOR: black; FONT-FAMILY: Courier New; BACKGROUND-COLOR: transparent">#include
foxpro.h
<br>
<span style="FONT-SIZE: 11px; COLOR: blue; FONT-FAMILY: Courier New; BACKGROUND-COLOR: transparent">clear</span>
<br>
<span style="FONT-SIZE: 11px; COLOR: blue; FONT-FAMILY: Courier New; BACKGROUND-COLOR: transparent">IF</span> FILE(<span style="FONT-SIZE: 11px; COLOR: #666666; FONT-FAMILY: Courier New; BACKGROUND-COLOR: #e4e4e4">"foo.prg"</span&gt<br>
    DELETE FILE FOO.PRG<br>
ENDIF<br>
<br>
<span style="FONT-SIZE: 11px; COLOR: blue; FONT-FAMILY: Courier New; BACKGROUND-COLOR: transparent">IF</span> FILE(<span style="FONT-SIZE: 11px; COLOR: #666666; FONT-FAMILY: Courier New; BACKGROUND-COLOR: #e4e4e4">"MyClasses.PRG"</span&gt<br>
    DELETE FILE MyClasses.PRG<br>
ENDIF<br>
<br>
<span style="FONT-SIZE: 11px; COLOR: blue; FONT-FAMILY: Courier New; BACKGROUND-COLOR: transparent">IF</span> FILE(<span style="FONT-SIZE: 11px; COLOR: #666666; FONT-FAMILY: Courier New; BACKGROUND-COLOR: #e4e4e4">"MyProject.pjx"</span&gt<br>
    DELETE FILE MyProject.*<br>
ENDIF<br>
<br>
<br>
LOCAL lcMyProjectHookVar
<br>
TEXT <span style="FONT-SIZE: 11px; COLOR: blue; FONT-FAMILY: Courier New; BACKGROUND-COLOR: transparent">TO</span> lcMyProjectHookVar
noshow<br>
    **************************************************<br>
    *-- <span style="FONT-SIZE: 11px; COLOR: blue; FONT-FAMILY: Courier New; BACKGROUND-COLOR: transparent">Class</span>:
myphook (c:\noninteractive\annunciacurrent\phookexample.vcx)<br>
    *-- ParentClass: projecthook<br>
    *-- BaseClass: projecthook<br>
    *-- Time Stamp: 02/17/06 03:49:02 PM<br>
    <span style="FONT-SIZE: 11px; COLOR: red; FONT-FAMILY: Courier New; BACKGROUND-COLOR: transparent">*</span>
<br>
    DEFINE <span style="FONT-SIZE: 11px; COLOR: blue; FONT-FAMILY: Courier New; BACKGROUND-COLOR: transparent">CLASS</span> myphook <span style="FONT-SIZE: 11px; COLOR: blue; FONT-FAMILY: Courier New; BACKGROUND-COLOR: transparent">AS</span> projecthook<br>
<br>
<br>
        Height <span style="FONT-SIZE: 11px; COLOR: red; FONT-FAMILY: Courier New; BACKGROUND-COLOR: transparent">=</span> 22<br>
        Width <span style="FONT-SIZE: 11px; COLOR: red; FONT-FAMILY: Courier New; BACKGROUND-COLOR: transparent">=</span> 23<br>
        Name <span style="FONT-SIZE: 11px; COLOR: red; FONT-FAMILY: Courier New; BACKGROUND-COLOR: transparent">=</span> <span style="FONT-SIZE: 11px; COLOR: #666666; FONT-FAMILY: Courier New; BACKGROUND-COLOR: #e4e4e4">"myphook"</span>
<br>
<br>
<br>
        *-- Cleans Fields EXPR, TAG, TAG2
Contents <span style="FONT-SIZE: 11px; COLOR: blue; FONT-FAMILY: Courier New; BACKGROUND-COLOR: transparent">On</span> First
Record Of Report File<br>
        PROCEDURE cleanreportprinterreferences<br>
            <span style="FONT-SIZE: 11px; COLOR: blue; FONT-FAMILY: Courier New; BACKGROUND-COLOR: transparent">PRIVATE</span> a<br>
            <span style="FONT-SIZE: 11px; COLOR: blue; FONT-FAMILY: Courier New; BACKGROUND-COLOR: transparent">WITH</span> _vfp.ActiveProject.Files<br>
                <span style="FONT-SIZE: 11px; COLOR: blue; FONT-FAMILY: Courier New; BACKGROUND-COLOR: transparent">FOR</span> a=1 <span style="FONT-SIZE: 11px; COLOR: blue; FONT-FAMILY: Courier New; BACKGROUND-COLOR: transparent">TO</span> .<span style="FONT-SIZE: 11px; COLOR: blue; FONT-FAMILY: Courier New; BACKGROUND-COLOR: transparent">Count</span>
<br>
            
<br>
                 <span style="FONT-SIZE: 11px; COLOR: blue; FONT-FAMILY: Courier New; BACKGROUND-COLOR: transparent">IF</span> UPPER(JUSTEXT(.<span style="FONT-SIZE: 11px; COLOR: blue; FONT-FAMILY: Courier New; BACKGROUND-COLOR: transparent">Item</span>(a).Name))<span style="FONT-SIZE: 11px; COLOR: red; FONT-FAMILY: Courier New; BACKGROUND-COLOR: transparent">=</span><span style="FONT-SIZE: 11px; COLOR: #666666; FONT-FAMILY: Courier New; BACKGROUND-COLOR: #e4e4e4">"FRX"</span>
<br>
                
USE .<span style="FONT-SIZE: 11px; COLOR: blue; FONT-FAMILY: Courier New; BACKGROUND-COLOR: transparent">Item</span>(a).Name
EXCLUSIVE
<br>
                 <span style="FONT-SIZE: 11px; COLOR: blue; FONT-FAMILY: Courier New; BACKGROUND-COLOR: transparent">REPLACE</span> expr <span style="FONT-SIZE: 11px; COLOR: blue; FONT-FAMILY: Courier New; BACKGROUND-COLOR: transparent">WITH</span> <span style="FONT-SIZE: 11px; COLOR: #666666; FONT-FAMILY: Courier New; BACKGROUND-COLOR: #e4e4e4">""</span>,
tag <span style="FONT-SIZE: 11px; COLOR: blue; FONT-FAMILY: Courier New; BACKGROUND-COLOR: transparent">WITH</span> <span style="FONT-SIZE: 11px; COLOR: #666666; FONT-FAMILY: Courier New; BACKGROUND-COLOR: #e4e4e4">""</span>,tag2 <span style="FONT-SIZE: 11px; COLOR: blue; FONT-FAMILY: Courier New; BACKGROUND-COLOR: transparent">WITH</span> <span style="FONT-SIZE: 11px; COLOR: #666666; FONT-FAMILY: Courier New; BACKGROUND-COLOR: #e4e4e4">""</span>
<br>
                
PACK
<br>
                
USE <span style="FONT-SIZE: 11px; COLOR: blue; FONT-FAMILY: Courier New; BACKGROUND-COLOR: transparent">IN</span> JUSTSTEM(.<span style="FONT-SIZE: 11px; COLOR: blue; FONT-FAMILY: Courier New; BACKGROUND-COLOR: transparent">Item</span>(a).Name)<br>
                
ENDIF<br>
            
<br>
                <span style="FONT-SIZE: 11px; COLOR: blue; FONT-FAMILY: Courier New; BACKGROUND-COLOR: transparent">NEXT</span>
<br>
            ENDWITH
<br>
        ENDPROC<br>
<br>
<br>
        PROCEDURE BeforeBuild<br>
            LPARAMETERS
cOutputName, nBuildAction, lRebuildAll, lShowErrors, lBuildNewGuids<br>
            WAIT WINDOW <span style="FONT-SIZE: 11px; COLOR: #666666; FONT-FAMILY: Courier New; BACKGROUND-COLOR: #e4e4e4">"Hello
World from BEFOREBUILD"</span> TIMEOUT 5<br>
            THIS.CleanReportPrinterReferences()<br>
        ENDPROC<br>
<br>
<br>
    ENDDEFINE<br>
    <span style="FONT-SIZE: 11px; COLOR: red; FONT-FAMILY: Courier New; BACKGROUND-COLOR: transparent">*</span>
<br>
    *-- EndDefine: myphook<br>
    **************************************************endtet<br>
ENDTEXT<br>
STRTOFILE(lcMyProjectHookVar ,<span style="FONT-SIZE: 11px; COLOR: #666666; FONT-FAMILY: Courier New; BACKGROUND-COLOR: #e4e4e4">"MyClasses.PRG"</span>,0)<br>
STRTOFILE(<span style="FONT-SIZE: 11px; COLOR: #666666; FONT-FAMILY: Courier New; BACKGROUND-COLOR: #e4e4e4">"*
Main Program PlaceHolder"</span>,<span style="FONT-SIZE: 11px; COLOR: #666666; FONT-FAMILY: Courier New; BACKGROUND-COLOR: #e4e4e4">"FOO.PRG"</span>,0)<br>
<br>
<span style="FONT-SIZE: 11px; COLOR: blue; FONT-FAMILY: Courier New; BACKGROUND-COLOR: transparent">SET</span> PROCEDURE <span style="FONT-SIZE: 11px; COLOR: blue; FONT-FAMILY: Courier New; BACKGROUND-COLOR: transparent">TO</span> MyClasses.PRG<br>
<br>
MODIFY PROJECT MyProject NOWAIT noshow<br>
_VFP.ActiveProject.ProjectHook <span style="FONT-SIZE: 11px; COLOR: red; FONT-FAMILY: Courier New; BACKGROUND-COLOR: transparent">=</span> NewObject(<span style="FONT-SIZE: 11px; COLOR: green; FONT-FAMILY: Courier New; BACKGROUND-COLOR: transparent">'MyPHook')</span>
<br>
<span style="FONT-SIZE: 11px; COLOR: blue; FONT-FAMILY: Courier New; BACKGROUND-COLOR: transparent">IF</span> <span style="FONT-SIZE: 11px; COLOR: blue; FONT-FAMILY: Courier New; BACKGROUND-COLOR: transparent">VARTYPE</span>(_VFP.ActiveProject.ProjectHook)==<span style="FONT-SIZE: 11px; COLOR: #666666; FONT-FAMILY: Courier New; BACKGROUND-COLOR: #e4e4e4">"O"</span>
<br>
    ?DATETIME(),<span style="FONT-SIZE: 11px; COLOR: #666666; FONT-FAMILY: Courier New; BACKGROUND-COLOR: #e4e4e4">":
ProjectHook Created Succesfully"</span>
<br>
<span style="FONT-SIZE: 11px; COLOR: blue; FONT-FAMILY: Courier New; BACKGROUND-COLOR: transparent">ELSE</span>
<br>
    ?DATETIME(),<span style="FONT-SIZE: 11px; COLOR: #666666; FONT-FAMILY: Courier New; BACKGROUND-COLOR: #e4e4e4">":
WARNING->ProjectHook NOT Created Succesfully"</span>
<br>
ENDIF<br>
<br>
<span style="FONT-SIZE: 11px; COLOR: blue; FONT-FAMILY: Courier New; BACKGROUND-COLOR: transparent">IF</span> FILE(<span style="FONT-SIZE: 11px; COLOR: #666666; FONT-FAMILY: Courier New; BACKGROUND-COLOR: #e4e4e4">"FOO.PRG"</span&gt<br>
    _VFP.ActiveProject.Files.<span style="FONT-SIZE: 11px; COLOR: blue; FONT-FAMILY: Courier New; BACKGROUND-COLOR: transparent">Add</span<span style="FONT-SIZE: 11px; COLOR: #666666; FONT-FAMILY: Courier New; BACKGROUND-COLOR: #e4e4e4">"FOO.PRG"</span&gt<br>
    ?DATETIME(),<span style="FONT-SIZE: 11px; COLOR: #666666; FONT-FAMILY: Courier New; BACKGROUND-COLOR: #e4e4e4">":
FOO.PRG added to the project, BUILD about to run."</span>
<br>
    <span style="FONT-SIZE: 11px; COLOR: blue; FONT-FAMILY: Courier New; BACKGROUND-COLOR: transparent">IF</span> _VFP.ActiveProject.Build(JUSTSTEM(_VFP.ActiveProject.Name),
BUILDACTION_BUILDAPP )<br>
            ?DATETIME(),<span style="FONT-SIZE: 11px; COLOR: #666666; FONT-FAMILY: Courier New; BACKGROUND-COLOR: #e4e4e4">":
BUILD WAS SUCCESSFUL!"</span>
<br>
    <span style="FONT-SIZE: 11px; COLOR: blue; FONT-FAMILY: Courier New; BACKGROUND-COLOR: transparent">ELSE</span>
<br>
            ?DATETIME(),<span style="FONT-SIZE: 11px; COLOR: #666666; FONT-FAMILY: Courier New; BACKGROUND-COLOR: #e4e4e4">":
WARNING->BUILD WAS UNSUCCESSFUL"</span>
<br>
<br>
    ENDIF<br>
<span style="FONT-SIZE: 11px; COLOR: blue; FONT-FAMILY: Courier New; BACKGROUND-COLOR: transparent">ELSE</span>
<br>
    ?DATETIME(),<span style="FONT-SIZE: 11px; COLOR: #666666; FONT-FAMILY: Courier New; BACKGROUND-COLOR: #e4e4e4">":
WARNING->Could not add a file to the project, BUILD not run."</span>
<br>
ENDIF<br>
<br>
<br>
_vfp.ActiveProject.Visible=.t.
<br>
</span>
</p>
<img width="0" height="0" src="http://blog.jlcconsulting.com/aggbug.ashx?id=72e3e32a-51a9-4843-b4c2-a88fa94ce266" /><p><div class="blogdisclaim"><a href="http://blog.jlcconsulting.com/PermaLink,guid,72e3e32a-51a9-4843-b4c2-a88fa94ce266.aspx">This post originally appeared on an external website</a></div>

Collapse -

NULL Values And Indexes

by jlc In reply to Juan Calcagno

<p>
I recently run into the problem of not getting the right order for records on a temporary
table. This is how data looked when using and index created as follows:
</p>
<p>
<font color="#0000ff" face="Courier New">INDEX ON UPPER<font color="#008080" face="Courier New"</font><font color="#800000" face="Courier New">company_name</font><font color="#008080" face="Courier New">)+</font><font color="#0000ff" face="Courier New">UPPER</font><font color="#008080" face="Courier New"</font><font color="#008080" face="Courier New"></font><font color="#800000" face="Courier New">dept_name</font><font color="#008080" face="Courier New">)+</font><font color="#0000ff" face="Courier New">UPPER</font><font color="#008080" face="Courier New"</font><font color="#800000" face="Courier New">EMPLOYEE_LASTNAME</font><font color="#008080" face="Courier New">)+</font><font color="#0000ff" face="Courier New">UPPER</font><font color="#008080" face="Courier New"</font><font color="#800000" face="Courier New">EMPLOYEE_FIRSTNAME</font><font color="#008080" face="Courier New"&gt </font><font color="#0000ff" face="Courier New">TAG </font><font color="#800000" face="Courier New">ciadeptemp</font></font>
</p>
<p>
<span style="font-size: 11px; color: black; font-family: Courier New; background-color: transparent;">COMPANY_NAME,DEPT_NAME,LAST_NAME,FIRST_NAME
<br>
Company 1, <span style="font-size: 11px; color: blue; font-family: Courier New; background-color: transparent;">null</span>,j,c<br>
Company 2, Sales,f,c<br>
Company 1,Tech Support,g,c<br>
</span>
</p>
<font color="#800000" face="Courier New"><font color="#0000ff" face="Courier New"> </font></font>
<p>
<font color="#800000" face="Courier New"><font color="#0000ff" face="Courier New"><font color="#000000">What
happened? Shouldn't I get all the 'Company 1' records before seeing 'Company 2'? Of
course, but that is in case there were not null values in any of the fields that
are part of the index key. </font></font></font>
</p>
<p>
<font color="#800000" face="Courier New"><font color="#0000ff" face="Courier New"><font color="#000000">In
my case, field "dept_name" accepted .null. values so the index key for that record
evaluates to .NULL., therefore, appears at the top. </font><font color="#000000">This
new index key solved it:</font></font></font>
</p>
<p>
<font color="#800000" face="Courier New"><font color="#0000ff" face="Courier New">INDEX
ON UPPER</font><font color="#008080" face="Courier New"</font><font color="#800000" face="Courier New">company_name</font><font color="#008080" face="Courier New">)+</font><font color="#0000ff" face="Courier New">UPPER</font><font color="#008080" face="Courier New"</font><font color="#0000ff" face="Courier New">IIF</font><font color="#008080" face="Courier New"</font><font color="#0000ff" face="Courier New">ISNULL</font><font color="#008080" face="Courier New"</font><font color="#800000" face="Courier New">dept_name</font><font color="#008080" face="Courier New">),</font><font color="#0000ff" face="Courier New">space</font><font color="#008080" face="Courier New"</font><font color="#800080" face="Courier New">40</font><font color="#008080" face="Courier New">),</font><font color="#800000" face="Courier New">dept_name</font><font color="#008080" face="Courier New">))+</font><font color="#0000ff" face="Courier New">UPPER</font><font color="#008080" face="Courier New"</font><font color="#800000" face="Courier New">EMPLOYEE_LASTNAME</font><font color="#008080" face="Courier New">)+</font><font color="#0000ff" face="Courier New">UPPER</font><font color="#008080" face="Courier New"</font><font color="#800000" face="Courier New">EMPLOYEE_FIRSTNAME</font><font color="#008080" face="Courier New"&gt </font><font color="#0000ff" face="Courier New">TAG </font><font color="#800000" face="Courier New">ciadeptemp</font></font>
</p>
<p>
<font color="#800000" face="Courier New"><font color="#800000" face="Courier New"><font color="#000000">Never
run into this before, so many years working with VFP but how much I've got to
learn yet. Did anybody resolve this in a different way?</font></font></font>
</p>
<img width="0" height="0" src="http://blog.jlcconsulting.com/aggbug.ashx?id=a830afdc-67af-42f2-8e0a-6714ba6f4a42" /><p><div class="blogdisclaim"><a href="http://blog.jlcconsulting.com/PermaLink,guid,a830afdc-67af-42f2-8e0a-6714ba6f4a42.aspx">This post originally appeared on an external website</a></div>

Collapse -

Visual Foxpro RSS Reader ?

by jlc In reply to Juan Calcagno

<p>
I used to think that blogs were the most idiotic thing in the world. That was not
so long ago.<br>
<br>
Nowadays I'd rather read blogs that surf web sites. Yes, I am the real idiot.
</p>
<p>
Who would've thought then, that I would be having fun building a VFP RSS Reader.<br>
I will be posting more as I make progress, but here are a few pictures.<br>
<br>
You may want to know from what I've done so far it took me less lines of
code with Visual foxpro than with our, ahem rich cousin,  .NET.
</p>
<p>
[Update: forgot to mention that <a href="http://blogs.msdn.com/calvin_hsia/archive/2005/01/14/353424.aspx">Calvin
Hsia</a> has built one also, using a different approach though]
</p>
<p>
<img src="http://blog.jlcconsulting.com/content/binary/Blog1.JPG" border=0><img src="http://blog.jlcconsulting.com/content/binary/Blog2.JPG" border=0>
</p>
<img width="0" height="0" src="http://blog.jlcconsulting.com/aggbug.ashx?id=ddcfdbe3-1857-44f3-9c05-aed0abbfc5a0" /><p><div class="blogdisclaim"><a href="http://blog.jlcconsulting.com/PermaLink,guid,ddcfdbe3-1857-44f3-9c05-aed0abbfc5a0.aspx">This post originally appeared on an external website</a></div>

Collapse -

Windows RSS Platform + VFP not quite possible (yet?).

by jlc In reply to Juan Calcagno

<p class=MsoNormal style="MARGIN: 0in 0in 0pt">
<span style="FONT-SIZE: 10pt; FONT-FAMILY: Verdana"><font color=#000000>Code-wise
speaking, I haven?t done big improvements since my previous post on this matter.<span style="mso-spacerun: yes">  </span><?xml:namespace prefix = o ns = "urn:schemas-microsoft-com:office:office" />But
I?ve spent a considerable amount of time to figure out that this technology is not
ready for Foxpro, if it will ever be.<o></o>
</font></span>
</p>
<p class=MsoNormal style="MARGIN: 0in 0in 0pt">
<span style="FONT-SIZE: 10pt; FONT-FAMILY: Verdana">
<o>
<font color=#000000> </font>
</o>
</span>
</p>
<p class=MsoNormal style="MARGIN: 0in 0in 0pt">
<span style="FONT-SIZE: 10pt; FONT-FAMILY: Verdana"><font color=#000000>I?ll go directly
to the point: </font></span>
</p>
<p class=MsoNormal style="MARGIN: 0in 0in 0pt">
<span style="FONT-SIZE: 10pt; FONT-FAMILY: Verdana"></span><span style="FONT-SIZE: 10pt; FONT-FAMILY: Verdana"><font color=#000000>With
the new Internet Explorer 7 (Beta 2) we also get the RSS Platform (in ways of a DLL
file @ c:\windows\system32\msfeeds.dll).
<o></o>
</font></span>
</p>
<p class=MsoNormal style="MARGIN: 0in 0in 0pt">
<span style="FONT-SIZE: 10pt; FONT-FAMILY: Verdana">
<o>
<font color=#000000> </font>
</o>
</span>
</p>
<p class=MsoNormal style="MARGIN: 0in 0in 0pt">
<span style="FONT-SIZE: 10pt; FONT-FAMILY: Verdana"><font color=#000000>Yes, you need
to install this Beta if you want to test the code posted here.
<o></o>
</font></span>
</p>
<p class=MsoNormal style="MARGIN: 0in 0in 0pt">
<span style="FONT-SIZE: 10pt; FONT-FAMILY: Verdana"><font color=#000000>If you have
concerns about replacing your beloved IE 6 installation, shall I say then that you
can always uninstall?</font></span>
</p>
<p class=MsoNormal style="MARGIN: 0in 0in 0pt">
<span style="FONT-SIZE: 10pt; FONT-FAMILY: Verdana">
<o>
<font color=#000000> </font>
</o>
</span>
</p>
<p class=MsoNormal style="MARGIN: 0in 0in 0pt">
<span style="FONT-SIZE: 10pt; FONT-FAMILY: Verdana"><font color=#000000>Once you?ve
got IE7 Beta2 installed, all you need to do from the command window:<o></o>
</font></span>
</p>
<p class=MsoNormal style="MARGIN: 0in 0in 0pt; mso-layout-grid-align: none">
<span style="FONT-SIZE: 10pt; FONT-FAMILY: 'Courier New'"><font color=#000000><span style="mso-tab-count: 1">      </span>
<br style="mso-special-character: line-break">
<span style="FONT-SIZE: 12pt; FONT-FAMILY: 'Times New Roman'; mso-fareast-font-family: 'Times New Roman'; mso-ansi-language: EN-US; mso-fareast-language: EN-US; mso-bidi-language: AR-SA"><?xml:namespace prefix = v ns = "urn:schemas-microsoft-com:vml" />
<v:shapetype id=_x0000_t75 filled="f" stroked="f" path="m@4@5l@4@11@9@11@9@5xe" o:preferrelative="t" o:spt="75" coordsize="21600,21600">
<v:stroke joinstyle="miter"></v:stroke>
<v:formulas>
<v:f eqn="if lineDrawn pixelLineWidth 0"></v:f>
<v:f eqn="sum @0 1 0"></v:f>
<v:f eqn="sum 0 0 @1"></v:f>
<v:f eqn="prod @2 1 2"></v:f>
<v:f eqn="prod @3 21600 pixelWidth"></v:f>
<v:f eqn="prod @3 21600 pixelHeight"></v:f>
<v:f eqn="sum @0 0 1"></v:f>
<v:f eqn="prod @6 1 2"></v:f>
<v:f eqn="prod @7 21600 pixelWidth"></v:f>
<v:f eqn="sum @8 21600 0"></v:f>
<v:f eqn="prod @7 21600 pixelHeight"></v:f>
<v:f eqn="sum @10 21600 0"></v:f>
</v:formulas>
<v:path o:connecttype="rect" gradientshapeok="t" o:extrusionok="f"></v:path>
<o:lock aspectratio="t" v:ext="edit"></o:lock>
</v:shapetype>
</span><img style="WIDTH: 424px; HEIGHT: 293px" height=283 src="http://blog.jlcconsulting.com/content/binary/Blog-FeedsObject.JPG" width=428 border=0>
<br style="mso-special-character: line-break">
<o></o>
</font></span>
</p>
<p class=MsoNormal style="MARGIN: 0in 0in 0pt">
<v:oval id=_x0000_s1026 style="MARGIN-TOP: 59.45pt; Z-INDEX: 1; MARGIN-LEFT: 1in; WIDTH: 63pt; POSITION: absolute; HEIGHT: 18pt; mso-position-horizontal: absolute; mso-position-vertical: absolute" strokecolor="red" filled="f">
<font color=#000000></font>
</v:oval>
<v:shapetype id=_x0000_t75 filled="f" stroked="f" path="m@4@5l@4@11@9@11@9@5xe" o:preferrelative="t" o:spt="75" coordsize="21600,21600">
<v:stroke joinstyle="miter"></v:stroke>
<v:formulas>
<v:f eqn="if lineDrawn pixelLineWidth 0"></v:f>
<v:f eqn="sum @0 1 0"></v:f>
<v:f eqn="sum 0 0 @1"></v:f>
<v:f eqn="prod @2 1 2"></v:f>
<v:f eqn="prod @3 21600 pixelWidth"></v:f>
<v:f eqn="prod @3 21600 pixelHeight"></v:f>
<v:f eqn="sum @0 0 1"></v:f>
<v:f eqn="prod @6 1 2"></v:f>
<v:f eqn="prod @7 21600 pixelWidth"></v:f>
<v:f eqn="sum @8 21600 0"></v:f>
<v:f eqn="prod @7 21600 pixelHeight"></v:f>
<v:f eqn="sum @10 21600 0"></v:f>
</v:formulas>
<v:path o:connecttype="rect" gradientshapeok="t" o:extrusionok="f"></v:path>
<o:lock aspectratio="t" v:ext="edit"></o:lock>
</v:shapetype>
</p>
<p class=MsoNormal style="MARGIN: 0in 0in 0pt">
<span style="FONT-SIZE: 10pt; FONT-FAMILY: Verdana"><font color=#000000>The Feeds
?property?, holds all of your subscribed feeds collection, following the example from
the picture above, the following code will print all those feeds names:<o></o>
</font></span>
</p>
<p class=MsoNormal style="MARGIN: 0in 0in 0pt; mso-layout-grid-align: none">
<span style="FONT-SIZE: 10pt; COLOR: maroon; FONT-FAMILY: 'Courier New'">
<o> </o>
</span>
</p>
<p class=MsoNormal style="MARGIN: 0in 0in 0pt; mso-layout-grid-align: none">
<span style="FONT-SIZE: 10pt; COLOR: maroon; FONT-FAMILY: 'Courier New'">oFeedManager</span><span style="FONT-SIZE: 10pt; COLOR: teal; FONT-FAMILY: 'Courier New'">=</span><span style="FONT-SIZE: 10pt; COLOR: blue; FONT-FAMILY: 'Courier New'">NEWOBJECT</span><span style="FONT-SIZE: 10pt; COLOR: teal; FONT-FAMILY: 'Courier New'"</span><span style="FONT-SIZE: 10pt; COLOR: red; FONT-FAMILY: 'Courier New'">"Microsoft.FeedsManager"</span><span style="FONT-SIZE: 10pt; COLOR: teal; FONT-FAMILY: 'Courier New'"&gt<o></o>
</span>
</p>
<p class=MsoNormal style="MARGIN: 0in 0in 0pt; mso-layout-grid-align: none">
<span style="FONT-SIZE: 10pt; COLOR: maroon; FONT-FAMILY: 'Courier New'">oRootFolder</span><span style="FONT-SIZE: 10pt; COLOR: teal; FONT-FAMILY: 'Courier New'">=</span><span style="FONT-SIZE: 10pt; COLOR: maroon; FONT-FAMILY: 'Courier New'">oFeedManager</span><span style="FONT-SIZE: 10pt; COLOR: teal; FONT-FAMILY: 'Courier New'">.</span><span style="FONT-SIZE: 10pt; COLOR: maroon; FONT-FAMILY: 'Courier New'">RootFolder<o></o>
</span>
</p>
<p class=MsoNormal style="MARGIN: 0in 0in 0pt; mso-layout-grid-align: none">
<span style="FONT-SIZE: 10pt; COLOR: maroon; FONT-FAMILY: 'Courier New'">oAllMyFeeds</span><span style="FONT-SIZE: 10pt; COLOR: teal; FONT-FAMILY: 'Courier New'">=</span><span style="FONT-SIZE: 10pt; COLOR: maroon; FONT-FAMILY: 'Courier New'">oRootFolder</span><span style="FONT-SIZE: 10pt; COLOR: teal; FONT-FAMILY: 'Courier New'">.</span><span style="FONT-SIZE: 10pt; COLOR: maroon; FONT-FAMILY: 'Courier New'">Feeds<o></o>
</span>
</p>
<p class=MsoNormal style="MARGIN: 0in 0in 0pt; mso-layout-grid-align: none">
<span style="FONT-SIZE: 10pt; COLOR: blue; FONT-FAMILY: 'Courier New'">FOR EACH </span><span style="FONT-SIZE: 10pt; COLOR: maroon; FONT-FAMILY: 'Courier New'">oCurrFeed </span><span style="FONT-SIZE: 10pt; COLOR: blue; FONT-FAMILY: 'Courier New'">in </span><span style="FONT-SIZE: 10pt; COLOR: maroon; FONT-FAMILY: 'Courier New'">oAllMyFeeds<o></o>
</span>
</p>
<p class=MsoNormal style="MARGIN: 0in 0in 0pt; mso-layout-grid-align: none">
<span style="FONT-SIZE: 10pt; COLOR: maroon; FONT-FAMILY: 'Courier New'"><span style="mso-tab-count: 1">      </span></span><span style="FONT-SIZE: 10pt; COLOR: teal; FONT-FAMILY: 'Courier New'">?</span><span style="FONT-SIZE: 10pt; COLOR: maroon; FONT-FAMILY: 'Courier New'">oCurrFeed</span><span style="FONT-SIZE: 10pt; COLOR: teal; FONT-FAMILY: 'Courier New'">.</span><span style="FONT-SIZE: 10pt; COLOR: blue; FONT-FAMILY: 'Courier New'">name<o></o>
</span>
</p>
<p class=MsoNormal style="MARGIN: 0in 0in 0pt; mso-layout-grid-align: none">
<span style="FONT-SIZE: 10pt; COLOR: blue; FONT-FAMILY: 'Courier New'">NEXT<o></o>
</span>
</p>
<p class=MsoNormal style="MARGIN: 0in 0in 0pt; mso-layout-grid-align: none">
<span style="FONT-SIZE: 10pt; COLOR: blue; FONT-FAMILY: 'Courier New'">
<o> </o>
</span>
</p>
<p class=MsoNormal style="MARGIN: 0in 0in 0pt">
<span style="FONT-SIZE: 10pt; FONT-FAMILY: Verdana"><font color=#000000>The RSS API
has been well documented at </font><a href="http://msdn.microsoft.com/library/default.asp?url=/library/en-us/feedsapi/rss/overviews/msfeeds_ovw.asp"><font color=#800080>http://msdn.microsoft.com/library/default.asp?url=/library/en-us/feedsapi/rss/overviews/msfeeds_ovw.asp</font></a><font color=#000000> ,
take a look at it to learn more about how this API is structured and the usage for
the different methods, properties and events that are available.<o></o>
</font></span>
</p>
<p class=MsoNormal style="MARGIN: 0in 0in 0pt">
<span style="FONT-SIZE: 10pt; FONT-FAMILY: Verdana"><font color=#000000><span style="mso-spacerun: yes"> </span>
<o></o>
</font></span>
</p>
<p class=MsoNormal style="MARGIN: 0in 0in 0pt">
<span style="FONT-SIZE: 10pt; FONT-FAMILY: Verdana"><font color=#000000>Sorry, did
I say ?events?? Well ignore that for the Foxpro scenario, as you?ll read in the ?Issues,
issues....? section of this post, RSS events don?t work in VFP.<o></o>
</font></span>
</p>
<p class=MsoNormal style="MARGIN: 0in 0in 0pt">
<span style="FONT-SIZE: 10pt; FONT-FAMILY: Verdana">
<o>
<font color=#000000> </font>
</o>
</span>
</p>
<p class=MsoNormal style="MARGIN: 0in 0in 0pt">
<span style="FONT-SIZE: 10pt; FONT-FAMILY: Verdana">
<o>
<font color=#000000> </font>
</o>
</span>
</p>
<p class=MsoNormal style="MARGIN: 0in 0in 0pt">
<b style="mso-bidi-font-weight: normal"><span style="FONT-FAMILY: Verdana"><font size=3><font color=#000000>My
approach: a goodwill attempt.<o></o>
</font></font></span></b>
</p>
<p class=MsoNormal style="MARGIN: 0in 0in 0pt">
<span style="FONT-SIZE: 10pt; FONT-FAMILY: Verdana">
<o>
<font color=#000000> </font>
</o>
</span>
</p>
<p class=MsoNormal style="MARGIN: 0in 0in 0pt">
<span style="FONT-SIZE: 10pt; FONT-FAMILY: Verdana"><font color=#000000>Here?s a very
simple form <a href="http://blog.jlcconsulting.com/content/binary/rssreader.zip">rssreader.zip
(8.24 KB)</a>, don't expect it to be bullet proof,  but it will allow you to
add feeds and see their contents, as well as to get an idea of the potential. </font></span>
</p>
<p class=MsoNormal style="MARGIN: 0in 0in 0pt">
<span style="FONT-SIZE: 10pt; FONT-FAMILY: Verdana"><font color=#000000></font></span> 
</p>
<p class=MsoNormal style="MARGIN: 0in 0in 0pt">
<span style="FONT-SIZE: 10pt; FONT-FAMILY: Verdana"><font color=#000000>This example uses
a Treeview control to populate the feeds, a microsoft web browser control to show
the Feed entries in html format, and eventually if you are connected to the internet,
click on 'show web' checkbox to see the blog entry directly from the original.</font></span>
</p>
<p class=MsoNormal style="MARGIN: 0in 0in 0pt">
<span style="FONT-SIZE: 10pt; FONT-FAMILY: Verdana"></span> 
</p>
<p class=MsoNormal style="MARGIN: 0in 0in 0pt">
<span style="FONT-SIZE: 10pt; FONT-FAMILY: Verdana"><font color=#000000>Remember the
'download issue' I referred to in this post "ISSUES</font> ", so you
don't get frustrated on me, I am just the messenger.</span>
</p>
<p class=MsoNormal style="MARGIN: 0in 0in 0pt">
<span style="FONT-SIZE: 10pt; FONT-FAMILY: Verdana">
<o>
<font color=#000000> </font>
</o>
</span>
</p>
<p class=MsoNormal style="MARGIN: 0in 0in 0pt">
<span style="FONT-SIZE: 10pt; FONT-FAMILY: Verdana"><font color=#000000>My design
is far from what I would like, but from a VFP perspective, this API?s state-of-the-art
does not deserve more efforts from my side until I get a clear sign that it will work
seamlessly.
<o></o>
</font></span>
</p>
<p class=MsoNormal style="MARGIN: 0in 0in 0pt">
<span style="FONT-SIZE: 10pt; FONT-FAMILY: Verdana">
<o>
<font color=#000000> </font>
</o>
</span>
</p>
<p class=MsoNormal style="MARGIN: 0in 0in 0pt">
<span style="FONT-SIZE: 10pt; FONT-FAMILY: Verdana"><font color=#000000>For the reasons
exposed, I can?t justify building a wrapper class for the API to make all the functionality
reusable with other controls than the Treeview, but for the most part, the code
(form) I built is a good sample of the potential for a good part of what 
the API allows FoxPro to do.<o></o>
</font></span>
</p>
<p class=MsoNormal style="MARGIN: 0in 0in 0pt">
<span style="FONT-SIZE: 10pt; FONT-FAMILY: Verdana">
<o>
<font color=#000000> </font>
</o>
</span>
</p>
<p class=MsoNormal style="MARGIN: 0in 0in 0pt">
<span style="FONT-SIZE: 10pt; FONT-FAMILY: Verdana"><font color=#000000>It is a pity
indeed because, being able to see from VFP the same RSS info that our current IE7
installation sees, it would open a great potential for our FoxPro applications.<o></o>
</font></span>
</p>
<p class=MsoNormal style="MARGIN: 0in 0in 0pt">
<span style="FONT-SIZE: 10pt; FONT-FAMILY: Verdana"><font color=#000000>You may think
why bother building another news aggregator, but I am thinking more about interchanging
information between different systems rather than anything else, if you know what
I mean.<o></o>
</font></span>
</p>
<p class=MsoNormal style="MARGIN: 0in 0in 0pt">
<span style="FONT-SIZE: 10pt; FONT-FAMILY: Verdana"><font color=#000000>Maybe for
RSS functionality from VFP we will have to implement it ourselves via NET4COM or like
YAG commented in my previous post, SEDNA?s MY will take care of it.<o></o>
</font></span>
</p>
<p class=MsoNormal style="MARGIN: 0in 0in 0pt">
<span style="FONT-SIZE: 10pt; FONT-FAMILY: Verdana">
<o>
<font color=#000000> </font>
</o>
</span>
</p>
<p class=MsoNormal style="MARGIN: 0in 0in 0pt">
<span style="FONT-SIZE: 10pt; FONT-FAMILY: Verdana">
<o>
<font color=#000000> </font>
</o>
</span>
</p>
<p class=MsoNormal style="MARGIN: 0in 0in 0pt">
<b style="mso-bidi-font-weight: normal"><span style="FONT-FAMILY: Verdana"><font size=3><font color=#000000>ISSUES,
ISSUES ?.
<o></o>
</font></font></span></b>
</p>
<p class=MsoNormal style="MARGIN: 0in 0in 0pt">
<span style="FONT-SIZE: 10pt; FONT-FAMILY: Verdana">
<o>
<font color=#000000> </font>
</o>
</span>
</p>
<p class=MsoNormal style="MARGIN: 0in 0in 0pt">
<font color=#000000><b style="mso-bidi-font-weight: normal"><span style="FONT-SIZE: 10pt; FONT-FAMILY: Verdana">Implementing
Interfaces</span></b><span style="FONT-SIZE: 10pt; FONT-FAMILY: Verdana">: I wasn?t
able to implement interfaces (read the details below), but this is a huge constraint.
Not being able to listen and respond to folder or feed events makes it a nonstarter
to use this API for serious development from VFP.<o></o>
</span></font>
</p>
<p class=MsoNormal style="MARGIN: 0in 0in 0pt">
<span style="FONT-SIZE: 10pt; FONT-FAMILY: Verdana">
<o>
<font color=#000000> </font>
</o>
</span>
</p>
<p class=MsoNormal style="MARGIN: 0in 0in 0pt">
<font color=#000000><b style="mso-bidi-font-weight: normal"><span style="FONT-SIZE: 10pt; FONT-FAMILY: Verdana">Download/Update/Refresh:</span></b><span style="FONT-SIZE: 10pt; FONT-FAMILY: Verdana"> There?s
something wrong with the either with the API implementation of the Feed Download Engine
or the Engine itself.
<o></o>
</span></font>
</p>
<p class=MsoNormal style="MARGIN: 0in 0in 0pt">
<span style="FONT-SIZE: 10pt; FONT-FAMILY: Verdana">
<o>
<font color=#000000> </font>
</o>
</span>
</p>
<p class=MsoNormal style="MARGIN: 0in 0in 0pt">
<span style="FONT-SIZE: 10pt; FONT-FAMILY: Verdana"><font color=#000000>I haven?t
been able to download more than 4 Feeds in a row without the API becoming non responsive
and stalling Foxpro, to finally get an ole error message. In order to see this behavior
you may have to leave the Foxpro session alone for several minutes, i.e., 20 or more.<o></o>
</font></span>
</p>
<p class=MsoNormal style="MARGIN: 0in 0in 0pt">
<span style="FONT-SIZE: 10pt; FONT-FAMILY: Verdana">
<o>
<font color=#000000> </font>
</o>
</span>
</p>
<p class=MsoNormal style="MARGIN: 0in 0in 0pt">
<span style="FONT-SIZE: 10pt; FONT-FAMILY: Verdana"><font color=#000000>Want to try
this? If you use my example form, you?ll notice that whenever you click on the Feed
(parent treeview element) it will ask you to perform a download.<o></o>
</font></span>
</p>
<p class=MsoNormal style="MARGIN: 0in 0in 0pt">
<span style="FONT-SIZE: 10pt; FONT-FAMILY: Verdana"><font color=#000000><span style="mso-spacerun: yes"> </span></font></span><span style="FONT-SIZE: 10pt; FONT-FAMILY: Verdana"><font color=#000000>In
case you answer YES, the download should be a quick process, 1 or 2 seconds, and you
should have inmediate access to the item, i.e., you click on a entry and you see the
html page.
<o></o>
</font></span>
</p>
<p class=MsoNormal style="MARGIN: 0in 0in 0pt">
<span style="FONT-SIZE: 10pt; FONT-FAMILY: Verdana"><font color=#000000>If this isn't
the case, it mens that VFP is still waiting a response from the API, in
the meantime, you will be able to click on other areas of the form except for the
rest of the foxpro development environment, until an ole error pops up.</font></span>
</p>
<p class=MsoNormal style="MARGIN: 0in 0in 0pt">
<span style="FONT-SIZE: 10pt; FONT-FAMILY: Verdana"><font color=#000000>
<o>
<img style="WIDTH: 380px; HEIGHT: 126px" height=126 src="http://blog.jlcconsulting.com/content/binary/Blog-DownloadOleError.JPG" width=406 border=0>
</o>
</font></span>
</p>
<p class=MsoNormal style="MARGIN: 0in 0in 0pt">
<span style="FONT-SIZE: 10pt; FONT-FAMILY: Verdana">
<o>
<font color=#000000> </font>
</o>
</span>
</p>
<p class=MsoNormal style="MARGIN: 0in 0in 0pt">
<b style="mso-bidi-font-weight: normal"><span style="FONT-SIZE: 10pt; FONT-FAMILY: Verdana"><font color=#000000>Internet
Explorer 7 (Beta2) does not update automatically:<o></o>
</font></span></b>
</p>
<p class=MsoNormal style="MARGIN: 0in 0in 0pt">
<span style="FONT-SIZE: 10pt; FONT-FAMILY: Verdana"><font color=#000000>IE7 itself
does not refresh its screen automatically when new feed items are created unless you
F5 or click on the Feed Entry. In some cases, even doing so would not update items
on a feed until you manually refresh it (right click-context menu option), try subscribing
to any feed from Craigslist.org to see the results in 5 minutes.<o></o>
</font></span>
</p>
<p class=MsoNormal style="MARGIN: 0in 0in 0pt">
<span style="FONT-SIZE: 10pt; FONT-FAMILY: Verdana">
<o>
<font color=#000000> </font>
</o>
</span>
</p>
<p class=MsoNormal style="MARGIN: 0in 0in 0pt">
<font color=#000000><b style="mso-bidi-font-weight: normal"><span style="FONT-SIZE: 10pt; FONT-FAMILY: Verdana">Delete
Feeds:</span></b><span style="FONT-SIZE: 10pt; FONT-FAMILY: Verdana"> Deleting a feed
programmatically is available as a method but not possible, an error pops up claiming
that the feed is in use by another process and can?t be accessed:</span></font>
</p>
<p class=MsoNormal style="MARGIN: 0in 0in 0pt">
<font color=#000000><span style="FONT-SIZE: 10pt; FONT-FAMILY: Verdana"></span></font><span style="FONT-SIZE: 10pt; FONT-FAMILY: Verdana"><font color=#000000> </font></span><span style="FONT-SIZE: 10pt; FONT-FAMILY: Verdana">
<o>
<font color=#000000> </font>
</o>
</span>
</p>
<p class=MsoNormal style="MARGIN: 0in 0in 0pt">
<span style="FONT-SIZE: 10pt; FONT-FAMILY: Verdana">
<o>
<font color=#000000></font>
</o>
</span>
</p>
<p class=MsoNormal style="MARGIN: 0in 0in 0pt">
<span style="FONT-SIZE: 10pt; FONT-FAMILY: Verdana">
<o>
<font color=#000000><img style="WIDTH: 382px; HEIGHT: 132px" height=125 src="http://blog.jlcconsulting.com/content/binary/IE7FeedsDeleting1Feed.jpg" width=388 border=0> </font>
</o>
</span>
</p>
<p class=MsoNormal style="MARGIN: 0in 0in 0pt">
<span style="FONT-SIZE: 11pt; COLOR: #ff9900; FONT-FAMILY: Verdana"><font size=2><font color=#000000>You
have to use IE 7 Feed Manager to delete a feed instead. </font></font></span>
</p>
<p class=MsoNormal style="MARGIN: 0in 0in 0pt">
<span style="FONT-SIZE: 11pt; COLOR: #ff9900; FONT-FAMILY: Verdana"><font size=2><font color=#000000><span style="FONT-SIZE: 10pt; FONT-FAMILY: Verdana">Deleting
a feed item <strong>does</strong> work though.</span></font></font></span>
</p>
<p class=MsoNormal style="MARGIN: 0in 0in 0pt">
<span style="FONT-SIZE: 11pt; COLOR: #ff9900; FONT-FAMILY: Verdana"><font size=2><font color=#000000><span style="FONT-SIZE: 10pt; FONT-FAMILY: Verdana"></span>
<o></o>
</font></font></span> 
</p>
<p class=MsoNormal style="MARGIN: 0in 0in 0pt">
<b style="mso-bidi-font-weight: normal"><span style="FONT-SIZE: 11pt; COLOR: #ff9900; FONT-FAMILY: Verdana"></span></b> 
</p>
<p class=MsoNormal style="MARGIN: 0in 0in 0pt">
<b style="mso-bidi-font-weight: normal"><span style="FONT-SIZE: 11pt; COLOR: #ff9900; FONT-FAMILY: Verdana">ADDENDUM<o></o>
</span></b>
</p>
<p class=MsoNormal style="MARGIN: 0in 0in 0pt">
<b style="mso-bidi-font-weight: normal"><span style="FONT-SIZE: 11pt; COLOR: #ff9900; FONT-FAMILY: Verdana">
<o> </o>
</span></b>
</p>
<p class=MsoNormal style="MARGIN: 0in 0in 0pt">
<b style="mso-bidi-font-weight: normal"><span style="FONT-SIZE: 11pt; COLOR: #ff9900; FONT-FAMILY: Verdana">Implementing
Interfaces Issues Detailed.<o></o>
</span></b>
</p>
<p class=MsoNormal style="MARGIN: 0in 0in 0pt">
<span style="FONT-SIZE: 10pt; FONT-FAMILY: Verdana">
<o>
<font color=#000000> </font>
</o>
</span>
</p>
<p class=MsoNormal style="MARGIN: 0in 0in 0pt">
<span style="FONT-SIZE: 10pt; FONT-FAMILY: Verdana"><font color=#000000>Please, bear
with me on these 3 steps:<o></o>
</font></span>
</p>
<p class=MsoNormal style="MARGIN: 0in 0in 0pt">
<span style="FONT-SIZE: 10pt; FONT-FAMILY: Verdana">
<o>
<font color=#000000> </font>
</o>
</span>
</p>
<p class=MsoNormal style="MARGIN: 0in 0in 0pt">
<span style="FONT-SIZE: 10pt; FONT-FAMILY: Verdana"><font color=#000000>1. Open Object
Browser and ?browse? for c:\windows\system32\msfeeds.dll.<o></o>
</font></span>
</p>
<p class=MsoNormal style="MARGIN: 0in 0in 0pt">
<span style="FONT-SIZE: 10pt; FONT-FAMILY: Verdana"><font color=#000000>2. Expand
the Interfaces branch,<o></o>
</font></span>
</p>
<p class=MsoNormal style="MARGIN: 0in 0in 0pt">
<span style="FONT-SIZE: 10pt; FONT-FAMILY: Verdana"><font color=#000000>3. Drag and
drop the IFeedFolder interface inside an empty .prg.<o></o>
</font></span>
</p>
<p class=MsoNormal style="MARGIN: 0in 0in 0pt">
<span style="FONT-SIZE: 10pt; FONT-FAMILY: Verdana"><font color=#000000><span style="mso-spacerun: yes"> </span>
<o></o>
</font></span>
</p>
<p class=MsoNormal style="MARGIN: 0in 0in 0pt">
<span style="FONT-SIZE: 10pt; FONT-FAMILY: Verdana"><font color=#000000>This is the
message I?ve got invariably when dragging and dropping from the object browser<o></o>
</font></span>
</p>
<p class=MsoNormal style="MARGIN: 0in 0in 0pt">
<span style="FONT-SIZE: 10pt; FONT-FAMILY: Verdana"><font color=#000000><span style="mso-spacerun: yes"></span>
<o></o>
</font></span>
</p>
<p class=MsoNormal style="MARGIN: 0in 0in 0pt">
<span style="FONT-SIZE: 10pt; FONT-FAMILY: Verdana">
<o></o>
</span>
</p>
<p class=MsoNormal style="MARGIN: 0in 0in 0pt">
<span style="FONT-SIZE: 10pt; FONT-FAMILY: Verdana">
<o>
<font color=#000000><img style="WIDTH: 376px; HEIGHT: 132px" height=137 src="http://blog.jlcconsulting.com/content/binary/Blog-ObjectBrowserDragDrop.JPG" width=404 border=0> </font>
</o>
</span>
</p>
<p class=MsoNormal style="MARGIN: 0in 0in 0pt">
<span style="FONT-SIZE: 10pt; FONT-FAMILY: Verdana"><font color=#000000></font></span> 
</p>
<p class=MsoNormal style="MARGIN: 0in 0in 0pt">
<span style="FONT-SIZE: 10pt; FONT-FAMILY: Verdana"><font color=#000000>By ignoring
the error a couple of times, finally you?ll get the code, but still it will error
when you run it. </font></span>
</p>
<p class=MsoNormal style="MARGIN: 0in 0in 0pt">
<span style="FONT-SIZE: 10pt; FONT-FAMILY: Verdana"><font color=#000000>This line
(automatically generated by the previously described process),
<o></o>
</font></span>
</p>
<p class=MsoNormal style="MARGIN: 0in 0in 0pt; mso-layout-grid-align: none">
<span style="FONT-SIZE: 10pt; COLOR: blue; FONT-FAMILY: 'Courier New'">
<o> </o>
</span>
</p>
<p class=MsoNormal style="MARGIN: 0in 0in 0pt; mso-layout-grid-align: none">
<span style="FONT-SIZE: 10pt; COLOR: blue; FONT-FAMILY: 'Courier New'">IMPLEMENTS </span><span style="FONT-SIZE: 10pt; COLOR: maroon; FONT-FAMILY: 'Courier New'">IFeedFolder </span><span style="FONT-SIZE: 10pt; COLOR: blue; FONT-FAMILY: 'Courier New'">IN </span><span style="FONT-SIZE: 10pt; COLOR: red; FONT-FAMILY: 'Courier New'">"Feeds.FeedWatcher"<o></o>
</span>
</p>
<p class=MsoNormal style="MARGIN: 0in 0in 0pt">
<span style="FONT-SIZE: 10pt; FONT-FAMILY: Verdana">
<o>
<font color=#000000> </font>
</o>
</span>
</p>
<p class=MsoNormal style="MARGIN: 0in 0in 0pt">
<span style="FONT-SIZE: 10pt; FONT-FAMILY: Verdana"><font color=#000000>, needs to
be replaced manually by this other line<o></o>
</font></span>
</p>
<p class=MsoNormal style="MARGIN: 0in 0in 0pt; mso-layout-grid-align: none">
<span style="FONT-SIZE: 10pt; COLOR: blue; FONT-FAMILY: 'Courier New'">
<o> </o>
</span>
</p>
<p class=MsoNormal style="MARGIN: 0in 0in 0pt; mso-layout-grid-align: none">
<span style="FONT-SIZE: 10pt; COLOR: blue; FONT-FAMILY: 'Courier New'">IMPLEMENTS </span><span style="FONT-SIZE: 10pt; COLOR: maroon; FONT-FAMILY: 'Courier New'">IFeedFolder </span><span style="FONT-SIZE: 10pt; COLOR: blue; FONT-FAMILY: 'Courier New'">IN </span><span style="FONT-SIZE: 10pt; COLOR: red; FONT-FAMILY: 'Courier New'">"msfeeds.dll"<o></o>
</span>
</p>
<p class=MsoNormal style="MARGIN: 0in 0in 0pt; mso-layout-grid-align: none">
<span style="FONT-SIZE: 9pt; COLOR: maroon; FONT-FAMILY: 'Courier New'">
<o> </o>
</span>
</p>
<p class=MsoNormal style="MARGIN: 0in 0in 0pt; mso-layout-grid-align: none">
<span style="FONT-SIZE: 10pt; COLOR: black; FONT-FAMILY: Verdana; mso-bidi-font-family: 'Courier New'">(To
me this is one more clue indicating there?s something wrong.)<o></o>
</span>
</p>
<p class=MsoNormal style="MARGIN: 0in 0in 0pt; mso-layout-grid-align: none">
<span style="FONT-SIZE: 10pt; COLOR: black; FONT-FAMILY: Verdana; mso-bidi-font-family: 'Courier New'">
<o> </o>
</span>
</p>
<p class=MsoNormal style="MARGIN: 0in 0in 0pt; mso-layout-grid-align: none">
<span style="FONT-SIZE: 10pt; COLOR: black; FONT-FAMILY: Verdana; mso-bidi-font-family: 'Courier New'">So,
with these modifications, at least the class code runs, but it fails when trying to
establish the link between the two classes, event and Feed, as shown in the following
code:<o></o>
</span>
</p>
<p class=MsoNormal style="MARGIN: 0in 0in 0pt; mso-layout-grid-align: none">
<span style="FONT-SIZE: 10pt; COLOR: maroon; FONT-FAMILY: 'Courier New'">
<o> </o>
</span>
</p>
<p class=MsoNormal style="MARGIN: 0in 0in 0pt; mso-layout-grid-align: none">
<span style="FONT-SIZE: 8pt; COLOR: maroon; FONT-FAMILY: 'Courier New'">oFeedMgr </span><span style="FONT-SIZE: 8pt; COLOR: teal; FONT-FAMILY: 'Courier New'">= </span><span style="FONT-SIZE: 8pt; COLOR: blue; FONT-FAMILY: 'Courier New'">NEWOBJECT</span><span style="FONT-SIZE: 8pt; COLOR: teal; FONT-FAMILY: 'Courier New'"</span><span style="FONT-SIZE: 8pt; COLOR: red; FONT-FAMILY: 'Courier New'">"Microsoft.FeedsManager"</span><span style="FONT-SIZE: 8pt; COLOR: teal; FONT-FAMILY: 'Courier New'"&gt<o></o>
</span>
</p>
<p class=MsoNormal style="MARGIN: 0in 0in 0pt; mso-layout-grid-align: none">
<span style="FONT-SIZE: 8pt; COLOR: maroon; FONT-FAMILY: 'Courier New'">oRootFolder </span><span style="FONT-SIZE: 8pt; COLOR: teal; FONT-FAMILY: 'Courier New'">= </span><span style="FONT-SIZE: 8pt; COLOR: maroon; FONT-FAMILY: 'Courier New'">oFeedMgr</span><span style="FONT-SIZE: 8pt; COLOR: teal; FONT-FAMILY: 'Courier New'">.</span><span style="FONT-SIZE: 8pt; COLOR: maroon; FONT-FAMILY: 'Courier New'">RootFolder<o></o>
</span>
</p>
<p class=MsoNormal style="MARGIN: 0in 0in 0pt; mso-layout-grid-align: none">
<span style="FONT-SIZE: 8pt; COLOR: maroon; FONT-FAMILY: 'Courier New'">
<o> </o>
</span>
</p>
<p class=MsoNormal style="MARGIN: 0in 0in 0pt; mso-layout-grid-align: none">
<span style="FONT-SIZE: 8pt; COLOR: maroon; FONT-FAMILY: 'Courier New'">oFeeds</span><span style="FONT-SIZE: 8pt; COLOR: teal; FONT-FAMILY: 'Courier New'">=</span><span style="FONT-SIZE: 8pt; COLOR: maroon; FONT-FAMILY: 'Courier New'">oRootFolder</span><span style="FONT-SIZE: 8pt; COLOR: teal; FONT-FAMILY: 'Courier New'">.</span><span style="FONT-SIZE: 8pt; COLOR: maroon; FONT-FAMILY: 'Courier New'">Feeds<o></o>
</span>
</p>
<p class=MsoNormal style="MARGIN: 0in 0in 0pt; mso-layout-grid-align: none">
<span style="FONT-SIZE: 8pt; COLOR: maroon; FONT-FAMILY: 'Courier New'">oFeed1</span><span style="FONT-SIZE: 8pt; COLOR: teal; FONT-FAMILY: 'Courier New'">=</span><span style="FONT-SIZE: 8pt; COLOR: maroon; FONT-FAMILY: 'Courier New'">oFeeds</span><span style="FONT-SIZE: 8pt; COLOR: teal; FONT-FAMILY: 'Courier New'">.</span><span style="FONT-SIZE: 8pt; COLOR: blue; FONT-FAMILY: 'Courier New'">Item</span><span style="FONT-SIZE: 8pt; COLOR: teal; FONT-FAMILY: 'Courier New'"</span><span style="FONT-SIZE: 8pt; COLOR: purple; FONT-FAMILY: 'Courier New'">1</span><span style="FONT-SIZE: 8pt; COLOR: teal; FONT-FAMILY: 'Courier New'"&gt<o></o>
</span>
</p>
<p class=MsoNormal style="MARGIN: 0in 0in 0pt; mso-layout-grid-align: none">
<span style="FONT-SIZE: 8pt; COLOR: teal; FONT-FAMILY: 'Courier New'">
<o> </o>
</span>
</p>
<p class=MsoNormal style="MARGIN: 0in 0in 0pt; mso-layout-grid-align: none">
<span style="FONT-SIZE: 8pt; COLOR: maroon; FONT-FAMILY: 'Courier New'">x</span><span style="FONT-SIZE: 8pt; COLOR: teal; FONT-FAMILY: 'Courier New'">=</span><span style="FONT-SIZE: 8pt; COLOR: blue; FONT-FAMILY: 'Courier New'">NEWOBJECT</span><span style="FONT-SIZE: 8pt; COLOR: teal; FONT-FAMILY: 'Courier New'"</span><span style="FONT-SIZE: 8pt; COLOR: red; FONT-FAMILY: 'Courier New'">"myclass"</span><span style="FONT-SIZE: 8pt; COLOR: teal; FONT-FAMILY: 'Courier New'"&gt<o></o>
</span>
</p>
<p class=MsoNormal style="MARGIN: 0in 0in 0pt; mso-layout-grid-align: none">
<span style="FONT-SIZE: 8pt; COLOR: teal; FONT-FAMILY: 'Courier New'">
<o> </o>
</span>
</p>
<p class=MsoNormal style="MARGIN: 0in 0in 0pt; mso-layout-grid-align: none">
<span style="FONT-SIZE: 8pt; COLOR: blue; FONT-FAMILY: 'Courier New'">IF </span><span style="FONT-SIZE: 8pt; COLOR: teal; FONT-FAMILY: 'Courier New'">!</span><span style="FONT-SIZE: 8pt; COLOR: blue; FONT-FAMILY: 'Courier New'">VARTYPE</span><span style="FONT-SIZE: 8pt; COLOR: teal; FONT-FAMILY: 'Courier New'"</span><span style="FONT-SIZE: 8pt; COLOR: maroon; FONT-FAMILY: 'Courier New'">x</span><span style="FONT-SIZE: 8pt; COLOR: teal; FONT-FAMILY: 'Courier New'">)==</span><span style="FONT-SIZE: 8pt; COLOR: red; FONT-FAMILY: 'Courier New'">"O"<o></o>
</span>
</p>
<p class=MsoNormal style="MARGIN: 0in 0in 0pt; mso-layout-grid-align: none">
<span style="FONT-SIZE: 8pt; COLOR: red; FONT-FAMILY: 'Courier New'"><span style="mso-tab-count: 1">        </span></span><span style="FONT-SIZE: 8pt; COLOR: blue; FONT-FAMILY: 'Courier New'">MESSAGEBOX</span><span style="FONT-SIZE: 8pt; COLOR: teal; FONT-FAMILY: 'Courier New'"</span><span style="FONT-SIZE: 8pt; COLOR: red; FONT-FAMILY: 'Courier New'">"Couldn't
create class x"</span><span style="FONT-SIZE: 8pt; COLOR: teal; FONT-FAMILY: 'Courier New'"&gt
<o></o>
</span>
</p>
<p class=MsoNormal style="MARGIN: 0in 0in 0pt; mso-layout-grid-align: none">
<span style="FONT-SIZE: 8pt; COLOR: blue; FONT-FAMILY: 'Courier New'">ENDIF<o></o>
</span>
</p>
<p class=MsoNormal style="MARGIN: 0in 0in 0pt; mso-layout-grid-align: none">
<span style="FONT-SIZE: 8pt; COLOR: blue; FONT-FAMILY: 'Courier New'">
<o> </o>
</span>
</p>
<p class=MsoNormal style="MARGIN: 0in 0in 0pt; mso-layout-grid-align: none">
<span style="FONT-SIZE: 8pt; COLOR: blue; FONT-FAMILY: 'Courier New'">WAIT WINDOW
IIF</span><span style="FONT-SIZE: 8pt; COLOR: teal; FONT-FAMILY: 'Courier New'"</span><span style="FONT-SIZE: 8pt; COLOR: blue; FONT-FAMILY: 'Courier New'">EVENTHANDLER</span><span style="FONT-SIZE: 8pt; COLOR: teal; FONT-FAMILY: 'Courier New'"</span><span style="FONT-SIZE: 8pt; COLOR: maroon; FONT-FAMILY: 'Courier New'">oFeed1</span><span style="FONT-SIZE: 8pt; COLOR: teal; FONT-FAMILY: 'Courier New'">,</span><span style="FONT-SIZE: 8pt; COLOR: maroon; FONT-FAMILY: 'Courier New'">x</span><span style="FONT-SIZE: 8pt; COLOR: teal; FONT-FAMILY: 'Courier New'">),</span><span style="FONT-SIZE: 8pt; COLOR: red; FONT-FAMILY: 'Courier New'">"Event
Handler succesful"</span><span style="FONT-SIZE: 8pt; COLOR: teal; FONT-FAMILY: 'Courier New'">,</span><span style="FONT-SIZE: 8pt; COLOR: red; FONT-FAMILY: 'Courier New'">"Event
Handler Failed"</span><span style="FONT-SIZE: 8pt; COLOR: teal; FONT-FAMILY: 'Courier New'"&gt<o></o>
</span>
</p>
<p class=MsoNormal style="MARGIN: 0in 0in 0pt; mso-layout-grid-align: none">
<span style="FONT-SIZE: 8pt; COLOR: teal; FONT-FAMILY: 'Courier New'">
<o> </o>
</span>
</p>
<p class=MsoNormal style="MARGIN: 0in 0in 0pt; mso-layout-grid-align: none">
<span style="FONT-SIZE: 8pt; COLOR: blue; FONT-FAMILY: 'Courier New'">DEFINE CLASS </span><span style="FONT-SIZE: 8pt; COLOR: maroon; FONT-FAMILY: 'Courier New'">myclass </span><span style="FONT-SIZE: 8pt; COLOR: blue; FONT-FAMILY: 'Courier New'">AS
session OLEPUBLIC<o></o>
</span>
</p>
<p class=MsoNormal style="MARGIN: 0in 0in 0pt; mso-layout-grid-align: none">
<span style="FONT-SIZE: 8pt; COLOR: blue; FONT-FAMILY: 'Courier New'">
<o> </o>
</span>
</p>
<p class=MsoNormal style="MARGIN: 0in 0in 0pt; mso-layout-grid-align: none">
<span style="FONT-SIZE: 8pt; COLOR: blue; FONT-FAMILY: 'Courier New'"><span style="mso-tab-count: 1">        </span>IMPLEMENTS </span><span style="FONT-SIZE: 8pt; COLOR: maroon; FONT-FAMILY: 'Courier New'">IFeedFolder </span><span style="FONT-SIZE: 8pt; COLOR: blue; FONT-FAMILY: 'Courier New'">IN </span><span style="FONT-SIZE: 8pt; COLOR: red; FONT-FAMILY: 'Courier New'">"msfeeds.dll"<o></o>
</span>
</p>
<p class=MsoNormal style="MARGIN: 0in 0in 0pt; mso-layout-grid-align: none">
<span style="FONT-SIZE: 8pt; COLOR: red; FONT-FAMILY: 'Courier New'">
<o> </o>
</span>
</p>
<p class=MsoNormal style="MARGIN: 0in 0in 0pt; mso-layout-grid-align: none">
<span style="FONT-SIZE: 8pt; COLOR: red; FONT-FAMILY: 'Courier New'"><span style="mso-tab-count: 1">        </span></span><span style="FONT-SIZE: 8pt; COLOR: blue; FONT-FAMILY: 'Courier New'">PROCEDURE </span><span style="FONT-SIZE: 8pt; COLOR: maroon; FONT-FAMILY: 'Courier New'">IFeedFolder_get_Feeds</span><span style="FONT-SIZE: 8pt; COLOR: teal; FONT-FAMILY: 'Courier New'">() </span><span style="FONT-SIZE: 8pt; COLOR: blue; FONT-FAMILY: 'Courier New'">AS </span><span style="FONT-SIZE: 8pt; COLOR: maroon; FONT-FAMILY: 'Courier New'">VARIANT</span><span style="FONT-SIZE: 8pt; COLOR: teal; FONT-FAMILY: 'Courier New'">;<o></o>
</span>
</p>
<p class=MsoNormal style="MARGIN: 0in 0in 0pt; mso-layout-grid-align: none">
<span style="FONT-SIZE: 8pt; COLOR: teal; FONT-FAMILY: 'Courier New'"><span style="mso-spacerun: yes"> </span><span style="mso-tab-count: 4">                             </span></span><span style="FONT-SIZE: 8pt; COLOR: blue; FONT-FAMILY: 'Courier New'">HELPSTRING </span><span style="FONT-SIZE: 8pt; COLOR: red; FONT-FAMILY: 'Courier New'">"Retrieves
the collection of feeds in this folder."<o></o>
</span>
</p>
<p class=MsoNormal style="MARGIN: 0in 0in 0pt; mso-layout-grid-align: none">
<span style="FONT-SIZE: 8pt; COLOR: red; FONT-FAMILY: 'Courier New'"><span style="mso-tab-count: 1">        </span></span><b><span style="FONT-SIZE: 8pt; COLOR: black; FONT-FAMILY: 'Courier New'">*
add user code here</span></b><span style="FONT-SIZE: 8pt; COLOR: black; FONT-FAMILY: 'Courier New'">
<o></o>
</span>
</p>
<p class=MsoNormal style="MARGIN: 0in 0in 0pt; mso-layout-grid-align: none">
<span style="FONT-SIZE: 8pt; COLOR: black; FONT-FAMILY: 'Courier New'"><span style="mso-tab-count: 1">        </span></span><span style="FONT-SIZE: 8pt; COLOR: blue; FONT-FAMILY: 'Courier New'">ENDPROC<o></o>
</span>
</p>
<p class=MsoNormal style="MARGIN: 0in 0in 0pt; mso-layout-grid-align: none">
<span style="FONT-SIZE: 8pt; COLOR: blue; FONT-FAMILY: 'Courier New'">
<o> </o>
</span>
</p>
<p class=MsoNormal style="MARGIN: 0in 0in 0pt; mso-layout-grid-align: none">
<span style="FONT-SIZE: 8pt; COLOR: blue; FONT-FAMILY: 'Courier New'"><span style="mso-tab-count: 1">        </span>PROCEDURE </span><span style="FONT-SIZE: 8pt; COLOR: maroon; FONT-FAMILY: 'Courier New'">IFeedFolder_get_Subfolders</span><span style="FONT-SIZE: 8pt; COLOR: teal; FONT-FAMILY: 'Courier New'">() </span><span style="FONT-SIZE: 8pt; COLOR: blue; FONT-FAMILY: 'Courier New'">AS </span><span style="FONT-SIZE: 8pt; COLOR: maroon; FONT-FAMILY: 'Courier New'">VARIANT</span><span style="FONT-SIZE: 8pt; COLOR: teal; FONT-FAMILY: 'Courier New'">;<o></o>
</span>
</p>
<p class=MsoNormal style="MARGIN: 0in 0in 0pt; mso-layout-grid-align: none">
<span style="FONT-SIZE: 8pt; COLOR: teal; FONT-FAMILY: 'Courier New'"><span style="mso-spacerun: yes"> </span><span style="mso-tab-count: 4">                             </span></span><span style="FONT-SIZE: 8pt; COLOR: blue; FONT-FAMILY: 'Courier New'">HELPSTRING </span><span style="FONT-SIZE: 8pt; COLOR: red; FONT-FAMILY: 'Courier New'">"Retrieves
the collection of subfolders in this folder."<o></o>
</span>
</p>
<p class=MsoNormal style="MARGIN: 0in 0in 0pt; mso-layout-grid-align: none">
<span style="FONT-SIZE: 8pt; COLOR: red; FONT-FAMILY: 'Courier New'"><span style="mso-tab-count: 1">        </span></span><b><span style="FONT-SIZE: 8pt; COLOR: black; FONT-FAMILY: 'Courier New'">*
add user code here</span></b><span style="FONT-SIZE: 8pt; COLOR: black; FONT-FAMILY: 'Courier New'">
<o></o>
</span>
</p>
<p class=MsoNormal style="MARGIN: 0in 0in 0pt; mso-layout-grid-align: none">
<span style="FONT-SIZE: 8pt; COLOR: black; FONT-FAMILY: 'Courier New'"><span style="mso-tab-count: 1">        </span></span><span style="FONT-SIZE: 8pt; COLOR: blue; FONT-FAMILY: 'Courier New'">ENDPROC<o></o>
</span>
</p>
<p class=MsoNormal style="MARGIN: 0in 0in 0pt; mso-layout-grid-align: none">
<span style="FONT-SIZE: 8pt; COLOR: blue; FONT-FAMILY: 'Courier New'">
<o> </o>
</span>
</p>
<p class=MsoNormal style="MARGIN: 0in 0in 0pt; mso-layout-grid-align: none">
<span style="FONT-SIZE: 8pt; COLOR: blue; FONT-FAMILY: 'Courier New'"><span style="mso-tab-count: 1">        </span>PROCEDURE </span><span style="FONT-SIZE: 8pt; COLOR: maroon; FONT-FAMILY: 'Courier New'">IFeedFolder_CreateFeed</span><span style="FONT-SIZE: 8pt; COLOR: teal; FONT-FAMILY: 'Courier New'"</span><span style="FONT-SIZE: 8pt; COLOR: blue; FONT-FAMILY: 'Courier New'">name
AS STRING</span><span style="FONT-SIZE: 8pt; COLOR: teal; FONT-FAMILY: 'Courier New'">, </span><span style="FONT-SIZE: 8pt; COLOR: maroon; FONT-FAMILY: 'Courier New'">url </span><span style="FONT-SIZE: 8pt; COLOR: blue; FONT-FAMILY: 'Courier New'">AS
STRING</span><span style="FONT-SIZE: 8pt; COLOR: teal; FONT-FAMILY: 'Courier New'"&gt </span><span style="FONT-SIZE: 8pt; COLOR: blue; FONT-FAMILY: 'Courier New'">AS </span><span style="FONT-SIZE: 8pt; COLOR: maroon; FONT-FAMILY: 'Courier New'">VARIANT</span><span style="FONT-SIZE: 8pt; COLOR: teal; FONT-FAMILY: 'Courier New'">;<o></o>
</span>
</p>
<p class=MsoNormal style="MARGIN: 0in 0in 0pt; mso-layout-grid-align: none">
<span style="FONT-SIZE: 8pt; COLOR: teal; FONT-FAMILY: 'Courier New'"><span style="mso-spacerun: yes"> </span><span style="mso-tab-count: 4">                             </span></span><span style="FONT-SIZE: 8pt; COLOR: blue; FONT-FAMILY: 'Courier New'">HELPSTRING </span><span style="FONT-SIZE: 8pt; COLOR: red; FONT-FAMILY: 'Courier New'">"Creates
a new RSS feed, and subscribes to it."<o></o>
</span>
</p>
<p class=MsoNormal style="MARGIN: 0in 0in 0pt; mso-layout-grid-align: none">
<span style="FONT-SIZE: 8pt; COLOR: red; FONT-FAMILY: 'Courier New'"><span style="mso-tab-count: 1">        </span></span><b><span style="FONT-SIZE: 8pt; COLOR: black; FONT-FAMILY: 'Courier New'">*
add user code here</span></b><span style="FONT-SIZE: 8pt; COLOR: black; FONT-FAMILY: 'Courier New'">
<o></o>
</span>
</p>
<p class=MsoNormal style="MARGIN: 0in 0in 0pt; mso-layout-grid-align: none">
<span style="FONT-SIZE: 8pt; COLOR: black; FONT-FAMILY: 'Courier New'"><span style="mso-tab-count: 1">        </span></span><span style="FONT-SIZE: 8pt; COLOR: blue; FONT-FAMILY: 'Courier New'">ENDPROC<o></o>
</span>
</p>
<p class=MsoNormal style="MARGIN: 0in 0in 0pt; mso-layout-grid-align: none">
<span style="FONT-SIZE: 8pt; COLOR: blue; FONT-FAMILY: 'Courier New'">
<o> </o>
</span>
</p>
<p class=MsoNormal style="MARGIN: 0in 0in 0pt; mso-layout-grid-align: none">
<span style="FONT-SIZE: 8pt; COLOR: blue; FONT-FAMILY: 'Courier New'"><span style="mso-tab-count: 1">        </span>PROCEDURE </span><span style="FONT-SIZE: 8pt; COLOR: maroon; FONT-FAMILY: 'Courier New'">IFeedFolder_CreateSubfolder</span><span style="FONT-SIZE: 8pt; COLOR: teal; FONT-FAMILY: 'Courier New'"</span><span style="FONT-SIZE: 8pt; COLOR: blue; FONT-FAMILY: 'Courier New'">name
AS STRING</span><span style="FONT-SIZE: 8pt; COLOR: teal; FONT-FAMILY: 'Courier New'"&gt </span><span style="FONT-SIZE: 8pt; COLOR: blue; FONT-FAMILY: 'Courier New'">AS </span><span style="FONT-SIZE: 8pt; COLOR: maroon; FONT-FAMILY: 'Courier New'">VARIANT</span><span style="FONT-SIZE: 8pt; COLOR: teal; FONT-FAMILY: 'Courier New'">;<o></o>
</span>
</p>
<p class=MsoNormal style="MARGIN: 0in 0in 0pt; mso-layout-grid-align: none">
<span style="FONT-SIZE: 8pt; COLOR: teal; FONT-FAMILY: 'Courier New'"><span style="mso-spacerun: yes"> </span><span style="mso-tab-count: 4">                             </span></span><span style="FONT-SIZE: 8pt; COLOR: blue; FONT-FAMILY: 'Courier New'">HELPSTRING </span><span style="FONT-SIZE: 8pt; COLOR: red; FONT-FAMILY: 'Courier New'">"Creates
a new subfolder in the folder."<o></o>
</span>
</p>
<p class=MsoNormal style="MARGIN: 0in 0in 0pt; mso-layout-grid-align: none">
<span style="FONT-SIZE: 8pt; COLOR: red; FONT-FAMILY: 'Courier New'"><span style="mso-tab-count: 1">        </span></span><b><span style="FONT-SIZE: 8pt; COLOR: black; FONT-FAMILY: 'Courier New'">*
add user code here</span></b><span style="FONT-SIZE: 8pt; COLOR: black; FONT-FAMILY: 'Courier New'">
<o></o>
</span>
</p>
<p class=MsoNormal style="MARGIN: 0in 0in 0pt; mso-layout-grid-align: none">
<span style="FONT-SIZE: 8pt; COLOR: black; FONT-FAMILY: 'Courier New'"><span style="mso-tab-count: 1">        </span></span><span style="FONT-SIZE: 8pt; COLOR: blue; FONT-FAMILY: 'Courier New'">ENDPROC<o></o>
</span>
</p>
<p class=MsoNormal style="MARGIN: 0in 0in 0pt; mso-layout-grid-align: none">
<span style="FONT-SIZE: 8pt; COLOR: blue; FONT-FAMILY: 'Courier New'">
<o> </o>
</span>
</p>
<p class=MsoNormal style="MARGIN: 0in 0in 0pt; mso-layout-grid-align: none">
<span style="FONT-SIZE: 8pt; COLOR: blue; FONT-FAMILY: 'Courier New'"><span style="mso-tab-count: 1">        </span>PROCEDURE </span><span style="FONT-SIZE: 8pt; COLOR: maroon; FONT-FAMILY: 'Courier New'">IFeedFolder_ExistsFeed</span><span style="FONT-SIZE: 8pt; COLOR: teal; FONT-FAMILY: 'Courier New'"</span><span style="FONT-SIZE: 8pt; COLOR: blue; FONT-FAMILY: 'Courier New'">name
AS STRING</span><span style="FONT-SIZE: 8pt; COLOR: teal; FONT-FAMILY: 'Courier New'"&gt </span><span style="FONT-SIZE: 8pt; COLOR: blue; FONT-FAMILY: 'Courier New'">AS </span><span style="FONT-SIZE: 8pt; COLOR: maroon; FONT-FAMILY: 'Courier New'">LOGICAL</span><span style="FONT-SIZE: 8pt; COLOR: teal; FONT-FAMILY: 'Courier New'">;<o></o>
</span>
</p>
<p class=MsoNormal style="MARGIN: 0in 0in 0pt; mso-layout-grid-align: none">
<span style="FONT-SIZE: 8pt; COLOR: teal; FONT-FAMILY: 'Courier New'"><span style="mso-spacerun: yes"> </span><span style="mso-tab-count: 4">                             </span></span><span style="FONT-SIZE: 8pt; COLOR: blue; FONT-FAMILY: 'Courier New'">HELPSTRING </span><span style="FONT-SIZE: 8pt; COLOR: red; FONT-FAMILY: 'Courier New'">"Checks
if a feed exists."<o></o>
</span>
</p>
<p class=MsoNormal style="MARGIN: 0in 0in 0pt; mso-layout-grid-align: none">
<span style="FONT-SIZE: 8pt; COLOR: red; FONT-FAMILY: 'Courier New'"><span style="mso-tab-count: 1">        </span></span><b><span style="FONT-SIZE: 8pt; COLOR: black; FONT-FAMILY: 'Courier New'">*
add user code here</span></b><span style="FONT-SIZE: 8pt; COLOR: black; FONT-FAMILY: 'Courier New'">
<o></o>
</span>
</p>
<p class=MsoNormal style="MARGIN: 0in 0in 0pt; mso-layout-grid-align: none">
<span style="FONT-SIZE: 8pt; COLOR: black; FONT-FAMILY: 'Courier New'"><span style="mso-tab-count: 1">        </span></span><span style="FONT-SIZE: 8pt; COLOR: blue; FONT-FAMILY: 'Courier New'">ENDPROC<o></o>
</span>
</p>
<p class=MsoNormal style="MARGIN: 0in 0in 0pt; mso-layout-grid-align: none">
<span style="FONT-SIZE: 8pt; COLOR: blue; FONT-FAMILY: 'Courier New'">
<o> </o>
</span>
</p>
<p class=MsoNormal style="MARGIN: 0in 0in 0pt; mso-layout-grid-align: none">
<span style="FONT-SIZE: 8pt; COLOR: blue; FONT-FAMILY: 'Courier New'"><span style="mso-tab-count: 1">        </span>PROCEDURE </span><span style="FONT-SIZE: 8pt; COLOR: maroon; FONT-FAMILY: 'Courier New'">IFeedFolder_GetFeed</span><span style="FONT-SIZE: 8pt; COLOR: teal; FONT-FAMILY: 'Courier New'"</span><span style="FONT-SIZE: 8pt; COLOR: blue; FONT-FAMILY: 'Courier New'">name
AS STRING</span><span style="FONT-SIZE: 8pt; COLOR: teal; FONT-FAMILY: 'Courier New'"&gt </span><span style="FONT-SIZE: 8pt; COLOR: blue; FONT-FAMILY: 'Courier New'">AS </span><span style="FONT-SIZE: 8pt; COLOR: maroon; FONT-FAMILY: 'Courier New'">VARIANT</span><span style="FONT-SIZE: 8pt; COLOR: teal; FONT-FAMILY: 'Courier New'">;<o></o>
</span>
</p>
<p class=MsoNormal style="MARGIN: 0in 0in 0pt; mso-layout-grid-align: none">
<span style="FONT-SIZE: 8pt; COLOR: teal; FONT-FAMILY: 'Courier New'"><span style="mso-spacerun: yes"> </span><span style="mso-tab-count: 4">                             </span></span><span style="FONT-SIZE: 8pt; COLOR: blue; FONT-FAMILY: 'Courier New'">HELPSTRING </span><span style="FONT-SIZE: 8pt; COLOR: red; FONT-FAMILY: 'Courier New'">"Retrieves
a feed by its name."<o></o>
</span>
</p>
<p class=MsoNormal style="MARGIN: 0in 0in 0pt; mso-layout-grid-align: none">
<span style="FONT-SIZE: 8pt; COLOR: red; FONT-FAMILY: 'Courier New'"><span style="mso-tab-count: 1">        </span></span><b><span style="FONT-SIZE: 8pt; COLOR: black; FONT-FAMILY: 'Courier New'">*
add user code here</span></b><span style="FONT-SIZE: 8pt; COLOR: black; FONT-FAMILY: 'Courier New'">
<o></o>
</span>
</p>
<p class=MsoNormal style="MARGIN: 0in 0in 0pt; mso-layout-grid-align: none">
<span style="FONT-SIZE: 8pt; COLOR: black; FONT-FAMILY: 'Courier New'"><span style="mso-tab-count: 1">        </span></span><span style="FONT-SIZE: 8pt; COLOR: blue; FONT-FAMILY: 'Courier New'">ENDPROC<o></o>
</span>
</p>
<p class=MsoNormal style="MARGIN: 0in 0in 0pt; mso-layout-grid-align: none">
<span style="FONT-SIZE: 8pt; COLOR: blue; FONT-FAMILY: 'Courier New'">
<o> </o>
</span>
</p>
<p class=MsoNormal style="MARGIN: 0in 0in 0pt; mso-layout-grid-align: none">
<span style="FONT-SIZE: 8pt; COLOR: blue; FONT-FAMILY: 'Courier New'"><span style="mso-tab-count: 1">        </span>PROCEDURE </span><span style="FONT-SIZE: 8pt; COLOR: maroon; FONT-FAMILY: 'Courier New'">IFeedFolder_ExistsSubfolder</span><span style="FONT-SIZE: 8pt; COLOR: teal; FONT-FAMILY: 'Courier New'"</span><span style="FONT-SIZE: 8pt; COLOR: blue; FONT-FAMILY: 'Courier New'">name
AS STRING</span><span style="FONT-SIZE: 8pt; COLOR: teal; FONT-FAMILY: 'Courier New'"&gt </span><span style="FONT-SIZE: 8pt; COLOR: blue; FONT-FAMILY: 'Courier New'">AS </span><span style="FONT-SIZE: 8pt; COLOR: maroon; FONT-FAMILY: 'Courier New'">LOGICAL</span><span style="FONT-SIZE: 8pt; COLOR: teal; FONT-FAMILY: 'Courier New'">;<o></o>
</span>
</p>
<p class=MsoNormal style="MARGIN: 0in 0in 0pt; mso-layout-grid-align: none">
<span style="FONT-SIZE: 8pt; COLOR: teal; FONT-FAMILY: 'Courier New'"><span style="mso-spacerun: yes"> </span><span style="mso-tab-count: 4">                             </span></span><span style="FONT-SIZE: 8pt; COLOR: blue; FONT-FAMILY: 'Courier New'">HELPSTRING </span><span style="FONT-SIZE: 8pt; COLOR: red; FONT-FAMILY: 'Courier New'">"Checks
if a subfolder exists."<o></o>
</span>
</p>
<p class=MsoNormal style="MARGIN: 0in 0in 0pt; mso-layout-grid-align: none">
<span style="FONT-SIZE: 8pt; COLOR: red; FONT-FAMILY: 'Courier New'"><span style="mso-tab-count: 1">        </span></span><b><span style="FONT-SIZE: 8pt; COLOR: black; FONT-FAMILY: 'Courier New'">*
add user code here</span></b><span style="FONT-SIZE: 8pt; COLOR: black; FONT-FAMILY: 'Courier New'">
<o></o>
</span>
</p>
<p class=MsoNormal style="MARGIN: 0in 0in 0pt; mso-layout-grid-align: none">
<span style="FONT-SIZE: 8pt; COLOR: black; FONT-FAMILY: 'Courier New'"><span style="mso-tab-count: 1">        </span></span><span style="FONT-SIZE: 8pt; COLOR: blue; FONT-FAMILY: 'Courier New'">ENDPROC<o></o>
</span>
</p>
<p class=MsoNormal style="MARGIN: 0in 0in 0pt; mso-layout-grid-align: none">
<span style="FONT-SIZE: 8pt; COLOR: blue; FONT-FAMILY: 'Courier New'">
<o> </o>
</span>
</p>
<p class=MsoNormal style="MARGIN: 0in 0in 0pt; mso-layout-grid-align: none">
<span style="FONT-SIZE: 8pt; COLOR: blue; FONT-FAMILY: 'Courier New'"><span style="mso-tab-count: 1">        </span>PROCEDURE </span><span style="FONT-SIZE: 8pt; COLOR: maroon; FONT-FAMILY: 'Courier New'">IFeedFolder_GetSubfolder</span><span style="FONT-SIZE: 8pt; COLOR: teal; FONT-FAMILY: 'Courier New'"</span><span style="FONT-SIZE: 8pt; COLOR: blue; FONT-FAMILY: 'Courier New'">name
AS STRING</span><span style="FONT-SIZE: 8pt; COLOR: teal; FONT-FAMILY: 'Courier New'"&gt </span><span style="FONT-SIZE: 8pt; COLOR: blue; FONT-FAMILY: 'Courier New'">AS </span><span style="FONT-SIZE: 8pt; COLOR: maroon; FONT-FAMILY: 'Courier New'">VARIANT</span><span style="FONT-SIZE: 8pt; COLOR: teal; FONT-FAMILY: 'Courier New'">;<o></o>
</span>
</p>
<p class=MsoNormal style="MARGIN: 0in 0in 0pt; mso-layout-grid-align: none">
<span style="FONT-SIZE: 8pt; COLOR: teal; FONT-FAMILY: 'Courier New'"><span style="mso-spacerun: yes"> </span><span style="mso-tab-count: 4">                             </span></span><span style="FONT-SIZE: 8pt; COLOR: blue; FONT-FAMILY: 'Courier New'">HELPSTRING </span><span style="FONT-SIZE: 8pt; COLOR: red; FONT-FAMILY: 'Courier New'">"Retrieves
a subfolder by its name."<o></o>
</span>
</p>
<p class=MsoNormal style="MARGIN: 0in 0in 0pt; mso-layout-grid-align: none">
<span style="FONT-SIZE: 8pt; COLOR: red; FONT-FAMILY: 'Courier New'"><span style="mso-tab-count: 1">        </span></span><b><span style="FONT-SIZE: 8pt; COLOR: black; FONT-FAMILY: 'Courier New'">*
add user code here</span></b><span style="FONT-SIZE: 8pt; COLOR: black; FONT-FAMILY: 'Courier New'">
<o></o>
</span>
</p>
<p class=MsoNormal style="MARGIN: 0in 0in 0pt; mso-layout-grid-align: none">
<span style="FONT-SIZE: 8pt; COLOR: black; FONT-FAMILY: 'Courier New'"><span style="mso-tab-count: 1">        </span></span><span style="FONT-SIZE: 8pt; COLOR: blue; FONT-FAMILY: 'Courier New'">ENDPROC<o></o>
</span>
</p>
<p class=MsoNormal style="MARGIN: 0in 0in 0pt; mso-layout-grid-align: none">
<span style="FONT-SIZE: 8pt; COLOR: blue; FONT-FAMILY: 'Courier New'">
<o> </o>
</span>
</p>
<p class=MsoNormal style="MARGIN: 0in 0in 0pt; mso-layout-grid-align: none">
<span style="FONT-SIZE: 8pt; COLOR: blue; FONT-FAMILY: 'Courier New'"><span style="mso-tab-count: 1">        </span>PROCEDURE </span><span style="FONT-SIZE: 8pt; COLOR: maroon; FONT-FAMILY: 'Courier New'">IFeedFolder_Delete</span><span style="FONT-SIZE: 8pt; COLOR: teal; FONT-FAMILY: 'Courier New'">() </span><span style="FONT-SIZE: 8pt; COLOR: blue; FONT-FAMILY: 'Courier New'">AS </span><span style="FONT-SIZE: 8pt; COLOR: maroon; FONT-FAMILY: 'Courier New'">VOID</span><span style="FONT-SIZE: 8pt; COLOR: teal; FONT-FAMILY: 'Courier New'">;<o></o>
</span>
</p>
<p class=MsoNormal style="MARGIN: 0in 0in 0pt; mso-layout-grid-align: none">
<span style="FONT-SIZE: 8pt; COLOR: teal; FONT-FAMILY: 'Courier New'"><span style="mso-spacerun: yes"> </span><span style="mso-tab-count: 4">                             </span></span><span style="FONT-SIZE: 8pt; COLOR: blue; FONT-FAMILY: 'Courier New'">HELPSTRING </span><span style="FONT-SIZE: 8pt; COLOR: red; FONT-FAMILY: 'Courier New'">"Deletes
this folder and all of its contents."<o></o>
</span>
</p>
<p class=MsoNormal style="MARGIN: 0in 0in 0pt; mso-layout-grid-align: none">
<span style="FONT-SIZE: 8pt; COLOR: red; FONT-FAMILY: 'Courier New'"><span style="mso-tab-count: 1">        </span></span><b><span style="FONT-SIZE: 8pt; COLOR: black; FONT-FAMILY: 'Courier New'">*
add user code here</span></b><span style="FONT-SIZE: 8pt; COLOR: black; FONT-FAMILY: 'Courier New'">
<o></o>
</span>
</p>
<p class=MsoNormal style="MARGIN: 0in 0in 0pt; mso-layout-grid-align: none">
<span style="FONT-SIZE: 8pt; COLOR: black; FONT-FAMILY: 'Courier New'"><span style="mso-tab-count: 1">        </span></span><span style="FONT-SIZE: 8pt; COLOR: blue; FONT-FAMILY: 'Courier New'">ENDPROC<o></o>
</span>
</p>
<p class=MsoNormal style="MARGIN: 0in 0in 0pt; mso-layout-grid-align: none">
<span style="FONT-SIZE: 8pt; COLOR: blue; FONT-FAMILY: 'Courier New'">
<o> </o>
</span>
</p>
<p class=MsoNormal style="MARGIN: 0in 0in 0pt; mso-layout-grid-align: none">
<span style="FONT-SIZE: 8pt; COLOR: blue; FONT-FAMILY: 'Courier New'"><span style="mso-tab-count: 1">        </span>PROCEDURE </span><span style="FONT-SIZE: 8pt; COLOR: maroon; FONT-FAMILY: 'Courier New'">IFeedFolder_get_name</span><span style="FONT-SIZE: 8pt; COLOR: teal; FONT-FAMILY: 'Courier New'">() </span><span style="FONT-SIZE: 8pt; COLOR: blue; FONT-FAMILY: 'Courier New'">AS
STRING</span><span style="FONT-SIZE: 8pt; COLOR: teal; FONT-FAMILY: 'Courier New'">;<o></o>
</span>
</p>
<p class=MsoNormal style="MARGIN: 0in 0in 0pt; mso-layout-grid-align: none">
<span style="FONT-SIZE: 8pt; COLOR: teal; FONT-FAMILY: 'Courier New'"><span style="mso-spacerun: yes"> </span><span style="mso-tab-count: 4">                             </span></span><span style="FONT-SIZE: 8pt; COLOR: blue; FONT-FAMILY: 'Courier New'">HELPSTRING </span><span style="FONT-SIZE: 8pt; COLOR: red; FONT-FAMILY: 'Courier New'">"Retrieves
the name of the current folder."<o></o>
</span>
</p>
<p class=MsoNormal style="MARGIN: 0in 0in 0pt; mso-layout-grid-align: none">
<span style="FONT-SIZE: 8pt; COLOR: red; FONT-FAMILY: 'Courier New'"><span style="mso-tab-count: 1">        </span></span><b><span style="FONT-SIZE: 8pt; COLOR: black; FONT-FAMILY: 'Courier New'">*
add user code here</span></b><span style="FONT-SIZE: 8pt; COLOR: black; FONT-FAMILY: 'Courier New'">
<o></o>
</span>
</p>
<p class=MsoNormal style="MARGIN: 0in 0in 0pt; mso-layout-grid-align: none">
<span style="FONT-SIZE: 8pt; COLOR: black; FONT-FAMILY: 'Courier New'"><span style="mso-tab-count: 1">        </span></span><span style="FONT-SIZE: 8pt; COLOR: blue; FONT-FAMILY: 'Courier New'">ENDPROC<o></o>
</span>
</p>
<p class=MsoNormal style="MARGIN: 0in 0in 0pt; mso-layout-grid-align: none">
<span style="FONT-SIZE: 8pt; COLOR: blue; FONT-FAMILY: 'Courier New'">
<o> </o>
</span>
</p>
<p class=MsoNormal style="MARGIN: 0in 0in 0pt; mso-layout-grid-align: none">
<span style="FONT-SIZE: 8pt; COLOR: blue; FONT-FAMILY: 'Courier New'"><span style="mso-tab-count: 1">        </span>PROCEDURE </span><span style="FONT-SIZE: 8pt; COLOR: maroon; FONT-FAMILY: 'Courier New'">IFeedFolder_Rename</span><span style="FONT-SIZE: 8pt; COLOR: teal; FONT-FAMILY: 'Courier New'"</span><span style="FONT-SIZE: 8pt; COLOR: blue; FONT-FAMILY: 'Courier New'">name
AS STRING</span><span style="FONT-SIZE: 8pt; COLOR: teal; FONT-FAMILY: 'Courier New'"&gt </span><span style="FONT-SIZE: 8pt; COLOR: blue; FONT-FAMILY: 'Courier New'">AS </span><span style="FONT-SIZE: 8pt; COLOR: maroon; FONT-FAMILY: 'Courier New'">VOID</span><span style="FONT-SIZE: 8pt; COLOR: teal; FONT-FAMILY: 'Courier New'">;<o></o>
</span>
</p>
<p class=MsoNormal style="MARGIN: 0in 0in 0pt; mso-layout-grid-align: none">
<span style="FONT-SIZE: 8pt; COLOR: teal; FONT-FAMILY: 'Courier New'"><span style="mso-spacerun: yes"> </span><span style="mso-tab-count: 4">                             </span></span><span style="FONT-SIZE: 8pt; COLOR: blue; FONT-FAMILY: 'Courier New'">HELPSTRING </span><span style="FONT-SIZE: 8pt; COLOR: red; FONT-FAMILY: 'Courier New'">"Renames
the folder."<o></o>
</span>
</p>
<p class=MsoNormal style="MARGIN: 0in 0in 0pt; mso-layout-grid-align: none">
<span style="FONT-SIZE: 8pt; COLOR: red; FONT-FAMILY: 'Courier New'"><span style="mso-tab-count: 1">        </span></span><b><span style="FONT-SIZE: 8pt; COLOR: black; FONT-FAMILY: 'Courier New'">*
add user code here</span></b><span style="FONT-SIZE: 8pt; COLOR: black; FONT-FAMILY: 'Courier New'">
<o></o>
</span>
</p>
<p class=MsoNormal style="MARGIN: 0in 0in 0pt; mso-layout-grid-align: none">
<span style="FONT-SIZE: 8pt; COLOR: black; FONT-FAMILY: 'Courier New'"><span style="mso-tab-count: 1">        </span></span><span style="FONT-SIZE: 8pt; COLOR: blue; FONT-FAMILY: 'Courier New'">ENDPROC<o></o>
</span>
</p>
<p class=MsoNormal style="MARGIN: 0in 0in 0pt; mso-layout-grid-align: none">
<span style="FONT-SIZE: 8pt; COLOR: blue; FONT-FAMILY: 'Courier New'">
<o> </o>
</span>
</p>
<p class=MsoNormal style="MARGIN: 0in 0in 0pt; mso-layout-grid-align: none">
<span style="FONT-SIZE: 8pt; COLOR: blue; FONT-FAMILY: 'Courier New'"><span style="mso-tab-count: 1">        </span>PROCEDURE </span><span style="FONT-SIZE: 8pt; COLOR: maroon; FONT-FAMILY: 'Courier New'">IFeedFolder_get_path</span><span style="FONT-SIZE: 8pt; COLOR: teal; FONT-FAMILY: 'Courier New'">() </span><span style="FONT-SIZE: 8pt; COLOR: blue; FONT-FAMILY: 'Courier New'">AS
STRING</span><span style="FONT-SIZE: 8pt; COLOR: teal; FONT-FAMILY: 'Courier New'">;<o></o>
</span>
</p>
<p class=MsoNormal style="MARGIN: 0in 0in 0pt; mso-layout-grid-align: none">
<span style="FONT-SIZE: 8pt; COLOR: teal; FONT-FAMILY: 'Courier New'"><span style="mso-spacerun: yes"> </span><span style="mso-tab-count: 4">                             </span></span><span style="FONT-SIZE: 8pt; COLOR: blue; FONT-FAMILY: 'Courier New'">HELPSTRING </span><span style="FONT-SIZE: 8pt; COLOR: red; FONT-FAMILY: 'Courier New'">"Retrieves
the path of the current folder."<o></o>
</span>
</p>
<p class=MsoNormal style="MARGIN: 0in 0in 0pt; mso-layout-grid-align: none">
<span style="FONT-SIZE: 8pt; COLOR: red; FONT-FAMILY: 'Courier New'"><span style="mso-tab-count: 1">        </span></span><b><span style="FONT-SIZE: 8pt; COLOR: black; FONT-FAMILY: 'Courier New'">*
add user code here</span></b><span style="FONT-SIZE: 8pt; COLOR: black; FONT-FAMILY: 'Courier New'">
<o></o>
</span>
</p>
<p class=MsoNormal style="MARGIN: 0in 0in 0pt; mso-layout-grid-align: none">
<span style="FONT-SIZE: 8pt; COLOR: black; FONT-FAMILY: 'Courier New'"><span style="mso-tab-count: 1">        </span></span><span style="FONT-SIZE: 8pt; COLOR: blue; FONT-FAMILY: 'Courier New'">ENDPROC<o></o>
</span>
</p>
<p class=M

Collapse -

Technorati

by jlc In reply to Juan Calcagno

<a href="http://technorati.com/claim/8adste8r3d" rel=me>Technorati Profile</a>
<p>
Trying to set it up...
</p>
<img width="0" height="0" src="http://blog.jlcconsulting.com/aggbug.ashx?id=1d07ac7b-9acd-4406-bb71-65b99dc49eea" /><p><div class="blogdisclaim"><a href="http://blog.jlcconsulting.com/PermaLink,guid,1d07ac7b-9acd-4406-bb71-65b99dc49eea.aspx">This post originally appeared on an external website</a></div>

Back to After Hours Forum
8 total posts (Page 1 of 1)  

Related Discussions

Related Forums