<?php

# Открыть исходный файл
$src = fopen('Resources.zip', 'rb');


function convert2pascal($buffer)
{
    // "\0\0\0\0"   =>   "$00, $00, $00, $00"
    return '$' . substr( chunk_split(bin2hex($buffer), 2, ', $'), 0, -3);
}

if ( $src !== false )
{

    # Получить размер файла
    fseek($src, 0, SEEK_END);
    $src_size = ftell($src);
    fseek($src, 0, SEEK_SET);

    # Открыть файл получатель
    $dst = fopen('include_me.inc', 'wb');
    if ( $dst !== false )
    {

        fwrite($dst, 'const buffer_size = '. $src_size .";\r\n");
        fwrite($dst, 'const buffer: array[0..'. ($src_size - 1) .'] of Byte = ('."\r\n");

        $buffsz = $src_size;
        while ( $src_size > 0 )
        {
            $buffsz = $src_size > 80 ? 80 : $src_size;
            $buffer = fread($src, $buffsz);
            $buffer = convert2pascal($buffer);

            fwrite($dst, $buffer);
            $src_size -= $buffsz;
            
            if ( $src_size > 0 ) fwrite($dst, ",\r\n");
            
        }

        fwrite($dst, "\r\n);");

    }

    fclose($src);
}