Need help with winsock

[freak]

I'm using ancient, obsolete, unsupported Progress 9.1d and I should upgrade.

I'm trying to read data from a winsock control and from the DataArrival event. Each time DataArrival fires I try to get the data with GetData. I get the following error message...

"Unexpected error occurred while processing method/statement GetData."

My DataArrival code:

DEFINE INPUT PARAMETER p-bytesTotal AS INTEGER NO-UNDO.

DEF VAR tcpBuffer AS MEMPTR NO-UNDO.
SET-SIZE(tcpBuffer)=p-bytesTotal.


chTCP_Scanner_Steelroom:winsock:GetData(INPUT-OUTPUT tcpBuffer,"", p-bytesTotal).

Any tips?