Claro , solo hice algo sencillo,
Use un componente Richedit
y busque dentro de el la cadena que busco , si la encuentro el documento es valido , caso contrario no
Código:
procedure TFIng_Fact.Validar_documentoClick(Sender: TObject);
Var
Encontrado : LongInt;
Desde, Hasta : Integer;
Cad : String;
begin
Cad:='El Documento que usted ha consultado, se encuentra autorizado por el SRI';
//Ahora la busqueda
If RichEdit1.SelLength <> 0 then
Desde := RichEdit1.SelStart + RichEdit1.SelLength
Else
Desde := 0;
Hasta := Length(RichEdit1.Text) - Desde;
Encontrado := RichEdit1.FindText(Cad, Desde, Hasta, [stMatchCase]);
If Encontrado <> -1 then
// ShowMessage('La palabra se encontro en : '+IntToStr(Encontrado))
Showmessage('Documento autorizado')
Else
ShowMessage('Documento no autorizado');
end;
Lo ideal seria tomar los valores que retorna en html y convertirlos en campos en delphi , pero eso aun no se como hacerlo