0% acharam este documento útil (1 voto)

375 visualizações8 páginas

Consumindo Um Webservice No Delphi 7 - Delphi - IMasters Fóruns

Consumindo Um Webservice No Delphi 7

Enviado por

Giovanni Oliveira

Direitos autorais

Levamos muito a sério os direitos de conteúdo. Se você suspeita que este conteúdo é seu, reivindique-o aqui.

Formatos disponíveis

Baixe no formato PDF, TXT ou leia on-line no Scribd

0% acharam este documento útil (1 voto)

375 visualizações8 páginas

Consumindo Um Webservice No Delphi 7 - Delphi - IMasters Fóruns

Consumindo Um Webservice No Delphi 7

Enviado por

Giovanni Oliveira

Direitos autorais

Levamos muito a sério os direitos de conteúdo. Se você suspeita que este conteúdo é seu, reivindique-o aqui.

Formatos disponíveis

Baixe no formato PDF, TXT ou leia on-line no Scribd

Você está na página 1/ 8

20/01/2015

ConsumindoumWebserviceNoDelphi7DelphiiMastersFruns

iMasters.com.br

Regras

RevistaiMasters

OffTopic

Frum

GaleriadeImagens

7Masters

Cdigos

Cursos

InterCon

BoxdeFerramentas

LinuxMagazine

Avaliaes

FaaLogin/Cadastrese Cadastreseagora!

ESTATSTICASDOFRUM
5%

Usuriosativos

0membro(s),0visitante(s)e0membrosannimo(s)

ConsumindoumWebserviceNoDelphi7

CriadoporIlano,25/03

SIGAOIMASTERS

Postado25maro201116:04

Ilano
Olpessoal,

