Juan Calcagno 's Blog

Just used Amazon download tool and think it is pretty cool.

jlc@jlcconsulting.com (Juan Calcagno) — Wed, 04 Mar 2009 03:45:46 GMT

I just downloaded No line on the horizon from U2 (the greatest last band ever) using Amazon MP3 Downloader for the first time and I recommend it.

On a side note, here’s how to setup dasblog to work with live writer:

http://www.dasblog.info/PostingToDasBlogWithWindowsLiveWriter.aspx

Follow the instructions and you will be a happy person.

FeedDemon is now free. A little too late.

jlc@jlcconsulting.com (Juan Calcagno) — Wed, 23 Jan 2008 16:57:46 GMT

I just read Rick Borup's post about FeedDemon becoming free.
FeedDemon is a great application, bad timing though, I am too used to Google Reader already.

The arguments exposed on Nick Bradbury's blog are sort of "product stays the same, we'll charge the companies now, not the individuals".

The decision looks demagogic to me. It sounds like Newsgator can now afford to be free for individuals after they've used their money and their invaluable input.

This leaves those paid subscribers at the same level as someone who never paid, and all because those paid subscriber individuals are not a target anymore since Newsgator can now charge companies good money (with the product those individuals helped create).

I would feel very bad if I had bought the software a few months ago, a little "used" I should say. Here's an idea: if you suddenly decide to go free on a product, considering the software had a yearly subscription basis (as I believed it had), and you are presenting this as a great giveaway to the community, why don't you give back to subscribers the money collected since 12 months ago. That would earn you SOME respect among former paid subscribers.

My point is, if you are going to make a free product, you better do it from the beginning.

I'll give a real life, Seinfeld-like, example. Let's suppose that you are at an expensive restaurant having dinner with somebody you know. For whatever reason, you are not hungry and only order a salad. On the other hand, your partner goes through a 3 course meal plus dessert. After the meal, noticing your meal was cheap, your friend decides to pick up the check under the argument "Don't worry, you'll pay next time". How would you feel? If you are going to treat me, make it from the beginning, not after you realized I wasn't going to cost you that much.

Vista Blues : Accuracy

jlc@jlcconsulting.com (Juan Calcagno) — Tue, 08 Jan 2008 15:28:10 GMT

I surely don't mind about the 49625 days, but man, those extra 6 hours are too much!

Para Don Conde, lo prometido es deuda.

jlc@jlcconsulting.com (Juan Calcagno) — Sun, 06 Jan 2008 03:00:57 GMT

VFP Studio 2009 (...?)

jlc@jlcconsulting.com (Juan Calcagno) — Wed, 07 Nov 2007 22:42:46 GMT

I stumbled upon this link recently:

http://netcave.org/SpeakingAtMemphisDayOfNet2007.aspx

which took me to:
http://www.vfpstudio.com

People's going to start wondering what is this very soon.

Or not.

There won't be a PDC 2007...

jlc@jlcconsulting.com (Juan Calcagno) — Fri, 01 Jun 2007 04:09:12 GMT

..that's what it looks like.

then VSLive! @ Brooklyn maybe an option...

Ignore this, Technorati.

jlc@jlcconsulting.com (Juan Calcagno) — Sat, 24 Mar 2007 04:44:05 GMT

Technorati Profile

Testing from Outlook

jlc@jlcconsulting.com (Juan Calcagno) — Thu, 09 Nov 2006 18:40:39 GMT

I am currently testing MS Outlook, this text is highlighted.

For short posts Blogmailr looks like a pretty cool tool so far.

Published with BlogMailr

Testing BlogMailR

jlc@jlcconsulting.com (Juan Calcagno) — Thu, 09 Nov 2006 17:45:07 GMT

I am posting this from Windows Live Mail desktop beta.

If it makes it out there, then BlogMailR is super cool.

Published with BlogMailr

IE7 Rc1 Rss Api and VFP: IT'S ALIVE!

jlc@jlcconsulting.com (Juan Calcagno) — Tue, 12 Sep 2006 18:48:54 GMT

I should've posted this earlier, but I’ve been running into some health issues lately that precluded me from doing it.

I was wrong when I said before that the RSS API (events interface) was not working with VFP; as a matter of fact, Alan Griver indicated in my previous post that he had it working and was about to do a presentation with it, so to me that was the confirmation of my previous suspicions, i.e., that I was not using the right code.

Using the correct events interface invocation “made the trick” to make it work.

There is still an outstanding issue that I have to figure out: I get the same error described in previous posts that pops up after I try to download several feeds individually, I have a couple of things in mind that I am going to try.

