Ayuda conectar form con IdHTTP

[AndresSalazer]

Hola a todos estoy haciendo un trabajo para la facultad y bueno hace poco empezamos con delphi estuve leyendo muchos cursos y tutoriales que hay por internet y nos han mandado a hacer un registro del micro procesador usando el componente WMI , para esto en una casilla de edit.texto obtenemos el " ID Unico del Procesador " hasta aquí vamos perfecto por que esto lo eh terminado.

Me acabo de Bajar Indy y estoy haciendo proyectos tras proyectos sin lograr nada agradecería un poco de ayuda .. :/ gracias!

Pero ahora necesitamos crear a partir de este Único form un archivo en una web cualquiera por ejemplo h t t p :// w w w .clubdelphi.com//miarchivo.html/

El form debe contener una casilla Memo ( Donde se supone que se escribe el código ) o registre el código del ID del procesador puesto en HTML .

Y que mi form lea esta dirección si dentro del archivo URL ( h t t p :// w w w .clubdelphi.com//miarchivo.html/ ) -> esta escrito el ID del procesador que deje continuar la aplicación.

En el caso de que no este escrito que no la deje continuar y salga un " Mensaje de Error "

Me podrían ayudar con esta tarea ? Se los agradecería ..

[Casimiro Notevi]

Bienvenido a clubdelphi, ¿ya leiste nuestra guía de estilo?, gracias por tu colaboración

[AndresSalazer]

Empezado por Casimiro Notevi

Bienvenido a clubdelphi, ¿ya leiste nuestra guía de estilo[/url]?, gracias por tu colaboración

Hola gracias por la bienvenida en un rato la leo disculpa ! saludos Gracias por tu colaboración !! .

Empezado por Neftali

Hola.



¿Qué componente WMI utilizas?
Hasta aquí salvo la pregunta,más o menos entiendo lo que te han mandado y lo que has hecho.



Aquí ya me he perdido.
¿No estarás hablando de Intraweb, en lugar de las Indy?
¿Puedes explicar lo que necesitas porque no se entiende lo que necesitas?

Intenta dedicarle un poco de tiempo a explicar bien, lo que debes hacer.

Revisa la Guia de estilo[/url]. Bienvenido a los foros.

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

Bueno en base a este componente y viendo un poco el source En un Form , hice un pequeño archivo que reconoce el procesador ID nada más que eso .. en el form escribo lo siguiente :

Hasta aquí ya va perfecto porque mediante un Edit . Text puedo obtener el ID del procesador de mi maquina o de cualquiera digamos y funciona muy bien de hecho solamente eso necesitaba obtener en esta ocasión y lo pude lograr investigando un poco y hechando manos..

Este es el codigo que identifica el ID del CPU (Procesador ID) con el componente correspondiente : GLibWMI

Código Delphi [-]
procedure TForm1.FormCreate(Sender: TObject);
var
  dd:TProcessorInfo;
  ddProps:TProcessorProperties;
  InKB, InMB, InGB: Double;
  str:string;
begin
dd := ProcessorInfo1;
ddProps := dd.ProcessorProperties;
edtProcessorID.Text := ddProps.ProcessorId;
end;

Ejemplo : oi40.tinypic.com/2mms5lf.jpg

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

En este caso leyendo un poco más y adentrandome e investigando logre colocar en un MEMO , y usando el Componente de Indy (IdHTTP1)

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var HTTPCLIENT1: TIdHTTP;
begin
  try
   try
     HTTPCLIENT1 := TIdHTTP.Create(nil);
     Memo1.Clear;
     with HTTPCLIENT1 do
     begin
          HandleRedirects := True;
          Request.UserAgent   := 'Mozilla/5.0 (Windows NT 6.1; WOW64) AppleWebKit/537.31 (KHTML, like Gecko) Chrome/26.0.1410.64 Safari/537.31';
          Memo1.Text := Get('Mi pagina donde tengo los HWID cargados');
          Caption := ResponseText;
     end;
   except
     On e: Exception do
     begin
          Memo1.Lines.Add('Exception: '+e.Message);
     end;
   end;
  finally
     HTTPCLIENT1.Free;
  end;
end;

Ejemplo : oi43.tinypic.com/nzoom1.jpg

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

Pero ahora 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.

Agradecería respuestas estoy bastante apurado con esto !!!

[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

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

Hola.

Empezado por AndresSalazer

nos han mandado a hacer un registro del micro procesador usando el componente WMI , para esto en una casilla de edit.texto obtenemos el " ID Unico del Procesador " hasta aquí vamos perfecto por que esto lo eh terminado.

¿Qué componente WMI utilizas?
Hasta aquí salvo la pregunta,más o menos entiendo lo que te han mandado y lo que has hecho.

Empezado por AndresSalazer

Me acabo de Bajar Indy y estoy haciendo proyectos tras proyectos sin lograr nada agradecería un poco de ayuda .. :/ gracias!
Pero ahora necesitamos crear a partir de este Único form un archivo en una web cualquiera por ejemplo h t t p :// w w w .clubdelphi.com//miarchivo.html/
El form debe contener una casilla Memo ( Donde se supone que se escribe el código ) o registre el código del ID del procesador puesto en HTML .
Y que mi form lea esta dirección si dentro del archivo URL ( h t t p :// w w w .clubdelphi.com//miarchivo.html/ ) -> esta escrito el ID del procesador que deje continuar la aplicación.
En el caso de que no este escrito que no la deje continuar y salga un " Mensaje de Error "

Aquí ya me he perdido.
¿No estarás hablando de Intraweb, en lugar de las Indy?
¿Puedes explicar lo que necesitas porque no se entiende lo que necesitas?

Intenta dedicarle un poco de tiempo a explicar bien, lo que debes hacer.

Revisa la Guia de estilo. Bienvenido a los foros.