PureBasic

Determine File Type from Binary Content of File

Note: This example requires Chilkat v9.5.0.64 or later.

Many file types have "signatures" (leading bytes) that signify the type of file. It allows for programs to identify the likely type of file given the first few bytes contained within the file. This example shows how to identify a few common types files. For other file types, you can do a short bit of investigative work by examining the first few bytes of an sample file, and searching the Internet for information about the file type. Use this same technique for handling other file types that have leading "signature" bytes.

PureBasic

IncludeFile "CkBinData.pb"
IncludeFile "CkFileAccess.pb"

Procedure ChilkatExample()

    ; Note: This example requires Chilkat v9.5.0.64 or later.

    ; To identify a file by the first few bytes, we'll load a few bytes from the start
    ; of the file, and then examine the bytes as both hex and quoted-printable.

    fac.i = CkFileAccess::ckCreate()
    If fac.i = 0
        Debug "Failed to create object."
        ProcedureReturn
    EndIf

    ; A JPG file.
    jpgData.i = CkBinData::ckCreate()
    If jpgData.i = 0
        Debug "Failed to create object."
        ProcedureReturn
    EndIf

    CkFileAccess::ckOpenForRead(fac,"qa_data/jpg/starfish.jpg")
    ; The the first 8 bytes of the JPG file.
    CkFileAccess::ckFileReadBd(fac,8,jpgData)
    CkFileAccess::ckFileClose(fac)

    ; JPG hex: FFD8FFE000104A46
    ; JPG qp: =FF=D8=FF=E0=00=10JF
    Debug "JPG hex: " + CkBinData::ckGetEncoded(jpgData,"hex")
    Debug "JPG qp: " + CkBinData::ckGetEncoded(jpgData,"qp")

    ; A JPG begins with the following two bytes: 0xFF, 0xD8
    ; Your program can check to see if the hex string begins with "FFD8", or if the qp string begins with "=FF=D8".

    ; ----------------------------------------
    ; A PNG file.
    pngData.i = CkBinData::ckCreate()
    If pngData.i = 0
        Debug "Failed to create object."
        ProcedureReturn
    EndIf

    CkFileAccess::ckOpenForRead(fac,"qa_data/png/anemone.png")
    ; The the first 8 bytes of the PNG file.
    CkFileAccess::ckFileReadBd(fac,8,pngData)
    CkFileAccess::ckFileClose(fac)

    ; PNG hex: 89504E470D0A1A0A
    ; PNG qp: =89PNG=1A=0A
    Debug "PNG hex: " + CkBinData::ckGetEncoded(pngData,"hex")
    Debug "PNG qp: " + CkBinData::ckGetEncoded(pngData,"qp")
    ; A PNG file begins with the byte 0x89, followed by the us-ascii bytes "PNG".

    ; ----------------------------------------
    ; A PDF file.
    pdfData.i = CkBinData::ckCreate()
    If pdfData.i = 0
        Debug "Failed to create object."
        ProcedureReturn
    EndIf

    CkFileAccess::ckOpenForRead(fac,"qa_data/pdf/fishing.pdf")
    ; The the first 8 bytes of the PDF file.
    CkFileAccess::ckFileReadBd(fac,8,pdfData)
    CkFileAccess::ckFileClose(fac)

    ; PDF hex: 255044462D312E33
    ; PDF qp: %PDF-1.3
    Debug "PDF hex: " + CkBinData::ckGetEncoded(pdfData,"hex")
    Debug "PDF qp: " + CkBinData::ckGetEncoded(pdfData,"qp")
    ; A PDF file begins with the us-ascii chars "%PDF"

    ; ----------------------------------------
    ; A Zip file.
    zipData.i = CkBinData::ckCreate()
    If zipData.i = 0
        Debug "Failed to create object."
        ProcedureReturn
    EndIf

    CkFileAccess::ckOpenForRead(fac,"qa_data/zips/test.zip")
    ; The the first 8 bytes of the Zip file.
    CkFileAccess::ckFileReadBd(fac,8,zipData)
    CkFileAccess::ckFileClose(fac)

    ; PDF hex: 504B030414000000
    ; PDF qp: PK=03=04=14=00=00=00
    Debug "PDF hex: " + CkBinData::ckGetEncoded(zipData,"hex")
    Debug "PDF qp: " + CkBinData::ckGetEncoded(zipData,"qp")
    ; A Zip archive begins with the us-ascii chars "PK" followed by the bytes 0x03, 0x04.


    CkFileAccess::ckDispose(fac)
    CkBinData::ckDispose(jpgData)
    CkBinData::ckDispose(pngData)
    CkBinData::ckDispose(pdfData)
    CkBinData::ckDispose(zipData)


    ProcedureReturn
EndProcedure