FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin para Harbour/xHarbour Coger fichero grafico/datos desde HTTP
Posts: 654
Joined: Mon May 29, 2006 03:14 PM
Coger fichero grafico/datos desde HTTP
Posted: Mon Nov 29, 2010 11:02 AM
Como podría coger un fichero gráfico (foto, etc...) o de datos (zip, doc, etc...) o ficheros en general siendo este el enlace (por ejemplo): http://www.fivetechsoft.com/images/logo5t2.gif

Es decir, con alguna de las tecnicas de petición de páginas HTTP coger ficheros alojados en WEBs.

No se si me he explicado.

Por otro lado a veces el enlace es de este tipo http://www.planepictures.net/tshow.cgi?EC-HDT y es una foto.
Mi abuelo decía: Los aviones vuelan porque Dios quiere, y los helicópteros ni Dios sabe porque vuelan.

FWH 16.02, xHarbour 1.2.3, Harbour 3.2.0, WorkShop 4.5, AJ Make 0.30, Borlan BCC 7.00, VisualStudio 2013
Posts: 654
Joined: Mon May 29, 2006 03:14 PM
Re: Coger fichero grafico/datos desde HTTP
Posted: Mon Nov 29, 2010 04:19 PM
Me contesto yo solo... (lo encontre)

Code (fw): Select all Collapse
oHttp:=CreateObject("WinHTTP.WinHTTPRequest.5.1")
oHttp:SetTimeouts(30000,30000,30000,30000)
oHttp:Open("GET","http://www.fivetechsoft.com/images/logo5t2.gif",.F.)
oHttp:Send()
cImagen:=oHttp:ResponseBody() // Aqui esta la salsa de todo
MemoWrit("logo5t2.gif",cImagen)
Mi abuelo decía: Los aviones vuelan porque Dios quiere, y los helicópteros ni Dios sabe porque vuelan.

FWH 16.02, xHarbour 1.2.3, Harbour 3.2.0, WorkShop 4.5, AJ Make 0.30, Borlan BCC 7.00, VisualStudio 2013
Posts: 1286
Joined: Mon Feb 25, 2008 02:54 PM
Re: Coger fichero grafico/datos desde HTTP
Posted: Tue Nov 30, 2010 10:07 AM

JMGARCIA,

Sabe como chamar esta função direto no site: analise(login,senha,string)

Exemplo de Conexão:

Linguagem PHP + Class nusoap

<?php

include_once('lib/nusoap.php');

// link do web service
$wsdl = 'http://www.phdrisk.com/padrao/webservice/server.php?wsdl';

$client = new nusoapclient($wsdl,true);
$registro = array();
$registro[] = "99999"; // login
$registro[] = "99999"; //senha
$registro[] = "<analisePHDRISK>…"; //string

print_r($client->call('analise',$registro));

?>

Link Web Service

https://www.phdrisk.com/padrao/webservi ... r.php?wsdl

Fluxo

| analise(login,senha,string) |
USUARIO | ----------------------------------------- | PHDRISK
| stringRetorno |
| ----------------------------------------- |

Procedimento
Chamar a função analise passando por parâmetro o login, a senha, e o XML de envio, como retorno será enviado XML de retorno.

ubiratanmga@gmail.com

FWH24.04
BCC7.3
HARBOUR3.2
xMate
Pelles´C
TDolphin
Posts: 1074
Joined: Fri Oct 07, 2005 01:56 PM
Re: Coger fichero grafico/datos desde HTTP
Posted: Tue Nov 30, 2010 07:29 PM

JM Garcia:

Gracias por la solucion, en algun momento puede que la necesitemos..

Saludos
Patricio

__________________________________________________________________
Version: Harbour 3.2.0dev (r1307082134),Compiler: Borland C++ 5.8.2 (32-bit)
PCode version: 0.3, FWH 13.2
http://www.sialm.cl
Posts: 336
Joined: Wed May 16, 2007 09:40 PM
Re: Coger fichero grafico/datos desde HTTP
Posted: Thu May 08, 2014 12:41 PM
SGS wrote:JMGARCIA,

Sabe como chamar esta função direto no site: analise(login,senha,string)

Exemplo de Conexão:

Linguagem PHP + Class nusoap

<?php

include_once('lib/nusoap.php');

// link do web service
$wsdl = 'http://www.phdrisk.com/padrao/webservice/server.php?wsdl';

$client = new nusoapclient($wsdl,true);
$registro = array();
$registro[] = "99999"; // login
$registro[] = "99999"; //senha
$registro[] = "<analisePHDRISK>…"; //string

print_r($client->call('analise',$registro));

?>

Link Web Service
https://www.phdrisk.com/padrao/webservi ... r.php?wsdl

Fluxo

| analise(login,senha,string) |
USUARIO | ----------------------------------------- | PHDRISK
| stringRetorno |
| ----------------------------------------- |

Procedimento
Chamar a função analise passando por parâmetro o login, a senha, e o XML de envio, como retorno será enviado XML de retorno.


Hola

Lograste resolver este problema, agradeceria tu ayuda

saludos
Fivewin-Xharbour 24.09, Iquique, Chile
Posts: 44158
Joined: Thu Oct 06, 2005 05:47 PM
Re: Coger fichero grafico/datos desde HTTP
Posted: Thu May 08, 2014 04:04 PM

JM,

Muy bueno, gracias por compartirlo :-)

regards, saludos

Antonio Linares
www.fivetechsoft.com

Continue the discussion