Jump to content
Fivewin Brasil

WebService com proxy

rmarra

By rmarra
in Programação

 Share

Recommended Posts

rmarra Newbie

rmarra

Posted
Posted

Boa noite a todos..

Senhores, eu baixei da parte de dicas na pagina principal do site uma classe que faz uso de webservice, e por sinal funciona muito bem.

http://www.fivewin.com.br/exibedicas.asp?id=480

Mas gostaria de usar com proxy, é possivel?

Se sim, poderiam compartilhar?

Antecipadamente agradeço.

Rondinelli - Itaocara-RJ

Clipper 5.3b, Fivewin 2.6, Blinker 7, WorkShop

Link to comment
Share on other sites
rmarra Newbie

rmarra

Posted
  • Author
Posted

Boa noite a todos..

Senhores, eu baixei da parte de dicas na pagina principal do site uma classe que faz uso de webservice, e por sinal funciona muito bem.

http://www.fivewin.com.br/exibedicas.asp?id=480

Mas gostaria de usar com proxy, é possivel?

Se sim, poderiam compartilhar?

Antecipadamente agradeço.

Rondinelli - Itaocara-RJ

Clipper 5.3b, Fivewin 2.6, Blinker 7, WorkShop

Link to comment
Share on other sites
Marca Rookie

Marca

Posted
Posted

citação:

Boa noite a todos..

Senhores, eu baixei da parte de dicas na pagina principal do site uma classe que faz uso de webservice, e por sinal funciona muito bem.

http://www.fivewin.com.br/exibedicas.asp?id=480

Mas gostaria de usar com proxy, é possivel?

Se sim, poderiam compartilhar?

Antecipadamente agradeço.

Rondinelli - Itaocara-RJ

Clipper 5.3b, Fivewin 2.6, Blinker 7, WorkShop

id=quote>id=quote>

Bom dia a todos

Rondinelli

Vc poderia mostrar algum exemplo de aplicação com esta classe ?

Marcelo Ferro

Petrópolis - Rj

Fwh9.01/xHarbour 1.1.0 Simplex /SqlLib /xMate/WS e Pelles

marca.jpg

Link to comment
Share on other sites
rmarra Newbie

rmarra

Posted
  • Author
Posted

Olá Marcelo, tb. estou começando a ver agora.

No exemplo abaixo, ele me retorna o conteúdo xml.

Meu problema é usar com proxy por ainda ser 16 bits.

Ex:

ws:=TdWebService():new()

msgalert(ws:OpenWS('http://www.medifacil.com.br/httpservice.php?servico=1&usuario=3245&senha=cb0f889221cccf709f727cac52c27f8c&beneficiario=MG-0000-000000'))

Assim que evoluir posto demais exemplos.

Rondinelli - Itaocara-RJ

Clipper 5.3b, Fivewin 2.6, Blinker 7, WorkShop

Link to comment
Share on other sites
FiveWinBr Newbie

FiveWinBr

Posted
Posted

Esse PRG que vc esta usando não é para WebService é um POG. ( com apenas o nome de webservice )

O que vc esta precisando neste caso é uma forma de usar

proxy com a "wininet.dll", que faz conexão com HTTP ( Hypertext Transfer Protocol ) e não WSDL ( Web Service Definition Language )

você deve procurar a forma de se usar proxy com ele, e nao webservice que é totalmente diferente.

O que pode lhe ajudar:

http://msdn.microsoft.com/en-us/library/aa384075(v=vs.85).aspx

http://msdn.microsoft.com/en-us/library/aa384240(v=VS.85).aspx

Att.

Lailton

http://www.lailton.com.br

E-mail/MSN: suporte@redstarsoft.com.br

xHarbour 1.2.1 | Fivewin 10.10 | Borland 5.8.2 | Dolphin MySQL

Link to comment
Share on other sites
Geo_sts Newbie

Geo_sts

Posted
Posted

acho q essa clareia mais:

#include "FiveWin.ch"

#define HTTPREQUEST_PROXYSETTING_DEFAULT 0

#define HTTPREQUEST_PROXYSETTING_PRECONFIG 0

#define HTTPREQUEST_PROXYSETTING_DIRECT 1

#define HTTPREQUEST_PROXYSETTING_PROXY 2

Function Main()

MsgInfo( Tipo_de_cambio(), "US Dollar" )

Return Nil

Function Tipo_de_cambio()

Local oHttp, ;

cResp := ""

Try

oHttp := CreateObject("winhttp.winhttprequest.5.1")

oHttp:Open("GET","http://www.peru.gob.pe/",.f.)

oHttp:SetProxy( HTTPREQUEST_PROXYSETTING_DEFAULT ) // toma valores del registro

// oHttp:SetProxy( HTTPREQUEST_PROXYSETTING_PROXY, "proxy_server:80", "192.10.1.7" ) // explícito

oHttp:Send()

cResp := oHttp:ResponseText()

Catch

MsgStop( "Error" )

Return cResp

End Try

cResp := SubStr( cResp, At( "Tipo de cambio C: S/. ", cResp ) )

cResp := StrTran( StrTran( Substr( cResp, 1, At( "", cResp ) - 1 ), "C: S/.", "Compra: S/." ), "V: S/.", ;

"Venta: S/." )

Return cResp

Geovanni Holior

Analista de Sistema

Clip53 * FHW 9.1/../9.5 MySql

skype:geovanni.holior

" Tudu Posso naquele que me Fortalece!"

Link to comment
Share on other sites
sambomb Newbie

sambomb

Posted
Posted

citação:

acho q essa clareia mais:

#include "FiveWin.ch"

#define HTTPREQUEST_PROXYSETTING_DEFAULT 0

#define HTTPREQUEST_PROXYSETTING_PRECONFIG 0

#define HTTPREQUEST_PROXYSETTING_DIRECT 1

#define HTTPREQUEST_PROXYSETTING_PROXY 2

Function Main()

MsgInfo( Tipo_de_cambio(), "US Dollar" )

Return Nil

Function Tipo_de_cambio()

Local oHttp, ;

cResp := ""

Try

oHttp := CreateObject("winhttp.winhttprequest.5.1")

oHttp:Open("GET","http://www.peru.gob.pe/",.f.)

oHttp:SetProxy( HTTPREQUEST_PROXYSETTING_DEFAULT ) // toma valores del registro

// oHttp:SetProxy( HTTPREQUEST_PROXYSETTING_PROXY, "proxy_server:80", "192.10.1.7" ) // explícito

oHttp:Send()

cResp := oHttp:ResponseText()

Catch

MsgStop( "Error" )

Return cResp

End Try

cResp := SubStr( cResp, At( "Tipo de cambio C: S/. ", cResp ) )

cResp := StrTran( StrTran( Substr( cResp, 1, At( "", cResp ) - 1 ), "C: S/.", "Compra: S/." ), "V: S/.", ;

"Venta: S/." )

Return cResp

Geovanni Holior

Analista de Sistema

Clip53 * FHW 9.1/../9.5 MySql

skype:geovanni.holior

" Tudu Posso naquele que me Fortalece!"

id=quote>id=quote>

Só tem que levar em consideração que 16 bits não aceita Try - Catch

SamirSSabreu@gmail.com

samirabreu@hotmail.com

Skype: SamirAbreu

xHarbour 1.1.0 + FwXh 8.02

id=black>

"Acreditar é mais fácil do que pensar: Daí existem muito mais crentes do que pensadores.†Bruce Calvert

Link to comment
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Reply to this topic...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

Loading...
×
 Share
Go to topic listing
×
×
  • Create New...