Ayuda conectar form con IdHTTP

[AndresSalazer]

Empezado por ecfisa

Hola.

Si no te entiendo mal habías logrado cargar la lista de HWIDs al memo, por lo que prácticamente ya lo tenías solucionado. Solo te faltó revisar si el el HWID existía en la lista obtenida.

Para ejemplificar, uso la dirección de tu mensaje número #4 y algunas palabras de su contenido:

Código Delphi [-]
...
uses  IdHTTP;

(* función que devolvería ProcessorId *)
function  GetHWID: string;
begin
  Result := 'estoy bastante apurado con esto !!!';
end;


function TForm1.TryConnect(const aURL: string; TS: TStrings): Boolean;
begin
   Result := True;
   with TidHTTP.Create(nil) do
   try
    try
      HandleRedirects := True;
      TS.Text := Get(aURL);
      Caption := ResponseText
    except
      on E: Exception do
      begin
        MessageBox(Handle, PChar(E.Message),'Error',MB_ICONERROR+MB_OK);
        Result := False
      end
    end;
  finally
    Free
  end;
end;

procedure TForm1.btnVerificarClick(Sender: TObject);
const
  URL_MSG = 'el url del post4 no me permite poner links';
var
  TS: TStrings;
begin
  TS := TStringList.Create;
  try
    if TryConnect(URL_MSG, TS) then
      if Pos(GetHWID, TS.Text) = 0 then
        raise Exception.Create('Error: HWID no identificado');
    ShowMessage('Form2 continua -> "Abre un Form"');
    ...
  finally
    TS.Free;
  end;
end;

Si cambias algo del texto que devuelve la función GetHWID no será encontrado y lanzará la excepción.

Saludos

Hola muchas gracias por tomarte tu tiempo y poder explicar y/o entender que era lo que trataba de explicar y lo cual no encontraba soluciones de manera no , satisfactoria ayer era la entrega de Proyectos y no pude terminar el mío me tuve que integrar con un grupo que hicieron otro proyecto ..

Bueno en este caso revisando un poco el código que posteastes al momento de implementarlo y situar nuevamente en lo que es el code , me lanza algunos errores eh intentado cambiar de lugar algunas cosas y modificarlas pero aún así no logro terminar de declarar algunas funciones para que pueda compilar sin errores saludos y gracias por tu cooperación !

Tras estar un rato mirandolo recibo un par de errores que me tienen loco si estan declaradas las strings porque me da estos errores ?

[Error] Unit1.pas(40): Undeclared identifier: 'TryConnect'
[Error] Unit1.pas(40): '=' expected but ';' found
[Error] Unit1.pas(40): '=' expected but ')' found
[Error] Unit1.pas(41): Missing operator or semicolon
[Error] Unit1.pas(42): Undeclared identifier: 'Result'
[Error] Unit1.pas(48): Undeclared identifier: 'Caption'
[Error] Unit1.pas(52): Undeclared identifier: 'Handle'
[Error] Unit1.pas(108): Undeclared identifier: 'TryConnect'
[Fatal Error] Project1.dpr(5): Could not compile used unit 'Unit1.pas'

Código Delphi [-]
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, CWMIBase, CProcessorInfo, IdBaseComponent,
  IdComponent, IdTCPConnection, IdTCPClient, IdHTTP;

type
   TGetValueFunction = Function: String of object;
   TForm1 = class(TForm)
    ProcessorInfo1: TProcessorInfo;
    edtProcessorID: TEdit;
    Label1: TLabel;
    Memo1: TMemo;
    IdHTTP1: TIdHTTP;
    Button1: TButton;
    btnVerificar: TButton;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure btnVerificarClick(Sender: TObject);

  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;


implementation

function  GetHWID: string;
begin
  Result := 'Probando a ver que pasará ..';
end;
function TForm1.TryConnect(const aURL: string; TS: TStrings): Boolean;
begin
   Result := True;
   with TidHTTP.Create(nil) do
   try
    try
      HandleRedirects := True;
      TS.Text := Get(aURL);
      Caption := ResponseText
    except
      on E: Exception do
      begin
        MessageBox(Handle, PChar(E.Message),'Error',MB_ICONERROR+MB_OK);
        Result := False
      end
    end;
  finally
    Free
  end;
end;

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
var
  dd:TProcessorInfo;
  ddProps:TProcessorProperties;
  InKB, InMB, InGBouble;
  str:string;
begin
dd := ProcessorInfo1;
ddProps := dd.ProcessorProperties;
edtProcessorID.Text := ddProps.ProcessorId;
end;


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('http://hdwid.foroargentina.net/h1-hdwid');
end;
except
On e: Exception do
begin
Memo1.Lines.Add('Exception: '+e.Message);
end;
end;
finally
HTTPCLIENT1.Free;
end;
end;

procedure TForm1.btnVerificarClick(Sender: TObject);
const
  URL_MSG = 'http://hdwid.foroargentina.net/h1-hdwid';
var
  TS: TStrings;
begin
  TS := TStringList.Create;
  try
    if TryConnect(URL_MSG, TS) then
      if Pos(GetHWID, TS.Text) = 0 then
        raise Exception.Create('Error: HWID no identificado');
    ShowMessage('Form2 continua -> "Abre un Form"');
  finally
    TS.Free;
  end;
end;

end.

[ecfisa]

Empezado por AndresSalazer

Tras estar un rato mirandolo recibo un par de errores que me tienen loco si estan declaradas las strings porque me da estos errores ?
..

Hola Andres.

En principio te faltó declarar el método TryConnect. Por lo que veo, en tu código sólo está definido, los demás avisos se desprenden del mismo orígen.

Te adjunto los fuentes del ejemplo tál como está en mi mensaje anterior y funcionando, para que lo puedas revisar con tranquilidad.

Cualquier inconveniente no dudes en comunicarlo.

Saludos.

[AndresSalazer]

Empezado por ecfisa

Hola Andres.

En principio te faltó declarar el método TryConnect. Por lo que veo, en tu código sólo está definido, los demás avisos se desprenden del mismo orígen.

Te adjunto los fuentes del ejemplo tál como está en mi mensaje anterior y funcionando, para que lo puedas revisar con tranquilidad.

Cualquier inconveniente no dudes en comunicarlo.

Saludos.

Muchas gracias ecfisa no había declarado el TryConnect , ahora si compila sin errores lo único que me queda averiguar es como hacer que, Chequee los HWID de la página con la que tiene la maquina para que continue al form2 ya que puedo añadirle una Línea arriba Uses : unit2 .

[AndresSalazer]

Empezado por AndresSalazer

Muchas gracias ecfisa no había declarado el TryConnect , ahora si compila sin errores lo único que me queda averiguar es como hacer que, Chequee los HWID de la página con la que tiene la maquina para que continue al form2 ya que puedo añadirle una Línea arriba Uses : unit2 .

Hola ecfisa como estas te agradezco porque me hayas respondido mis preguntas en el thread que inicie y hayas podido aclarar todas las dudas y responder lo que las otras personas no pudieron o no quisieron ayudarme!

Quería antes que nada preguntarte si tenes Skype o Messenger o Facebook , ya que como estoy en mi primer año lo que hice en El formulario fue a base de tutoriales y guías sin tener el conocimiento que requiero para programar como nos cambiaron los lenguajes muchas veces de vB a C# de C# a Pascal y así , tengo una ensala de fruta en la cabeza y no me deja pensar bien y no me puedo explicar bien o entenderme a la hora de hacer que esto funcione.

Mi pequeña duda a todo esto es ya declarado el TryConnect y compila genial , lo unico que me resta es que siga al siguiente formulario ya que no "Chequea" el HWID en la página o yo no lo hago que compruebe no lo entiendo bien , pero me ayudarías con este temita ? serían un par de minutitos nada más.

Saludos y muchisimas gracias por todo!

[ecfisa]

Hola Andres.

Te pongo el ejemplo algo modificado con el agregado de un TListBox y un TEdit.

