(PowerBuilder) Set a Custom Last-Modified Date in a Gzip File

See more Gzip Examples

This example demonstrates how to use the SetDt method to specify a custom last-modified date and time that will be embedded in a Gzip file.

A CkDateTime object is first initialized with a specific date/time using an RFC 822 formatted string. This date/time is then applied to the Gzip object using SetDt.

When a compression method is called (such as CompressStringToFile), the specified date/time is included in the Gzip metadata. This allows the resulting .gz file to carry a meaningful timestamp rather than using the current system time.

Chilkat ActiveX Downloads ActiveX for 32-bit and 64-bit Windows

integer li_rc
integer li_Success
oleobject loo_Gzip
oleobject loo_Dt
string ls_InputStr

li_Success = 0

// This example demonstrates how to set a custom last-modified date/time
// that will be embedded in a Gzip file.

loo_Gzip = create oleobject
li_rc = loo_Gzip.ConnectToNewObject("Chilkat.Gzip")
if li_rc < 0 then
    destroy loo_Gzip
    MessageBox("Error","Connecting to COM object failed")
    return
end if
loo_Dt = create oleobject
li_rc = loo_Dt.ConnectToNewObject("Chilkat.CkDateTime")

// Set the date/time using a timestamp format (ISO 8601 style):
loo_Dt.SetFromTimestamp("2025-11-15T12:45:26-05:00")

// Apply the date/time to the Gzip object:
li_Success = loo_Gzip.SetDt(loo_Dt)
if li_Success = 0 then
    Write-Debug loo_Gzip.LastErrorText
    destroy loo_Gzip
    destroy loo_Dt
    return
end if

// Compress a string so the custom date/time is embedded in the .gz:
ls_InputStr = "Example text for Gzip compression."
li_Success = loo_Gzip.CompressStringToFile(ls_InputStr,"utf-8","output.gz")
if li_Success = 0 then
    Write-Debug loo_Gzip.LastErrorText
    destroy loo_Gzip
    destroy loo_Dt
    return
end if

Write-Debug "Gzip file created with custom last-modified date."


destroy loo_Gzip
destroy loo_Dt