Ayuda conectar form con IdHTTP

[Neftali [Germán.Estévez]]

Empezado por AndresSalazer

Hola como estas , un componente que descargue de tu Web o Blog no se si serás el mismo Neftali pero allí habia uno que desarrollo unas herramientas de la puta madre .. el componente descargado es llamado : GLibWMI_1.8beta_all

La verdad es que sí tienen buena pinta... ;-)

Empezado por AndresSalazer

...aquí viene lo siguiente logre hacer que mi Form lea desde un sitio foro " digamos donde almacenare las HWID que quiero que lea "

El problema, y es lo que intento explicarte, es que no dejas claro "lo que necesitas hacer".
Me estás explicando lo que haces (que no entiendo), pero no lo que necesitas hacer.

Empezado por AndresSalazer

...lo que necesito es que al hacer click en el boton , identifique si esta cargado el HWID en la página y si esta que me permita acceder a un Form2 , que puedo agregar o bien que al hacer click en el boton identifique si el HWID de la pagina es el de mi maquina y me permita continuar con la aplicación y en caso de que no este cargado en la página que automaticamente me suelte un error.

De verdad, que leo la frase y no lo entiendo.
No entiendo qué tiene que ver el componente de las Indy es esto.
¿Por qué necesitas acceder a internet para saber temas de hardware?
¿Quieres que al acceder a una página web te de el identificador del equipo?
¿?¿?¿

Empezado por AndresSalazer

Como veran en la imagen lee las HWID cargadas pero necesito hacer otra cosa ahora :P

¿Qué estás leyendo ahí? ¿Un fichero de texto?
¿Esas HWID de las que hablas de dónde salen? ¿Dónde están almacenadas?

[AndresSalazer]

Empezado por Neftali

La verdad es que sí tienen buena pinta... ;-)



El problema, y es lo que intento explicarte, es que no dejas claro "lo que necesitas hacer".
Me estás explicando lo que haces (que no entiendo), pero no lo que necesitas hacer.



De verdad, que leo la frase y no lo entiendo.
No entiendo qué tiene que ver el componente de las Indy es esto.
¿Por qué necesitas acceder a internet para saber temas de hardware?
¿Quieres que al acceder a una página web te de el identificador del equipo?
¿?¿?¿

¿Qué estás leyendo ahí? ¿Un fichero de texto?
¿Esas HWID de las que hablas de dónde salen? ¿Dónde están almacenadas?

Estoy leyendo una url externa al form creado , lo que hace que lea los HWIDs cargados en esa pagina , esas HWIds que salen son las otras computadoras del HOGAR con las que hice pruebas con una aplicación de un amigo que también hizo la misma aplicación pero en diferente lenguaje .

No exactamente me detallare paso por paso , antes que nada quiero agradecerte por tu colaboración y las respuestas !!!

Ejemplo : Yo tengo un archivo el cual al abrirlo resulta ser un form con un edit , text y un buton

Bien hasta aqui vamos genial ahora al momento yo de " Verificar si ese archivo / programa " Haciendo Click en el boton me diga si esta validado para mi PC el cual hace que lea el Link de la pagina que agregue por Indy IdHTTP y verifique si el serial cargado en esa web es el que tiene este programa en su Edit , Texto. ( EN el caso de que sea así que me permita continuar la operación ) ejemplo puedo agregar un form 2 y que al decir que esta verificado continue al form 2 , en el caso de que no este cargado que me de un mensaje de error ..

Un ejemplo rapido que voy a hacer : un amigo hizo algo similar pero en vB 2010 Express - a todos nos toco distinto tipo de lenguajes..

Quizás no explique muy bien o no sirva para explicar en estos casos muchas veces me trabo con el tema de dar explicaciones no es mi fuerte , pero dejare algo mas detallado lo cual servirá como mi apoyo de explicación es un diseño similar a mi trabajo que me hizo un amigo en vB2010 que también conecta con el foro gratuito que cree para que lea las HWIDs ,

Ejemplo de lo que quiero hacer video Youtube  : 
youtube.com/watch?v=g0R7cXQ_4-8

[AndresSalazer]

Bueno eh conseguido el codigo de mi amigo y lo que me dio es esto me dijo que lo tradujera pero no entiendo mucho las syntaxis de vB para pasarlo a Delphi alguna mano ?

Aclaro la etiqueta no es código DELPHi esta programado en vB esto y necesitaría pasarlo a Delphi para que me funcione lo que intento hacer u.U !!