Lo leído de la página, además de almacenarlo temporalmente en TStrings(donde se busca el ProcessorId), se muestra en un TListBox para mayor claridad. Esta vez hice referencia a una página que tiene logarítmos del 1 al 100. Desde el edit, ingresa cualquier logarítmo que cumpla la condición vg: 1,397940 - 1,531479 - 1,579784 - etc. Y también otros que no lo hagan: 2,079181 - 2,017609 - 2,69897 - etc.

En el segundo caso mostrará el mensaje de error y en el primero permitirá la creación y visualización del form.

Si sigue dándote problemas sería muy útil conocer la dirección de la página contra la que efectuas la lectura y que pusieras algún valor HWID que hayas usado como prueba. De ese modo sería mas fácil hacerte un ejemplo sobre el caso específico.

Saludos.

[AndresSalazer]

Empezado por ecfisa

Hola Andres.

Te pongo el ejemplo algo modificado con el agregado de un TListBox y un TEdit.

Lo leído de la página, además de almacenarlo temporalmente en TStrings(donde se busca el ProcessorId), se muestra en un TListBox para mayor claridad. Esta vez hice referencia a una página que tiene logarítmos del 1 al 100. Desde el edit, ingresa cualquier logarítmo que cumpla la condición vg: 1,397940 - 1,531479 - 1,579784 - etc. Y también otros que no lo hagan: 2,079181 - 2,017609 - 2,69897 - etc.

En el segundo caso mostrará el mensaje de error y en el primero permitirá la creación y visualización del form.

Si sigue dándote problemas sería muy útil conocer la dirección de la página contra la que efectuas la lectura y que pusieras algún valor HWID que hayas usado como prueba. De ese modo sería mas fácil hacerte un ejemplo sobre el caso específico.

Saludos.

Muchisimas gracias ahora mismo voy a descargar el adjunto y probar a ver que pasa , el Link a donde hago referencia es el siguiente :

http://hdwid.foroargentina.net/h1-hdwid

Esa url es creada por un foro gratuito que me permite crear un Modulo .HTML donde al editar ese modulo asigno ahí los HWID cargados , y de esta manera desde el form que me da mi HWID lo lee y verifica y caso de que este en la página , me permite continuar digamos al Form2 , y en el caso de que no este en la página no me permitiría continuar ahora chequeo todo nuevamente muchisimas gracias.

Empezado por Casimiro Notevi

Nadie tiene ninguna obligación de responder nada, ninguno cobra por perder su tiempo

Disculpame pero en tal caso siendo moderador no me tendrías que dar esa respuesta estuve mirando muchos Threads y posts como para hacerme ideas yo siempre agradezco la colaboración de los users que ayudan a otros pero en este caso vos estarías haciendo Spamm, no es perder tiempo esto , ya que si se logra reparar quedaría un Ejemplo a futuro para una persona que venga con este mismo problema y el caso este resuelto . saludos gracias ...

Más perfecto que esto imposible!!



Pero en este caso , yo necesitaría que sea un ID por maquina , ¿ me explico ? porque yo en el edit.text puedo poner cualquier ID y continua , ahora le voy a agregar la lectura del processorID , para que me arroje el HWID de esta maquina , si lo pongo sobre la casilla de texto y verifico al "chasquear el botón" como esta cargado en la página me va a permitir continuar pero si yo en la "página edito un numero por decirte (178BFBFF00040F33) y le saco 2 Numeros (178BFBFF00040F) ("FALTA 33") me tendría que dar error veamos..

Perfecto ecfisa muchisimas gracias por todo funciona como quería !!

[ecfisa]

Hola Andres.

Tengo que discrepar con vos, realmente no puedo imaginar a Casimiro haciendo spam por estos lares... El es uno de los que mas trabaja y derrocha su valioso tiempo para el foro.

Es que tu comentario: "... responder lo que las otras personas no pudieron o no quisieron ayudarme!" (aunque con seguridad sin ánimo de molestar a nadie) soslaya que hubo quién no quiso ayudarte. Mirá, llevo años trabajando y compartiendo con los que respondieron en este hilo y puedo asegurarte que no es así.

