664 ejemplos sencillos de código de Delphi

[rrf]

Hola.

Acabo de echar un vistazo a una dirección de mis marcadores del navegador web y me he sorprendido al encontrar una DIRECCIÓN DE EMBARCADERO QUE INCLUYE 664 EJEMPLOS SENCILLOS DE CÓDIGO DE DELPHI que había olvidado que la había guardado hace meses.

Todos los ejemplos que miré indicaban que estaban escritos para Delphi 2010, pero seguramente muchos funcionarán en otras versiones.

Espero que sea útil.

Saludos.

[Casimiro Notevi]

¡¡¡ Muy interesante !!!

[Delfino]

Empezado por rrf

Todos los ejemplos que miré indicaban que estaban escritos para Delphi 2010, pero seguramente muchos funcionarán en otras versiones.

Muchos no, casi todos

[[ElKurgan]]

Gracias por el aporte

Saludos

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

[Hugoalgave]

excelente aportazo amigo

[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

[rrf]

Empezado por Hugoalgave

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

Eso ya fue comentado en el mensaje #3 de este hilo:

Cita:
Empezado por rrf Ver Mensaje
Todos los ejemplos que miré indicaban que estaban escritos para Delphi 2010, pero seguramente muchos funcionarán en otras versiones.

Muchos no, casi todos

Es cuestión de probar aquello que necesites y ver si funciona o no. Probablemente, la mayoría te va a funcionar.

[Hugoalgave]

tengo una tabla que se llama antiguos y dentro de esa tabla hay un campo que se llama nombre me pasaron un listado pero cuando carlo los nomres me aparecen con comillanates es decir ejemplo "francisco pinto perez y necesito quitarle esas comillas me dicen que con STRREPLACE lo puedo hacer pero es que no me se la sentencia se que tengo que hacer un update y voy UPDATE ANTIGUOS...PERO DE AHI PA ALLA NO SE Q SIGUE
estoy usando fire bird de base de datos y el EMS y programo en delplhi, el arreglo lo hago en el EMS.

[Casimiro Notevi]

¿Ya leiste nuestra guía de estilo?, gracias por tu colaboración.

[Hugoalgave]

uy si que pena hermano se me paso varios puntos por alto que dice ud en la guia de estilo, pero es que he estado deseperado buscando esa solucion aunque no es excusa. gracias y si me pudiera colaborar le agradeceria.

[Hugoalgave]

buenas tarde por favor si pudieran colaborarme tengo una tabla que se llama antiguos y dentro de esa tabla hay un campo que se llama nombre me pasaron un listado pero cuando cargo los nomres a la base de datos mediante el EMS (uso firebird como base de datos) me aparecen con comilla antes es decir ejemplo "francisco pinto perez y necesito quitarle esas comillas me dicen que con la sentencia STRREPLACE lo puedo hacer pero es que no me se la sentencia se que tengo que hacer un update y voy UPDATE ANTIGUOS...PERO DE AHI PA ALLA NO SE Q SIGUE
estoy usando fire bird de base de datos y el EMS y programo en delplhi, el arreglo lo hago en el EMS. de ante mano muchas gracias por su colaboracion

[Casimiro Notevi]

Por favor, o no has leído nuestra guía de estilo... o no la has comprendido. Debes crear un nuevo hilo, en el foro adecuado

Cierro este hilo, si alguien necesita añadir algo al mismo, lo abriré.
O que lo comente a cualquier moderador para que lo haga