Código Delphi [-]
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs)
        txthwid.Text = GetHWID()
        Me.AcceptButton = btnconnect
    End Sub

    Function GetHWID()
        Dim mc As New ManagementClass("win32_processor")
        Dim moc As ManagementObjectCollection = mc.GetInstances
        For Each mo As ManagementObject In moc
            If cpuInfo = "" Then
                cpuInfo = mo.Properties("processorID").Value.ToString
                Exit For
            End If
        Next
        Return cpuInfo
    End Function

    Private Sub btnConnect_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnConnect.Click
        Dim Request As System.Net.HttpWebRequest = System.Net.HttpWebRequest.Create("TU LINK")
        Dim Response As System.Net.HttpWebResponse = Request.GetResponse()
        Dim SR As System.IO.StreamReader = New System.IO.StreamReader(Response.GetResponseStream)
        Dim HWIDAdded As String = SR.ReadToEnd
        Dim ThisHWID As String = GetHWID()
        If HWIDAdded.Contains(ThisHWID) Then
            Form2.Show()
            Me.Hide()
        Else
            Interaction.MsgBox("Not Licensed Yet.. @Contact your support", MsgBoxStyle.Critical, "Obtain your License")
        End If
    End Sub

    Private Sub Form1_Load_2(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        txtHWID.Text = GetHWID()
        Me.AcceptButton = btnconnect
    End Sub

[Casimiro Notevi]

¿En qué necesitas ayuda exactamente para pasarlo a delphi?, ¿qué parte no entiendes?

[AndresSalazer]

Empezado por Casimiro Notevi

¿En qué necesitas ayuda exactamente para pasarlo a delphi?, ¿qué parte no entiendes?

Es que generalmente me estoy inicializando en lo que es programación no terminamos el primer año y ya nos estan matando con diferentes lenguajes nos dan apuntes y ejercicios pero relativamente no aprendemos del todo un lenguaje como para poder continuar con otro anteriormente tuvimos que presentar monografías en C++ y ahora salen con esta payasada no se que hacer!

No entiendo , " No comprendo la sintaxis de vB " como para traducirla a pascal estuve leyendo y orientandome en codigos encontrados en la web referentes o ejemplos pero no logro distinguir al momento de pasarlos o comprender como se orientan cada uno.

Yo necesitaría traducir " digamos ese código para que mi " ( Programa funcione ) " o bien hacer lo anterior a ese post .. >_<

Gracias por tu respuesta y/o colaboración son apreciadas !

[[Al González]]

¿Cuál es el objetivo, Andrés? ¿Que tu programa verifique si en cierta página aparece cierto valor y, dependiendo de ello, que permita continuar o que se cierre?

Empezado por AndresSalazer

Es que generalmente me estoy inicializando en lo que es programación no terminamos el primer año y ya nos estan matando con diferentes lenguajes nos dan apuntes y ejercicios pero relativamente no aprendemos del todo un lenguaje como para poder continuar con otro [...]

Sólo por curiosidad, ¿qué escuela es y qué carrera estudias?

Con un poco más de calma (y comas) se te comprendería mejor, en buen plan.

[AndresSalazer]

Empezado por Al González

¿Cuál es el objetivo, Andrés?

¿Que tu programa verifique si en cierta página aparece cierto valor y, dependiendo de ello, que permita continuar o que se cierre?

Sólo por curiosidad, ¿qué escuela es y qué carrera estudias?

Con un poco más de calma (y comas) se te comprendería mejor, en buen plan.

Estudio en la UNLAM , la carrera es : Ingeniería en Informática , es mi primer año ..

Exactamente , eso ._. No logro entender que es lo que hizo mi compañero en vB porque segun todas las posibles traducciones que encontre tuve que Moldearme a viejos componentes de Pascal para poder sacar el Procesador ID primero haciendolo funcionar en Delphi6 y Pasandolo a Delphi7 y ahora , Luego tuve que usar un componente de Indy10 Para pascal y hacer la conexión IdHTTP para que lea en un Memo el " URL " ahora lo que necesito es lo siguiente :

" Que al apretar el botón " Me diga si esta validado o no , ejemplo ya esta hecha la conexión al servidor IdHTTP ahora solo queda verificar que sea cierto si esta el HWID cargado tiene que continuar a otro form que lo puedo agregar arriba y si no esta el HWID en el servidor que directamente salga un error!!

Lo que quiero hacer es que , al momento de "Chaskear el boton" me diga si el hwid cargado en la página "esta" ejemplo ,

Si esta el HWID cargado en la página que continue abriendo un Form2 continua -> "Abre un Form" ,

Si no esta cargado el HWID en la página que salga un "MsgBox Error"

[Neftali [Germán.Estévez]]

Revisa este link, a ver si es lo que necesitas...
No estoy seguro de que sea eso.

Un saludo.