Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
String compression/uncompression
Message
 
 
À
22/09/1999 13:52:27
Information générale
Forum:
Visual FoxPro
Catégorie:
Contrôles ActiveX en VFP
Divers
Thread ID:
00267319
Message ID:
00267862
Vues:
18
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
Précédent
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform