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