14 replies to this topic

[escafandra]

Os propongo una forma sencilla de cargar una imagen desde una URL y mostrarla en un Form:

delphi

uses  Urlmon;
//...........................................................................
procedure LoadURLImage(Image: TImage; URL: String);
var
  TempName: String;
begin
   TempName:= 'temp' + ExtractFileExt(URL);
   URLDownloadToFile(nil, PCHAR(URL), PCHAR(TempName), 0, nil);
   Image.Picture.LoadFromFile(TempName);
   DeleteFile(TempName);
end;

Un ejemplo de uso:

delphi

  LoadURLImage(Image1, '[url]http://telmosilva.files.wordpress.com/2010/03/informatica_12.jpg'[/url]);

Saludos.

[enecumene]

wow, otra excelente aportación amigo escafandra

Saludos.

[JoAnCa]

Hola escafandra
Probe tu codigo

delphi

LoadURLImage(Image1, '[url]http://telmosilva.files.wordpress.com/2010/03/informatica_12.jpg'[/url]);

y me da error

[Error] Unit1.pas(40): Expression expected but '/' found
[Fatal Error] Project1.dpr(5): Could not compile used unit 'Unit1.pas'

que podra ser?

[Fenareth]

Hola escafandra
Probe tu codigo y me da error

[Error] Unit1.pas(40): Expression expected but '/' found
[Fatal Error] Project1.dpr(5): Could not compile used unit 'Unit1.pas'

que podra ser?

A lo mejor de las dos barras de comentario // sólo se copió una no crees amigo ?

Saludox !

[egostar]

Esto

delphi

LoadURLImage(Image1, '[url]http://telmosilva.files.wordpress.com/2010/03/informatica_12.jpg'[/url]);

Una comilla en el lugar y momento equivocado

delphi

LoadURLImage(Image1, '[url]http://telmosilva.files.wordpress.com/2010/03/informatica_12.jpg[/url]');

Salud OS

[JoAnCa]

Vaya, parece que mi Delphi 7 no entiende mucho de este codigo, lo arreglé y ahora me sale esto

Extensión desconocida

Attached Files

•  1486_b4fd7803c958d515b877738cbe1b3cd0b69e433a.jpg   19.48KB   8 downloads

[Fenareth]

Intenta así amigo....

LoadURLImage(Image, 'http://telmosilva.files.wordpress.com/2010/03/informatica_12.jpg');

Saludox !

Nota: al parecer el foro reconoce automáticamente que es una URL por ello pone las etiquetas [url] en el código de escafandra, pero en realidad no es necesario colocarlas....

[egostar]

Ya vi cual es el problema

delphi

uses jpeg;
 
procedure TForm1.Button1Click(Sender: TObject);
begin
  LoadURLImage(Image1,'[url]http://www.portal-cifi.com/scifi/images/noticias/saturno_2_imagenes.jpg'[/url]);
end;

Salud OS

[Fenareth]

No amigo, en realidad al hacer uso del código de escafandra no es necesario incluir lo de las etiquetas de URL.. pero las etiquetas de delphi del foro las ponen en autómatico.... yo ya hice la prueba en mi Delphi y quitando eso funciona perfecto... Al ponerlas me marca el error que le envía a JoAnCa....

Saludox !

[escafandra]

No amigo, en realidad al hacer uso del código de escafandra no es necesario incluir lo de las etiquetas de URL.. pero las etiquetas de delphi del foro las ponen en autómatico.... yo ya hice la prueba en mi Delphi y quitando eso funciona perfecto... Al ponerlas me marca el error que le envía a JoAnCa....

Saludox !

Exacto, es el foro quien corrompe el código . En su momento traté de editarlo pero las etiquetas [url] las vuelve a poner automáticamente. No se me ocurrió dar aviso de lo que pasaba . Pensé que sería mas evidente para todos. Pero veo que para mi fue mas fácil al ver como lo que publicaba se alteraba... Mil perdones .

Saludos.

[Fenareth]

.....

Exacto, es el foro quien corrompe el código . ....
Saludos.

Foro corruptor de códigos       

Saludox !

[seoane]

Me rindo      ... si el foro se empeña en corromper el código que lo haga 

[egostar]

No amigo, en realidad al hacer uso del código de escafandra no es necesario incluir lo de las etiquetas de URL.. pero las etiquetas de delphi del foro las ponen en autómatico.... yo ya hice la prueba en mi Delphi y quitando eso funciona perfecto... Al ponerlas me marca el error que le envía a JoAnCa....

Saludox !

Si, por eso es que me rio, no he podido no con el nobcc

Me rindo      ... si el foro se empeña en corromper el código que lo haga 

Por la noche haré una modificación al código de las etiquetas, no se enojen

Salud OS

[Fenareth]

......

Por la noche haré una modificación al código de las etiquetas, no se enojen

Salud OS

Hasta por la noche ?????... mmmm 

jejeje

Saludox !

[enecumene]

...Por la noche haré una modificación al código de las etiquetas, no se enojen

Qué bueno amigo, ahora tengo menos preocupaciones