Si no han podido ayudarte es por que sus actividades personales en este momento no se lo permiten, pero bajo ningún punto de vista por falta de voluntad ¡y mucho menos por falta de conocimientos para hacerlo!

Es más, de haber podído, estoy convencido que cualquiera de ellos te habría dado sugerencias mas eficientes y elegantes que la mía.

Volviendo a tu consulta, de donde provenga el HWID es irrelevante, basta que reemplaces el valor del Edit por el valor que devuelve la función que desarrollo Neftalí. Valor que supongo será diferente para cada equipo.

Saludos.

[AndresSalazer]

Empezado por ecfisa

Hola Andres.

Tengo que discrepar con vos, realmente no puedo imaginar a Casimiro haciendo spam por estos lares... El es uno de los que mas trabaja y derrocha su valioso tiempo para el foro.

Es que tu comentario: "... responder lo que las otras personas no pudieron o no quisieron ayudarme!" (aunque con seguridad sin ánimo de molestar a nadie) soslaya que hubo quién no quiso ayudarte. Mirá, llevo años trabajando y compartiendo con los que respondieron en este hilo y puedo asegurarte que no es así.

Si no han podido ayudarte es por que sus actividades personales en este momento no se lo permiten, pero bajo ningún punto de vista por falta de voluntad ¡y mucho menos por falta de conocimientos para hacerlo!

Es más, de haber podído, estoy convencido que cualquiera de ellos te habrían dado sugerencias mas eficientes y elegantes que la mía.

Volviendo a tu consulta, de donde provenga el HWID es irrelevante, basta que reemplaces el valor del Edit por el valor que devuelve la función que desarrollo Neftalí. Valor que supongo será diferente para cada equipo.

Saludos.

Si pero no viene de ahí el tema comprendo que no todos tenemos tiempo para estar sentados en la computadora.

Y que la mayoria esta haciendo la rutina diaria de trabajar y encargarse de otros Proyectos personales .
Que algunos no tienen ese tiempo necesario pero me molesto la forma en que lo dijo al igual que Al Gonzales preguntandome sobre mi vida privada para eliminarme Luego y decirme no puedo chau , más facil hubiese sido no preguntarme nada y no aceptarme y decirme la verdad no te puedo ayudar lee mas guías hubiera bastado con solo eso, a cosas así me refiero nada más!

Yo que recien me inicio con esto y soy medio de Piedra por más que agarre tutoriales no es lo mismo que me enseñan en la UNI hay muchas cosas que no comprendo y si hay un lugar donde se pueden debatir temas para poder aprender y tener el minímo conocimiento o ayuda de otros siempre es bienvenida para poder avanzar y una vez obtenido eso seguir avanzando acorde a lo que uno tiene y poder aprender más y más! ..

Me surgió otra cuestion mi PC reconoce este HWID código unico de procesadorID "178BFBFF00040F33", pero ahora borrando desde el archivo HTML "33" y verificando la conexión da error perfecto , pero si yo pongo otro HWID va a continuar la aplicación como podría hacer para que no continue y solo sea un HWID por maquina ?

[Casimiro Notevi]

Empezado por AndresSalazer

Disculpame pero en tal caso siendo moderador no me tendrías que dar esa respuesta estuve mirando muchos Threads y posts como para hacerme ideas yo siempre agradezco la colaboración de los users que ayudan a otros pero en este caso vos estarías haciendo Spamm, no es perder tiempo esto , ya que si se logra reparar quedaría un Ejemplo a futuro para una persona que venga con este mismo problema y el caso este resuelto . saludos gracias ...

Estimado Andrés, deberías mirarte al espejo y analizar tu comportamiento. Comprenderías entonces las cosas que te ocurren con los demás.
Buena suerte en la vida.

[Casimiro Notevi]

Empezado por AndresSalazer

Hola ecfisa como estas te agradezco porque me hayas respondido mis preguntas en el thread que inicie y hayas podido aclarar todas las dudas y responder lo que las otras personas no pudieron o no quisieron ayudarme!

Nadie tiene ninguna obligación de responder nada, ninguno cobra por perder su tiempo