Manual para integrar el Índice IBP en aplicaciones de escritorio (Delphi)
Escrito por Germán Estévez http://neftali.clubdelphi.com/
Escrito por Germán Estévez http://neftali.clubdelphi.com/
Se trata de una clase basada en la clase TThread (multihilo) para que la aplicación principal que la llama no quede bloqueada mientras hace la consulta. Está desarroolada en Delphi 6, aunque funciona perfectamente en versiones posteriores (hasta XE). Usa el componente TidHTTP de las indy para comunicarse con la página.
La llamada desde un programa Delphi sería así:
//----------------------------------------------------------------------------
var
th: TWebThread;
begin
// Crear el Thread (path del fichero, y componente WebBrowse para visualizar el resultado)
th := TWebThread.Create(Self.TrackPath, wbIBPIndex);
// Asigna el evento que recogerá la información cuando acabe
th.OnTerminate := TerminateThread;
// ponerlo en marcha
th.Resume;
end;
//----------------------------------------------------------------------------
El evento OnTerminate recoge los Datos del Thread:
//----------------------------------------------------------------------------
var
TS: TStrings;
th: TWebThread;
path: string;
begin
// Acceder a los datos
th := TWebThread(Sender);
// Navegar al resultado con el WebBrowser
wbIBPIndex.Navigate(th.URLNavigate);
// Terminar
th.Terminate;
//----------------------------------------------------------------------------
//----------------------------------------------------------------------------
var
th: TWebThread;
begin
// Crear el Thread (path del fichero, y componente WebBrowse para visualizar el resultado)
th := TWebThread.Create(Self.TrackPath, wbIBPIndex);
// Asigna el evento que recogerá la información cuando acabe
th.OnTerminate := TerminateThread;
// ponerlo en marcha
th.Resume;
end;
//----------------------------------------------------------------------------
El evento OnTerminate recoge los Datos del Thread:
//----------------------------------------------------------------------------
var
TS: TStrings;
th: TWebThread;
path: string;
begin
// Acceder a los datos
th := TWebThread(Sender);
// Navegar al resultado con el WebBrowser
wbIBPIndex.Navigate(th.URLNavigate);
// Terminar
th.Terminate;
//----------------------------------------------------------------------------
