Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > Varios
Registrarse FAQ Miembros Calendario Guía de estilo Buscar Temas de Hoy Marcar Foros Como Leídos

Grupo de Teaming del ClubDelphi

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 01-09-2015
deliriun deliriun is offline
Miembro
 
Registrado: ago 2014
Posts: 51
Poder: 10
deliriun Va por buen camino
Question Mostrar un Texto alojado en DropBox

Hola qué tal?

Estoy ingresando al mundo de la programación en Delphi con el IDE de Lazarus y necesito un poco de ayuda por no decir mucha para traducir un código....

Anteriormente programaba en visual basic.net en el cual empleaba un código del usuario de youtube: vbtutorialesabc , excelente por cierto...
El código tenía la función de leer un archivo de texto almacenado en DropBox, una vez hecho eso el contenido era dividido por lineas y en cada linea habían campos... Algo así

DELIRIUN|ABANTO|skillteam2001@gmail.com

Divididos por una barra cada campo representaba un Nombre,Clave,e - mail ...etc
Técnicamente lo mismo que hace una base de datos, sin embargo yo utilizaba DropBox porque me parecía mucho más sencillo que una base de datos común...

Una vez que ya se leía el archivo de Texto, el programa te pedía ingresar en un TextBox (Edit) el primer campo... En este caso DELIRIUN y con ese primer campo ya se hacía la búsqueda y te presentaba los demás campos asignados con ese nombre de usuario...

Espero me haya dejado explicar... el código en vb.net es el siguiente:::


Código:
Imports System.Net
Imports System.IO

Public Class Form1
    'CARGA LA RUTA A LA INFORMACION EN DROPBOX
    Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        Try
            TextBoxURL.Text = My.Computer.FileSystem.ReadAllText(Application.StartupPath & "\URL.txt")
        Catch ex As Exception
        End Try
    End Sub

    Private Sub ButtonBUSCAR_Click(sender As System.Object, e As System.EventArgs) Handles ButtonBUSCAR.Click
        'BUSCA LOS DATOS EN EL ARCHIVO DROPBOX CORRESPONDIENTE 
        Dim URL As String = Nothing
        Dim MISTREAM As Stream = Nothing
        Try
            URL = TextBoxURL.Text
            URL = URL.Replace("dl=0", "raw=1")
            Dim CLIENTE As New WebClient
            MISTREAM = CLIENTE.OpenRead(URL)
        Catch ex As Exception
            MsgBox(ex.Message)
            Me.Close()
        End Try
        ' SI ENCUENTRA LA COINCIDENCIA PRESENTA LOS RESULTADOS
        Dim LECTOR As New StreamReader(MISTREAM)
        Dim ENCONTRADO As Boolean = False
        While LECTOR.Peek >= 0
            Dim LINEA As String = LECTOR.ReadLine().Replace("{}", "")
            Dim DATOS As String() = LINEA.Split("|")
            If DATOS(0) = TextBoxNOMBRE.Text.ToUpper Then
                TextBoxAPELLIDO.Text = DATOS(1)
                TextBoxMAIL.Text = DATOS(2)
                TextBoxTELEFONO.Text = DATOS(3)
                ENCONTRADO = True
                Exit While
            End If
        End While
        ' AVISO SI NO ENCUENTRA LOS DATOS 
        If ENCONTRADO = False Then
            MsgBox("NO EXISTE NINGUN REGISTRO PARA  " & TextBoxNOMBRE.Text)
        End If
        MISTREAM.Close()
    End Sub

    Private Sub Form1_FormClosed(sender As Object, e As System.Windows.Forms.FormClosedEventArgs) Handles Me.FormClosed
        'GUARDA LA ULTIMA URL UTILIZADA
        Try
            My.Computer.FileSystem.WriteAllText(Application.StartupPath & "\URL.txt", TextBoxURL.Text, False)
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
    End Sub
End Class

Por cierto el programa necesita la URL del archivo alojado en DropBox...

Muchas Gracias de antemano
Responder Con Cita
  #2  
Antiguo 01-09-2015
Avatar de Casimiro Notevi
Casimiro Notevi Casimiro Notevi is offline
Moderador
 
Registrado: sep 2004
Ubicación: En algún lugar.
Posts: 32.021
Poder: 10
Casimiro Notevi Tiene un aura espectacularCasimiro Notevi Tiene un aura espectacular
No has dicho qué problema tienes.
Responder Con Cita
  #3  
Antiguo 01-09-2015
Avatar de Ñuño Martínez
Ñuño Martínez Ñuño Martínez is offline
Moderador
 
