Chilkat Examples

ChilkatHOME.NET Core C#Android™AutoItCC#C++Chilkat2-PythonCkPythonClassic ASPDataFlexDelphi ActiveXDelphi DLLGoJavaLianjaMono C#Node.jsObjective-CPHP ActiveXPHP ExtensionPerlPowerBuilderPowerShellPureBasicRubySQL ServerSwift 2Swift 3,4,5...TclUnicode CUnicode C++VB.NETVBScriptVisual Basic 6.0Visual FoxProXojo Plugin

DataFlex Examples

Web API Categories

ASN.1
AWS KMS
AWS Misc
Amazon EC2
Amazon Glacier
Amazon S3
Amazon S3 (new)
Amazon SES
Amazon SNS
Amazon SQS
Async
Azure Cloud Storage
Azure Key Vault
Azure Service Bus
Azure Table Service
Base64
Bounced Email
Box
CAdES
CSR
CSV
Certificates
Code Signing
Compression
DKIM / DomainKey
DNS
DSA
Diffie-Hellman
Digital Signatures
Dropbox
Dynamics CRM
EBICS
ECC
Ed25519
Email Object
Encryption
FTP
FileAccess
Firebase
GMail REST API
GMail SMTP/IMAP/POP
Geolocation
Google APIs
Google Calendar
Google Cloud SQL
Google Cloud Storage
Google Drive
Google Photos
Google Sheets
Google Tasks
Gzip
HTML-to-XML/Text
HTTP

HTTP Misc
IMAP
JSON
JSON Web Encryption (JWE)
JSON Web Signatures (JWS)
JSON Web Token (JWT)
Java KeyStore (JKS)
MHT / HTML Email
MIME
MS Storage Providers
Microsoft Graph
Misc
NTLM
OAuth1
OAuth2
OIDC
Office365
OneDrive
OpenSSL
Outlook
Outlook Calendar
Outlook Contact
PDF Signatures
PEM
PFX/P12
PKCS11
POP3
PRNG
REST
REST Misc
RSA
SCP
SCard
SFTP
SMTP
SSH
SSH Key
SSH Tunnel
ScMinidriver
SharePoint
SharePoint Online
Signing in the Cloud
Socket/SSL/TLS
Spider
Stream
Tar Archive
ULID/UUID
Upload
WebSocket
XAdES
XML
XML Digital Signatures
XMP
Zip
curl

 

 

 

(DataFlex) 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.

Chilkat ActiveX Downloads

ActiveX for 32-bit and 64-bit Windows

Use ChilkatAx-9.5.0-win32.pkg

Procedure Test
    Handle hoFac
    Variant vJpgData
    Handle hoJpgData
    Boolean iSuccess
    Variant vPngData
    Handle hoPngData
    Variant vPdfData
    Handle hoPdfData
    Variant vZipData
    Handle hoZipData
    String sTemp1

    // 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.

    Get Create (RefClass(cComCkFileAccess)) To hoFac
    If (Not(IsComObjectCreated(hoFac))) Begin
        Send CreateComObject of hoFac
    End

    // A JPG file.
    Get Create (RefClass(cComChilkatBinData)) To hoJpgData
    If (Not(IsComObjectCreated(hoJpgData))) Begin
        Send CreateComObject of hoJpgData
    End
    Get ComOpenForRead Of hoFac "qa_data/jpg/starfish.jpg" To iSuccess
    // The the first 8 bytes of the JPG file.
    Get pvComObject of hoJpgData to vJpgData
    Get ComFileReadBd Of hoFac 8 vJpgData To iSuccess
    Send ComFileClose To hoFac

    // JPG hex: FFD8FFE000104A46
    // JPG qp: =FF=D8=FF=E0=00=10JF
    Get ComGetEncoded Of hoJpgData "hex" To sTemp1
    Showln "JPG hex: " sTemp1
    Get ComGetEncoded Of hoJpgData "qp" To sTemp1
    Showln "JPG qp: " sTemp1

    // 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.
    Get Create (RefClass(cComChilkatBinData)) To hoPngData
    If (Not(IsComObjectCreated(hoPngData))) Begin
        Send CreateComObject of hoPngData
    End
    Get ComOpenForRead Of hoFac "qa_data/png/anemone.png" To iSuccess
    // The the first 8 bytes of the PNG file.
    Get pvComObject of hoPngData to vPngData
    Get ComFileReadBd Of hoFac 8 vPngData To iSuccess
    Send ComFileClose To hoFac

    // PNG hex: 89504E470D0A1A0A
    // PNG qp: =89PNG=1A=0A
    Get ComGetEncoded Of hoPngData "hex" To sTemp1
    Showln "PNG hex: " sTemp1
    Get ComGetEncoded Of hoPngData "qp" To sTemp1
    Showln "PNG qp: " sTemp1
    // A PNG file begins with the byte 0x89, followed by the us-ascii bytes "PNG".

    // ----------------------------------------
    // A PDF file.
    Get Create (RefClass(cComChilkatBinData)) To hoPdfData
    If (Not(IsComObjectCreated(hoPdfData))) Begin
        Send CreateComObject of hoPdfData
    End
    Get ComOpenForRead Of hoFac "qa_data/pdf/fishing.pdf" To iSuccess
    // The the first 8 bytes of the PDF file.
    Get pvComObject of hoPdfData to vPdfData
    Get ComFileReadBd Of hoFac 8 vPdfData To iSuccess
    Send ComFileClose To hoFac

    // PDF hex: 255044462D312E33
    // PDF qp: %PDF-1.3
    Get ComGetEncoded Of hoPdfData "hex" To sTemp1
    Showln "PDF hex: " sTemp1
    Get ComGetEncoded Of hoPdfData "qp" To sTemp1
    Showln "PDF qp: " sTemp1
    // A PDF file begins with the us-ascii chars "%PDF"

    // ----------------------------------------
    // A Zip file.
    Get Create (RefClass(cComChilkatBinData)) To hoZipData
    If (Not(IsComObjectCreated(hoZipData))) Begin
        Send CreateComObject of hoZipData
    End
    Get ComOpenForRead Of hoFac "qa_data/zips/test.zip" To iSuccess
    // The the first 8 bytes of the Zip file.
    Get pvComObject of hoZipData to vZipData
    Get ComFileReadBd Of hoFac 8 vZipData To iSuccess
    Send ComFileClose To hoFac

    // PDF hex: 504B030414000000
    // PDF qp: PK=03=04=14=00=00=00
    Get ComGetEncoded Of hoZipData "hex" To sTemp1
    Showln "PDF hex: " sTemp1
    Get ComGetEncoded Of hoZipData "qp" To sTemp1
    Showln "PDF qp: " sTemp1
    // A Zip archive begins with the us-ascii chars "PK" followed by the bytes 0x03, 0x04.


End_Procedure

 

© 2000-2024 Chilkat Software, Inc. All Rights Reserved.