PowerBuilder

Zip Append StringBuilder

See more Zip Examples

Append the contents of a Chilkat StringBuilder object to a .zip. PowerBuilder

integer li_rc
integer li_Success
oleobject loo_Zip
string ls_ZipPath
oleobject loo_Sb
integer i
oleobject loo_Zip2
string ls_ZipPath2

li_Success = 0

// This example requires the Chilkat API to have been previously unlocked.
// See Global Unlock Sample for sample code.

loo_Zip = create oleobject
li_rc = loo_Zip.ConnectToNewObject("Chilkat.Zip")
if li_rc < 0 then
    destroy loo_Zip
    MessageBox("Error","Connecting to COM object failed")
    return
end if
ls_ZipPath = "c:/temp/qa_output/out.zip"

loo_Zip.NewZip(ls_ZipPath)

loo_Sb = create oleobject
li_rc = loo_Sb.ConnectToNewObject("Chilkat.StringBuilder")

i = 0
do while i < 100
    loo_Sb.AppendLine("This is a test",1)
    i = i + 1
loop

loo_Zip.AddSb("this_is_a_test.txt",loo_Sb,"utf-8")

li_Success = loo_Zip.WriteZipAndClose()
if li_Success = 0 then
    Write-Debug loo_Zip.LastErrorText
    destroy loo_Zip
    destroy loo_Sb
    return
end if

Write-Debug "Success 1."

// Perhaps you want to add a file to an existing .zip
loo_Zip2 = create oleobject
li_rc = loo_Zip2.ConnectToNewObject("Chilkat.Zip")

// Open the .zip we just wrote..
li_Success = loo_Zip2.OpenZip(ls_ZipPath)

loo_Sb.Clear()
i = 0
do while i < 100
    loo_Sb.AppendLine("This is a test 2",1)
    i = i + 1
loop

loo_Zip2.AddSb("this_is_a_test_2.txt",loo_Sb,"utf-8")

ls_ZipPath2 = "c:/temp/qa_output/out2.zip"
loo_Zip2.FileName = ls_ZipPath2
li_Success = loo_Zip2.WriteZipAndClose()
if li_Success = 0 then
    Write-Debug loo_Zip2.LastErrorText
    destroy loo_Zip
    destroy loo_Sb
    destroy loo_Zip2
    return
end if

Write-Debug "Success 2."


destroy loo_Zip
destroy loo_Sb
destroy loo_Zip2