664 ejemplos sencillos de código de Delphi

[roman]

Va un pequeño experimento, por si a alguien le interesa. La idea es recopilar los ejemplos aquí mencionados en una base de datos, y así tener más libertad en la forma de visualizarlos.

La base de datos está en MySql y el código para recopilarlos está en php. Sí, ya sé, sería mejor en delphi pero con mi versión de delphi no dispongo de expresiones regulares que utilizo para rastrear el código html. La base, podría ajustarse a otro gestor sin mayores problemas.

Esta es la estructura de la tabla:

Código SQL [-]
create table ejemplos (
  id int not null auto_increment,
  titulo char(75),
  codigo text,
  url char(255),
  primary key (id)
) engine=myisam

Y a continuación el código php:

Código PHP:

<?php
/*
 * Datos de conexión (poner los datos apropiados)
 */
define('DB_SERVIDOR', 'localhost');
define('DB_BASE', 'test');
define('DB_TABLA', 'ejemplos');
define('DB_USUARIO',  'usuario');
define('DB_PASSWORD', '12345');

/**
 * Extrae el código de ejemplo de la página indicada
 */
function extraerCodigo($url)
{
    $texto = @file_get_contents($url);

    /*
     * Si el enlace está roto, devolver una cadena vacía.
     */
    if ($texto === false)
    {
        return '';
    }

    /*
     * Si la página indicada no contiene código de ejemplo, devolver una cadena vacía.
     */
    if (preg_match('#<div class="delphi source-delphi">(.*)</div>#sU', $texto, $matches) === 0)
    {
        return '';
    }

    return trim(strip_tags($matches[1]));
}

/**
 * Agrega un código de ejemplo a la base de datos
 */
function agregarEjemplo($tabla, $titulo, $codigo, $url)
{
    $codigo = mysql_real_escape_string($codigo);
    $sql = "insert into $tabla values(0, '$titulo', '$codigo', '$url')";

    mysql_query($sql);
}

/*
 * Asegurarnos de que el script no termine por tiempo excesivo.
 */
set_time_limit(360);

/*
 * Conectarse al servidor de datos
 */
mysql_connect(DB_SERVIDOR, DB_USUARIO, DB_PASSWORD);
mysql_select_db(DB_BASE);

/*
 * Obtener la página del índice
 */
$indice = isset($_GET['url'])
    ? $_GET['url']
    : 'http://docwiki.embarcadero.com/CodeExamples/e/index.php?title=Category:Delphi';

/*
 * Obtener el contenido de la página en turno del índice
 */
$texto = file_get_contents($indice);

/*
 * Leer las entradas del índice
 */
if (preg_match('#<div id="mw-pages">(.*)</div>#sU', $texto, $matches) === 0)
{
    die('No se encontró el índice');
}

if (preg_match_all('#<a href="(.*)" title="(.*)">#sU', $matches[1], $matches, PREG_SET_ORDER) === 0)
{
    die('No se encontraron entradas del índice');
}

/*
 * Agregar los ejemplos de esta página
 */
foreach ($matches as $match)
{
    $url = 'http://docwiki.embarcadero.com' . html_entity_decode($match[1]);
    $titulo = str_replace(' (Delphi)', '', $match[2]);
    $codigo = extraerCodigo($url);

    if (!empty($codigo))
    {
        agregarEjemplo(DB_TABLA, $titulo, $codigo, $url);
    }
}

/*
 * Buscar la siguiente página del índice
 */
if (preg_match('#<a href="([^>]*)" title="Category:Delphi">next.*</a>#sU', $texto, $matches) === 0)
{
    $indice = null;
    echo 'done!';
}
else
{
    /*
     * Redirigir a la siguiente página del índice
     */
    $indice = 'http://docwiki.embarcadero.com' . html_entity_decode($matches[1]);
    header('location: test.php?url=' . urlencode($indice));
}
?>

Con este script no aparecerán todos los ejemplos listados, pero sucede que hay varios que no llevan a ningún lado y otros no llevan directamente a una página de código.

// Saludos