Here’s a sample of the code that will allow you to see on the VFP screen the RSS activity and also record it to a csv file for later review in a table format (for example you could use these 2 lines of code

CREATE TABLE feedslog (Occurred t,EventMess c(150),FeedPath c(200),FeedOldpat c(200),ItemCount n(9),ErrorNo n(9))

APPEND FROM FeedEventsLog.CSV TYPE csv):

* RSS Events

CLEAR

#DEFINE FES_ALL 0

#DEFINE FES_SELF_ONLY 1

#DEFINE FES_SELF_AND_CHILDREN_ONLY 2

#DEFINE FEM_FOLDEREVENTS 0x00000001

#DEFINE FEM_FEEDEVENTS 0x00000002

PUBLIC FeedErrors

DIMENSION FeedErrors(13,2)

FeedErrors(1,1)= 0

FeedErrors(1,2)= "OK"

FeedErrors(2,1)= 1

FeedErrors(2,2)= "DOWNLOAD FAILED"

FeedErrors(3,1)= 2

FeedErrors(3,2)= "INVALID FEED FORMAT"

FeedErrors(4,1)= 3

FeedErrors(4,2)= "NORMALIZATION FAILED"

FeedErrors(5,1)= 4

FeedErrors(5,2)= "PERSISTENCE FAILED"

FeedErrors(6,1)= 5

FeedErrors(6,2)= "DOWNLOAD BLOCKED"

FeedErrors(7,1)= 6

FeedErrors(7,2)= "CANCELED"

FeedErrors(8,1)= 7

FeedErrors(8,2)= "UNSUPPORTED AUTHENTICATION"

FeedErrors(9,1)= 8

FeedErrors(9,2)= "BACKGROUND DOWNLOAD DISABLED"

FeedErrors(10,1)= 9

FeedErrors(10,2)= "Feed Does NOT EXIST"

FeedErrors(11,1)= 10

FeedErrors(11,2)= "UNSUPPORTED MSXML"

FeedErrors(12,1)= 11

FeedErrors(12,2)= "UNSUPPORTED DTD"

FeedErrors(13,1)= 12

FeedErrors(13,2)= "DOWNLOAD SIZE LIMIT EXCEEDED"

oFeedMgr = NEWOBJECT("Microsoft.FeedsManager")

oRootFolder = oFeedMgr.RootFolder

oFeeds=oRootFolder.Feeds

x=NEWOBJECT("myFolderEvents")

IF EVENTHANDLER(oRootFolder.GetWatcher(FES_SELF_AND_CHILDREN_ONLY ,FEM_FEEDEVENTS ),x)

Wait window nowait "Feeds Interface Instantiated!"

ELSE

Wait window nowait "Feeds Interface Instantiation FAILED!"

ENDIF

RETURN

DEFINE CLASS myFolderEvents AS session OLEPUBLIC

IMPLEMENTS IFeedFolderEvents IN "c:\windows\system32\msfeeds.dll"

PROCEDURE IFeedFolderEvents_Error() AS VOID;

HELPSTRING "Occurs when a feed folder event error occurs."

* add user code here

EventsLogger("Folder Event Error","")

ENDPROC

PROCEDURE IFeedFolderEvents_FolderAdded( Path AS STRING) AS VOID;

HELPSTRING "Occurs when a folder or subfolder is added."

* add user code here

EventsLogger("Folder "+PATH+" Added",PATH)

ENDPROC

PROCEDURE IFeedFolderEvents_FolderDeleted( Path AS STRING) AS VOID;

HELPSTRING "Occurs when a folder or subfolder is removed."

* add user code here

EventsLogger("Folder/subfolder "+PATH+"removed.",PATH)

ENDPROC

PROCEDURE IFeedFolderEvents_FolderRenamed(Path AS STRING, oldPath AS STRING) AS VOID;

HELPSTRING "Occurs when a folder or subfolder is renamed."

* add user code here

EventsLogger("Folder/subfolder "+oldPath+ " RENAMED to "+PATH,PATH,oldPath)

ENDPROC

PROCEDURE IFeedFolderEvents_FolderMovedFrom(Path AS STRING, oldPath AS STRING) AS VOID;

HELPSTRING "Occurs when a folder or subfolder is moved from this folder."

* add user code here

EventsLogger("Folder/subfolder MOVED FROM "+oldPath+" to "+PATH,PATH,oldPAth)

ENDPROC

PROCEDURE IFeedFolderEvents_FolderMovedTo(Path AS STRING, oldPath AS STRING) AS VOID;

HELPSTRING "Occurs when a folder or subfolder is moved to this folder."

* add user code here

EventsLogger("Folder/subfolder "+oldPath+" MOVED TO "+PATH,PATH,oldPAth)

