ActiveDelphi

[joscru01]

estou usando o ambiente de homologação do sngpc. Delphi 2010

Alguem já conseguiu via delphi capturar o inventario do SNGPC ?

Garimpando pela net encontrei o codigo abaixo que diz que captura o inventario, só que não consegui entender.

Observação := tentei colocar o codigo inteiro mas o site não aceita, se alguem se interessar é só pedir por email que eu envio.

****************************
STATIC FUNCTION REQUESTOPEN()
*****************************
//
// ENDERECO DE HOMOLOGACAO
//
http:Open( "GET", "http://homologacao.anvisa.gov.br/sngpc/", .F. )
http:SetRequestHeader( "Accept", "*/*" )
http:SetRequestHeader( "Accept-Language", "pt-br" )
http:SetRequestHeader( "Accept-Encoding", "gzip, deflate" )
http:SetRequestHeader( "User-Agent" , "Mozilla/4.0 (compatible; MSIE 7.0; Windows NT 5.1; Trident/4.0; BTRS25991; .NET CLR 2.0.50727; .NET CLR 3.0.04506.648; .NET CLR 3.5.21022; AskTB5.6)" )
http:SetRequestHeader( "Host" , "homologacao.anvisa.gov.br" )
http:SetRequestHeader( "Connection" , "Keep-Alive" )
//
// ENDERECOS DE PRODUCAO
//
// http:Open( "GET", "https://sngpc.anvisa.gov.br/", .F. )
// http:SetRequestHeader( "Accept", "*/*" )
// http:SetRequestHeader( "Accept-Language", "pt-br" )
// http:SetRequestHeader( "Accept-Encoding", "gzip, deflate" )
// http:SetRequestHeader( "User-Agent" , "Mozilla/4.0 (compatible; MSIE 7.0; Windows NT 5.1; Trident/4.0; BTRS25991; .NET CLR 2.0.50727; .NET CLR 3.0.04506.648; .NET CLR 3.5.21022; AskTB5.6)" )
// http:SetRequestHeader( "Host" , "sngpc.anvisa.gov.br" )
// http:SetRequestHeader( "Connection" , "Keep-Alive" )

http:send()
response := http:statusText
RETURN response

***************************
STATIC FUNCTION LERCOOKIE()
***************************
//
// ENDERECO DE HOMOLOGACAO
//
http:Open( "GET", "http://homologacao.anvisa.gov.br/sngpc/includes/fundo.asp", .F. )
http:SetRequestHeader( "Accept", "image/gif, image/jpeg, image/pjpeg, image/pjpeg, application/x-shockwave-flash, application/x-ms-application, application/x-ms-xbap, application/vnd.ms-xpsdocument, application/xaml+xml, application/x-silverlight, application/vnd.ms-excel, application/vnd.ms-powerpoint, application/msword, */*" )
http:SetRequestHeader( "Referer", "http://homologacao.anvisa.gov.br/sngpc/" )
http:SetRequestHeader( "Accept-Language", "pt-br" )
http:SetRequestHeader( "Accept-Encoding", "gzip, deflate" )
http:SetRequestHeader( "User-Agent" , "Mozilla/4.0 (compatible; MSIE 7.0; Windows NT 5.1; Trident/4.0; BTRS25991; .NET CLR 2.0.50727; .NET CLR 3.0.04506.648; .NET CLR 3.5.21022; AskTB5.6)" )
http:SetRequestHeader( "Host" , "homologacao.anvisa.gov.br" )
http:SetRequestHeader( "Connection" , "Keep-Alive" )

//
// ENDERECO DE PRODUCAO
//
// http:Open( "GET", "https://sngpc.anvisa.gov.br/includes/fundo.asp", .F. )
// http:SetRequestHeader( "Accept", "image/gif, image/jpeg, image/pjpeg, image/pjpeg, application/x-shockwave-flash, application/x-ms-application, application/x-ms-xbap, application/vnd.ms-xpsdocument, application/xaml+xml, application/x-silverlight, application/vnd.ms-excel, application/vnd.ms-powerpoint, application/msword, */*" )
// http:SetRequestHeader( "Referer", "https://sngpc.anvisa.gov.br/" )
// http:SetRequestHeader( "Accept-Language", "pt-br" )
// http:SetRequestHeader( "Accept-Encoding", "gzip, deflate" )
// http:SetRequestHeader( "User-Agent" , "Mozilla/4.0 (compatible; MSIE 7.0; Windows NT 5.1; Trident/4.0; BTRS25991; .NET CLR 2.0.50727; .NET CLR 3.0.04506.648; .NET CLR 3.5.21022; AskTB5.6)" )
// http:SetRequestHeader( "Host" , "sngpc.anvisa.gov.br" )
// http:SetRequestHeader( "Connection" , "Keep-Alive" )

http:send()
response := http:getResponseHeader("Set-Cookie")
RETURN response

************************************************
STATIC FUNCTION LOGIN( cCookie, memail, msenha )
************************************************
//
// ENDERECO DE HOMOLOGACAO
//
http:Open( "POST", "http://homologacao.anvisa.gov.br/sngpc/includes/AcessoPersistir.asp", .F. )
http:SetRequestHeader( "Accept" , "text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8" )
http:SetRequestHeader( "Referer" , "http://homologacao.anvisa.gov.br/sngpc/includes/login.asp" )
http:SetRequestHeader( "Accept-Language" , "pt-br" )
http:SetRequestHeader( "Accept-Encoding" , "gzip, deflate" )
http:SetRequestHeader( "User-Agent" , "Mozilla/4.0 (compatible; MSIE 7.0; Windows NT 5.1; Trident/4.0; BTRS25991; .NET CLR 2.0.50727; .NET CLR 3.0.04506.648; .NET CLR 3.5.21022; AskTB5.6)" )
http:SetRequestHeader( "Host" , "homologacao.anvisa.gov.br" )
http:SetRequestHeader( "Connection" , "Keep-Alive" )
http:SetRequestHeader( "Keep-Alive" , "115" )
http:SetRequestHeader( "Cookie" , cCookie )
http:SetRequestHeader( "Content-Type" , "application/x-www-form-urlencoded" )