Foros Club Delphi - 664 ejemplos sencillos de código de Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)

- Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)

- - 664 ejemplos sencillos de código de Delphi (https://www.clubdelphi.com/foros/showthread.php?t=72780)

664 ejemplos sencillos de código de Delphi

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.

¡¡¡ Muy interesante !!! :)

Cita:

Empezado por rrf (Mensaje 393219)

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

Muchos no, casi todos ;)

Gracias por el aporte

Saludos

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

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/

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

Yo he utilzado HTTrack Website Copier

Un Saludo.

excelente aportazo amigo

Cita:

Empezado por Casimiro Notevi (Mensaje 393380)

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

Cita:

Empezado por roman (Mensaje 425362)

O un poco más específico ;)

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

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

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

Cita:

Empezado por Hugoalgave (Mensaje 427903)

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:

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. ;)

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.

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

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.

sentencia strreplace

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

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 :)