Registrado: jul 2006
Ubicación: Ciudad Catedral, Españistán
Posts: 6.000
Poder: 25
Ñuño Martínez Tiene un aura espectacularÑuño Martínez Tiene un aura espectacular
Aclaración: Lazarus no es Delphi. Lo digo por esto:
Cita:
Empezado por deliriun Ver Mensaje
Estoy ingresando al mundo de la programación en Delphi con el IDE de Lazarus (...)
Ambos entornos usan un dialecto de Pascal y trabajan de forma muy similar, pero son dialectos ligeramente diferentes. De hecho, la mayoría de las veces no puedes trasladar un proyecto de uno a otro de forma directa sino que es necesario modificarlos.

Respecto a tu consulta, tal como dice Casimiro, nos falta que hagas la pregunta o consulta concreta.
__________________
Proyectos actuales --> Allegro 5 Pascal ¡y Delphi!|MinGRo Game Engine
Responder Con Cita
  #4  
Antiguo 03-09-2015
deliriun deliriun is offline
Miembro
 
Registrado: ago 2014
Posts: 51
Poder: 10
deliriun Va por buen camino
Como obtener un texto y mostrarlo.

Pues en DropBox se pueden mostrar textos:::
https://www.dropbox.com/s/l8dduuytzx1r2tk/CUENTAS.txt
Qué metodo podría usar para que me muestre solo el texto en un Edit ?
Responder Con Cita
  #5  
Antiguo 03-09-2015
Avatar de Casimiro Notevi
Casimiro Notevi Casimiro Notevi is offline
Moderador
 
Registrado: sep 2004
Ubicación: En algún lugar.
Posts: 32.021
Poder: 10
Casimiro Notevi Tiene un aura espectacularCasimiro Notevi Tiene un aura espectacular
Seguimos sin entender lo que preguntas.
Responder Con Cita
  #6  
Antiguo 03-09-2015
deliriun deliriun is offline
Miembro
 
Registrado: ago 2014
Posts: 51
Poder: 10
deliriun Va por buen camino
Mostrar el texto

Simplemente el texto alojado en la URL: https://www.dropbox.com/s/l8dduuytzx1r2tk/CUENTAS.txt
Necesito mostrarlo en un Edit.
Responder Con Cita
  #7  
Antiguo 04-09-2015
Avatar de Casimiro Notevi
Casimiro Notevi Casimiro Notevi is offline
Moderador
 
Registrado: sep 2004
Ubicación: En algún lugar.
Posts: 32.021
Poder: 10
Casimiro Notevi Tiene un aura espectacularCasimiro Notevi Tiene un aura espectacular
Pues lees el texto y lo muestras en el edit.
No sé cómo lo lees, supongo que cuando lo leas lo almacenarás en una variable. Ejemplo: cTextoLeido
Pues:
Código Delphi [-]
edit1.text = cTextoLeido
Responder Con Cita
  #8  
Antiguo 04-09-2015
deliriun deliriun is offline
Miembro
 
Registrado: ago 2014
Posts: 51
Poder: 10
deliriun Va por buen camino
Cómo lo podría leer ese texto?
Responder Con Cita
  #9  
Antiguo 04-09-2015
Avatar de Casimiro Notevi
Casimiro Notevi Casimiro Notevi is offline
Moderador
 
Registrado: sep 2004
Ubicación: En algún lugar.
Posts: 32.021
Poder: 10
Casimiro Notevi Tiene un aura espectacularCasimiro Notevi Tiene un aura espectacular
Creía que era eso lo que tú has dicho que se puede hacer.
Responder Con Cita
  #10  
Antiguo 04-09-2015
deliriun deliriun is offline
Miembro
 
Registrado: ago 2014
Posts: 51
Poder: 10
deliriun Va por buen camino
Lo puedo hacer en visual basic... pero necesito ayuda para Delphi
Responder Con Cita
  #11  
Antiguo 04-09-2015
Avatar de Casimiro Notevi
Casimiro Notevi Casimiro Notevi is offline
Moderador
 
Registrado: sep 2004
Ubicación: En algún lugar.
Posts: 32.021
Poder: 10
Casimiro Notevi Tiene un aura espectacularCasimiro Notevi Tiene un aura espectacular
Pues ve haciéndolo y pregunta las dudas que te vayan surgiendo.
Responder Con Cita
Respuesta


Herramientas Buscar en Tema
Buscar en Tema:

Búsqueda Avanzada
Desplegado

Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro

Temas Similares
Tema Autor Foro Respuestas Último mensaje
Dropbox MAXIUM PHP 2 03-01-2013 11:45:04
Base de datos servidor mysql alojado en la web beteta Conexión con bases de datos 5 15-07-2012 17:01:28
Consulta sql alojado en hosting. zeta2 MySQL 6 20-12-2010 14:32:16
Como leer un archivo de Texto alojado en un sitio web Bertifox2008 Internet 9 18-04-2009 02:07:56
¿Como ejecuto remotamente un ejecutable alojado en una web? dim Internet 7 20-07-2004 10:37:58


La franja horaria es GMT +2. Ahora son las 11:40:21.


Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi
Copyright 1996-2007 Club Delphi