Tenhonestelink(http://ws.fontededados.com.br/consulta.asmx?op=SituacaoCadastralPF)umexemplo
decomoconsultarasituaodoCPFenesteoutro(http://ws.fontededados.com.br/consulta.asmx)
outrasconsultasconsumindowebservice.Fizumpequenoteste:

Citar
Lazybones
Inglespara
Informatica

Ingls
Instrumental
paraInformt...

Ingls.com.tex
tospara
Informtica...

R$28

R$45

R$62

Comprar

procedureTForm1.SpeedButton1Click(Sender:TObject)
begin
//Passandovaloresparacamposdaweb.
WebBrowser1.OleObject.Document.all.Item('login',0).value:='teste'
WebBrowser1.OleObject.Document.all.Item('senha',0).value:='teste'
WebBrowser1.OleObject.Document.all.Item('cpf',0).value:=TxtCPF.Text

http://forum.imasters.com.br/topic/427958consumindoumwebservicenodelphi7/

1/8

20/01/2015

ConsumindoumWebserviceNoDelphi7DelphiiMastersFruns
end
procedureTForm1.FormCreate(Sender:TObject)
begin
WebBrowser1.Navigate('http://ws.fontededad...acaoCadastralPF(http://ws.fontededados.com.br/consulta.asmx?
op=SituacaoCadastralPF)')
end

Eleestfuncionandoperfeitamente,masnoseicomoclicarnoboto,poisnoexisteumIDouum
Nameparaobotoparaimplementaroclick

Citar
WebBrowser1.OleObject.Document.all.Item('Button',0).Click

Contudo,issonooprincipalmotivodestepost,esteapenasumteste.Oprincipalmotivodestepost
utilizarestewebservicepara,aodigitaroCPFmeucamporeceberonomedodonodesteCPF,pois
geradaemoutrapginaumXMLcontendoonomedapessoa.
Algumsabecomopossoresolveresseproblema?
Grato,
Ilano.
Postado29maro201115:41

Ilano
Nenhumasugesto?

EstouprecisandoagoraparaCNPJ,trazerosdadosdaempresa.
Postado31maro201108:53

Ilano
ComopossopegaronomedapessoadaconsultanoConsultaCPFWebService

(http://ws.fontededados.com.br/consulta.asmx?op=SituacaoCadastralPF)ejogloparaomeucampo
TxtNome?SprecisodescobrircomoimplementoissoemontaroXML.Porfavor,meajudemmeu
http://forum.imasters.com.br/topic/427958consumindoumwebservicenodelphi7/

2/8

20/01/2015

ConsumindoumWebserviceNoDelphi7DelphiiMastersFruns

tempoestexpirandoeaindanoconseguiimplementarisso.
Postado31maro201122:59

bdexterholland
SouumanegaocomXMLsetalmastiveumaidia:
functionTForm1.DownloadFile(Source,Dest:string):Boolean
begin
try
Result:=UrlDownloadToFile(nil,PChar(source),PChar(Dest),0,nil)=0
except
Result:=False
end
end

procedureTForm1.Button1Click(Sender:TObject)
begin
ifDownloadFile('http://ws.fontededados.com.br/consulta.asmx/SituacaoCadastralPF?login=teste&sen
ha=teste&cpf=999999999',
'C:\Users\WilliamFerreira\Arquivo.XML')then//Infomeumcaminhovlidoparaesteparmet
ro
ShowMessage('Downloadrealizadocomsucesso!')
else
ShowMessage('Falhanodonwload!')
end

VocfazodownloaddoarquivoXMLefazaleituradoarquivo.
meucdigoestcomerro,comonoseinadasobreleituradeXMLatravsdecomponentesqueno
sejamdecendentesdoTextFile,noconsigocorrigiroproblema:
procedureTForm1.ExibeSituacao
var
XMLFile:TXMLDocument
NodePai:IXMLNode
I:Integer
{SituacaoCadastral}
{RetornoSituacaoCadastralPF}
begin
http://forum.imasters.com.br/topic/427958consumindoumwebservicenodelphi7/

3/8

20/01/2015

ConsumindoumWebserviceNoDelphi7DelphiiMastersFruns

XMLFile:=TXMLDocument.Create(Application)
XMLFile.LoadFromFile('C:\Users\WilliamFerreira\Arquivo.XML')
XMLFile.Active:=True
NodePai:=XMLFile.DocumentElement.ChildNodes['RetornoSituacaoCadastralPF']
ShowMessage(NodePai.Text)
end

Correo:ConseguifazeraleituradoXML:
procedureTForm1.ExibeSituacao
var
XMLFile:TXMLDocument
NodePai:IXMLNode
I:Integer
{SituacaoCadastral}
{RetornoSituacaoCadastralPF}
begin
XMLFile:=TXMLDocument.Create(Application)
XMLFile.LoadFromFile('C:\Users\WilliamFerreira\Arquivo.XML')
XMLFile.Active:=True
//NodePai:=XMLFile.DocumentElement.ChildNodes['SituacaoCadastral']
ShowMessage(XMLFile.DocumentElement.ChildNodes['SituacaoCadastral'].Text)
end

Noasituaoidealmasconseguirealizaraverificao.
Postado01abril201108:09

sicsp
Engraadobdexterholland,a"ideia"quevocetevepraticamenteigualaestaaqui

http://scriptbriasil...howtopic=130463(http://scriptbriasil.com.br/forum/index.php?
showtopic=130463)
Vocenotevenemotrabalhodemudaronomedafuno.Alias,nosdessamasdeoutroslugares
http://forum.imasters.com.br/topic/427958consumindoumwebservicenodelphi7/

4/8

20/01/2015

ConsumindoumWebserviceNoDelphi7DelphiiMastersFruns

tambem,vocemontouessafunodevariospontosnanetenocitounenhumafonteeaindaassumiua
ideiaparavoce?Issoumafaltagravssima,vocecomomoderadortraineenodeveriadarexemplo
quantoaisto?

'bdexterholland',em31Mar201110:59PM,disse:
SouumanegaocomXMLsetalmastiveumaidia:

functionTForm1.DownloadFile(Source,Dest:string):Boolean
begin
try
Result:=UrlDownloadToFile(nil,PChar(source),PChar(Dest),0,nil)=0
except
Result:=False
end
end
procedureTForm1.Button1Click(Sender:TObject)
begin
ifDownloadFile('http://ws.fontededados.com.br/consulta.asmx/SituacaoCadastralPF?login=teste
&senha=teste&cpf=999999999',
'C:\Users\WilliamFerreira\Arquivo.XML')then//Infomeumcaminhovlidoparaestepar
metro
ShowMessage('Downloadrealizadocomsucesso!')
else
ShowMessage('Falhanodonwload!')
end

VocfazodownloaddoarquivoXMLefazaleituradoarquivo.
meucdigoestcomerro,comonoseinadasobreleituradeXMLatravsdecomponentesquenosejam
decendentesdoTextFile,noconsigocorrigiroproblema:

procedureTForm1.ExibeSituacao
var
http://forum.imasters.com.br/topic/427958consumindoumwebservicenodelphi7/

5/8

20/01/2015

ConsumindoumWebserviceNoDelphi7DelphiiMastersFruns

XMLFile:TXMLDocument
NodePai:IXMLNode
I:Integer
{SituacaoCadastral}
{RetornoSituacaoCadastralPF}
begin
XMLFile:=TXMLDocument.Create(Application)
XMLFile.LoadFromFile('C:\Users\WilliamFerreira\Arquivo.XML')
XMLFile.Active:=True
NodePai:=XMLFile.DocumentElement.ChildNodes['RetornoSituacaoCadastralPF']
ShowMessage(NodePai.Text)
end

Correo:ConseguifazeraleituradoXML:

procedureTForm1.ExibeSituacao
var
XMLFile:TXMLDocument
NodePai:IXMLNode
I:Integer
{SituacaoCadastral}
{RetornoSituacaoCadastralPF}
begin
XMLFile:=TXMLDocument.Create(Application)
XMLFile.LoadFromFile('C:\Users\WilliamFerreira\Arquivo.XML')
XMLFile.Active:=True
//NodePai:=XMLFile.DocumentElement.ChildNodes['SituacaoCadastral']
ShowMessage(XMLFile.DocumentElement.ChildNodes['SituacaoCadastral'].Text)
end

Noasituaoidealmasconseguirealizaraverificao.

bdexterholland

http://forum.imasters.com.br/topic/427958consumindoumwebservicenodelphi7/

Postado01abril201112:44

6/8

20/01/2015

ConsumindoumWebserviceNoDelphi7DelphiiMastersFruns

MedesculpemasocdigocopiadofoiapenasocdigodoDownload,sevocconsideraestafalhagrave,
porfavor,sintaseavontadededenunciar.Sgostariaquedizerqueofatodedizerquetiveaidiano
necessariamentequerdizerquesouodonodoscript.MinhaidiaerarealizarodownloadoXML
resultantebuscarosdadosdiretoemlocalhost,semusarcomponentesSOAP.
Gostariatambmque,sevocsouberorealautordafuno,meinformequeeucitareicomofonte.

VoltarparaDelphi PrximoTpicoNoLido