Ayuda conectar form con IdHTTP

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

[AndresSalazer]

Empezado por Neftali

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

Un saludo.

No veo ningún Link ..

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

Perdón...

Obtener el contenido HTML de una página aweb

[AndresSalazer]

Empezado por Neftali

Perdón...

Obtener el contenido HTML de una página aweb

Gracias lo voy a revisar a ver como puedo implementarlo aunque estaba leyendo que puedo usar Tags para identificar y validar!

[AndresSalazer]

Empezado por Neftali

Perdón...

Obtener el contenido HTML de una página aweb

Bueno no me sirvio eso es lo mismo que estaba haciendo yo con el MEMO , pero se agradece el aporte no eh podido terminar mi proyecto saludos gracias a todos y en Especial a : [Al Gonzales] que luego de preguntarme mi vida me borro de Skype sin darme una respuesta

Gracias neftali por querer ayudarme , !

[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 = 'http://www.clubdelphi.com/foros/showpost.php?p=462058&postcount=4';
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