ENDPROC

PROCEDURE IFeedFolderEvents_FolderItemCountChanged(Path AS STRING, itemCountType AS Number) AS VOID;

HELPSTRING "Occurs when the aggregated item count of a feed folder changes."

* add user code here

EventsLogger("Folder ITEM COUNT for Folder "+PATH+" Changed to "+ALLTRIM(STR(itemCountType)),PATH,,itemCountType)

ENDPROC

PROCEDURE IFeedFolderEvents_FeedAdded( Path AS STRING) AS VOID;

HELPSTRING "Occurs when a feed is added to the folder."

* add user code here

EventsLogger("Feed "+PATH+" Added",PATH)

ENDPROC

PROCEDURE IFeedFolderEvents_FeedDeleted( Path AS STRING) AS VOID;

HELPSTRING "Occurs when a feed is deleted from the folder."

* add user code here

EventsLogger("Feed "+PATH+" Deleted",PATH)

ENDPROC

PROCEDURE IFeedFolderEvents_FeedRenamed(Path AS STRING, oldPath AS STRING) AS VOID;

HELPSTRING "Occurs when a feed is renamed."

* add user code here

EventsLogger("Feed "+PATH+" Renamed",PATH)

ENDPROC

PROCEDURE IFeedFolderEvents_FeedUrlChanged( Path AS STRING) AS VOID;

HELPSTRING "Occurs when the URL of a feed is changed."

* add user code here

EventsLogger("Feed "+PATH+" URL Changed",PATH)

ENDPROC

PROCEDURE IFeedFolderEvents_FeedMovedFrom(Path AS STRING, oldPath AS STRING) AS VOID;

HELPSTRING "Occurs when a feed is moved from this folder."

* add user code here

EventsLogger("Feed MOVED FROM "+oldPath+" TO "+PATH, PATH, oldpath )

ENDPROC

PROCEDURE IFeedFolderEvents_FeedMovedTo(Path AS STRING, oldPath AS STRING) AS VOID;

HELPSTRING "Occurs when a feed is moved to this folder."

* add user code here

EventsLogger("Feed MOVED TO "+oldPath+" FROM "+PATH, PATH, oldpath )

ENDPROC

PROCEDURE IFeedFolderEvents_FeedDownloading( Path AS STRING) AS VOID;

HELPSTRING "Occurs when a feed starts to download."

* add user code here

EventsLogger("Feed Download "+PATH+" STARTS",PATH)

ENDPROC

PROCEDURE IFeedFolderEvents_FeedDownloadCompleted( Path AS STRING, Error AS VARIANT) AS VOID;

HELPSTRING "Occurs when a feed has finished or failed downloading."

* add user code here

lcErrorMessage=FeedErrors(ASCAN(FeedErrors,Error)+1)

EventsLogger("Feed "+PATH+" Download "+IIF(error=0,"FINISHED ","FAILED "+lcErrorMessage),PATH,,,Error)

ENDPROC

PROCEDURE IFeedFolderEvents_FeedItemCountChanged(Path AS STRING, itemCountType AS Number) AS VOID;

HELPSTRING "Occurs when the item count of a feed changed."

* add user code here

EventsLogger("Feed "+PATH+" ITEM COUNT Changed to "+ALLTRIM(STR(itemCountType)),PATH,,itemCountType)

ENDPROC

ENDDEFINE

**********************

PROCEDURE eventslogger

**********************

LPARAMETERS tcEventMEssage, tcPAth,tcOldPath,tnItemCountType, tErr

lcLogMessage=TTOC(DATETIME())+[,]+;

tcEventMEssage+[,]+;

tcPath+[,]+;

IIF(VARTYPE(tcOldPath)=[L],[],tcOldPath)+[,]+;

IIF(VARTYPE(tnItemCountType)=[L],[],ALLTRIM(STR(tnItemCountType)))+[,]+;

IIF(VARTYPE(tErr)=[L],[],ALLTRIM(STR(tErr)))

?lcLogMessage

STRTOFILE(lcLogMessage+CHR(13),"FeedEventsLog.CSV",1)

RETURN .t.

[UPDATED 10-02-06] I've added 2 flash videos of about 3 mins each showing this code working on XP SP2 and Vista RC1.

IE7 RC1: RSS API still not working with Visual Foxpro.

jlc@jlcconsulting.com (Juan Calcagno) — Fri, 25 Aug 2006 19:22:02 GMT

Despite what has been said before, nothing has changed, the same issues are still there.

Just to be on the safe side, I will continue to investigate whether I am using the correct code which, except for a property name that changed, it is pretty much the same as published before.