Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
String compression/uncompression
Message
 
 
To
22/09/1999 13:52:27
General information
Forum:
Visual FoxPro
Category:
ActiveX controls in VFP
Miscellaneous
Thread ID:
00267319
Message ID:
00267862
Views:
17
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...
df (was a 10 time MVP)

df FoxPro website
FoxPro Wiki site online, editable knowledgebase
Previous
Next
Reply
Map
View

Click here to load this message in the networking platform