664 ejemplos sencillos de código de Delphi

[Chogo]

Excelente ya lo guarde en mis marcadores, me gustaria descargarlos todos
¿Sabe alguien como hacerlo?

[[rretamar]]

Muchas gracias !!!!

Para descargar todos se puede usar un "lector fuera de línea" (offline browser).

Linux ya tiene uno incorporado: el comando wget ,mientras que en Windows se debe utilizar uno de terceros, por ejemplo BackStreet Browser: http://www.spadixbd.com/backstreet/

Otro lector fuera de línea es http://www.httrack.com/

[Casimiro Notevi]

Por ejemplo, acabo de descargarlo con:
wget -r -t1 -c -erobots=off -N -b http://docwiki.embarcadero.com

[marcoszorrilla]

Yo he utilzado HTTrack Website Copier

Un Saludo.

[roman]

Empezado por Casimiro Notevi

Por ejemplo, acabo de descargarlo con:
wget -r -t1 -c -erobots=off -N -b http://docwiki.embarcadero.com

O un poco más específico

wget -r -t1 -c -erobots=off -N -b http://docwiki.embarcadero.com/CodeS...ategory:Delphi

Por cierto, para Windows, existen también las herramientas GNUWin32 que emulan muchas de las herramientas de línea de comandos de unix.

// Saludos

[Casimiro Notevi]

Empezado por roman

O un poco más específico

El caso es que lo descargué todo, fui un poco bruto

[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

[Hugoalgave]

es que estoy aprendiendo a programar y escogi delphi pero udo la version 7 esos ejemplos aplican tambien para delphi 7