Jenny,
You'd do something like:
OriginalStr = "Put a long string here to allow good compression."
UnCompressedStr = SPACE (100)
CompressedStr = ""
THISFORM.ZipMain.StringCompress (@OriginalStr, @CompressedStr)
THISFORM.ZipMain.StringUnCompress (@CompressedStr, @UnCompressedStr)
*THISFORM.Label8.caption = TRIM(UnCompressedStr)
with thisform.text1
.Value = alltrim( UnCompressedStr ) + "<"
.Refresh()
endwith
Are you sure you are supposed to pass the first argument to those methods by reference? You usually only have to do that with arguments that are being altered. Is it possible that those methods return the value or a status? You might check it:
debugout THISFORM.ZipMain.StringCompress (@OriginalStr, @CompressedStr)
debugout THISFORM.ZipMain.StringUnCompress (@CompressedStr, @UnCompressedStr)
>However, I am not a FoxPro progammer and I have to figure this out... I tried the text box like you suggested to show the uncompressed string. It compiles fine, but when I try to put the uncompressed string in the textbox, it says that it is read only.
>
>I am sure that the answer is obvious, but please bear with me :)
>
>If a set a breakpoint on the line which uncompressed and check the value of UnCompressedStr it gives me a string of spaces...