Timage desde URL

[Diego Ferreira]

Saludos al foro..
Principalmente lo que quiero es que un Timage me muestre una imagen
desde un URL por ejemplo que me muestre
" http://www.rocknationradio.com/samHTMwe ... ures/gamma _ray_-_powerplant.jpg"
en el control como podria hacer en este caso...?
De antemano mil gracias compañeros !

[Bingen Ugaldebere]

Lo mejor es que montes un navegador en una ventana y le digas que
navegue a esta dirección con lo cual asunto resuleto.
Mira este artí­culo que publiqué
http://xailer.info/esp/?p=75#more-75
que incluso incluye un proyecto.
Salu2.
Diego Ferreira escribió:
> Saludos al foro..
>
> Principalmente lo que quiero es que un Timage me muestre una imagen
> desde un URL por ejemplo que me muestre
> " http://www.rocknationradio.com/samHTMwe ... ures/gamma _ray_-_powerplant.jpg"
>
> en el control como podria hacer en este caso...?
>
> De antemano mil gracias compañeros !

[Diego Ferreira]

Gracias Bingen ya lo habia visto pero necesito tratar la imagen como un
TPicture para poder pasarlo al FastReport trabajar con sus medidas entre
otras muchas cosas... hay una manera para que con tu ejemplo descargar
directamente la imagen y guardarla en X carpeta o alguna otra idea de
hacerlo !!! Gracias !!!
Bingen Ugaldebere escribió:
> Lo mejor es que montes un navegador en una ventana y le digas que
> navegue a esta dirección con lo cual asunto resuleto.
>
> Mira este artí­culo que publiqué
>
> http://xailer.info/esp/?p=75#more-75
>
> que incluso incluye un proyecto.
>
> Salu2.
>
> Diego Ferreira escribió:
>> Saludos al foro..
>>
>> Principalmente lo que quiero es que un Timage me muestre una
>> imagen desde un URL por ejemplo que me muestre
>> " http://www.rocknationradio.com/samHTMwe ... ures/gamma _ray_-_powerplant.jpg"
>>
>> en el control como podria hacer en este caso...?
>>
>> De antemano mil gracias compañeros !

[Bingen Ugaldebere]

> Gracias Bingen ya lo habia visto pero necesito tratar la imagen como un
> TPicture para poder pasarlo al FastReport trabajar con sus medidas entre
> otras muchas cosas...
Para eso deberí­as descargarlo al disco y grabarlo fí­sicamente, algo así­
como si le das al enlace "Guardar destino del enlace como...."
> hay una manera para que con tu ejemplo descargar
> directamente la imagen y guardarla en X carpeta o alguna otra idea de
> hacerlo !!! Gracias !!!
Con mi ejemplo directamente no.
Por FTP no habrí­a ningún problema pero por HTTP no lo he probado, pero
si te miras en el manual de Xailer la clase tInternet verás que puedes
establecer una conexión a una Url y descargar un archivo
TInternet:ReadFile
Recupera un archivo o partes de un archivo si el servidor lo soporta.
Tipo
Estándar
Parámetros
<hFile>
Manejador del archivo
<cBuffer>
Variable con los datos a escribir en el archivo
<nSize>
Tamaño en bytes del buffer
Valor Retorno
<lSuccess>
..T si el archivo se escribió correctamente
A ver si te ilumina.
Salu2

[Diego Ferreira]

Bingen Ugaldebere escribió:
>
>> Gracias Bingen ya lo habia visto pero necesito tratar la imagen como
>> un TPicture para poder pasarlo al FastReport trabajar con sus medidas
>> entre otras muchas cosas...
>
> Para eso deberí­as descargarlo al disco y grabarlo fí­sicamente, algo así­
> como si le das al enlace "Guardar destino del enlace como...."
>
>> hay una manera para que con tu ejemplo descargar directamente la
>> imagen y guardarla en X carpeta o alguna otra idea de hacerlo !!!
>> Gracias !!!
>
> Con mi ejemplo directamente no.
>
> Por FTP no habrí­a ningún problema pero por HTTP no lo he probado, pero
> si te miras en el manual de Xailer la clase tInternet verás que puedes
> establecer una conexión a una Url y descargar un archivo
>
> TInternet:ReadFile
>
> Recupera un archivo o partes de un archivo si el servidor lo soporta.
>
> Tipo
> Estándar
>
> Parámetros
> <hFile>
> Manejador del archivo
> <cBuffer>
> Variable con los datos a escribir en el archivo
> <nSize>
> Tamaño en bytes del buffer
>
> Valor Retorno
> <lSuccess>
> ..T si el archivo se escribió correctamente
>
>
>
> A ver si te ilumina.
>
> Salu2
>
>
>
>
>
Probare y te cuento ! Gracias de nuevo !

[Diego Ferreira]

Gracias Bingen por iluminarme el camino xD ! eh obtenido el resultado
que quiero por ahora cuelgo el ejemplo aqui para quien lo quiera !
--

[Diego Ferreira]

Aqui esta el codigo para quien no quiera bajar el ZIP
Local oInternet, hN, cText
With Object oInternet := TInternet()
:Open()
hN := :OpenURL(
" http://www.rocknationradio.com/samHTMwe ... ures/gamma _ray_-_powerplant.jpg"
)
:ReadFile( hN, @cText, :GetFileSize( hN ) )
:Close()
End With
::oImage1:oPicture := TPicture():LoadFromStream( cText )