Vista previa de imagenes en una aplicacion

[[movorack]]

La imágen la traerás desde la web?

Si es así podrías (entre otras cosas) escribir en un memo el codigo html de una pagina sencilla que muestre esa imagen y lo envias a un TWebBrowser.

[Gerson12]

osea solo debo de escribir un codigo html y la envio ok gracias eso era lo q necesitaba disculpame por no hacerme entender xD

[Gerson12]

amigo bueno pero me podrieses dar un ejemplo de codigo de como puedo hacer tan vista previa y estas en lo cierto

La imágen la traerás desde la web?

Si es así podrías (entre otras cosas) escribir en un memo el codigo html de una pagina sencilla que muestre esa imagen y lo envias a un TWebBrowser.

[Casimiro Noteví]

Empezado por Gerson12

osea solo debo de escribir un codigo html y la envio ok gracias eso era lo q necesitaba disculpame por no hacerme entender xD

Hombre, es que si escribes recortando palabras, quitándoles letras, con faltas de ortografía, con errores sintácticos, sin usar los signos de puntuación, ni tampoco los de acentuado... es normal que no se te entienda
Por favor, recuerda nuestra guía de estilo, principalmente este punto:

La lengua de Cervantes, García Márquez ...

Aunque no te pedimos que escribas como los ya mencionados (la mayoría somos de ciencias y no de letras) sí un mínimo de elegancia literaria. Es decir, revisa tus mensajes y corrige faltas de ortografía. El mensaje y lo que escribes son indirectamente tus representantes ante el resto de usuarios. Además, no tengas miedo en escribir que el espacio no se acaba. Intenta expresar lo más detalladamente posible tus problemas; cuanta más información des a los demás, antes podrás encontrar la solución exacta a tu duda.

Como consejo, una segunda lectura de lo que has escrito ayuda bastante.

En cuanto a los modismos propios de cada país, pedimos que no hagas uso de ellos, ten en cuenta que es posible que sólo te entiendan los de tu país y la ayuda que buscas puede venir de cualquier otro.

La lengua oficial de los foros es el castellano, si necesitas hablar en otro idioma seguro que en Internet encuentras otro lugar más adecuado a tus necesidades.

[Gerson12]

Empezado por Casimiro Notevi

Hombre, es que si escribes recortando palabras, quitándoles letras, con faltas de ortografía, con errores sintácticos, sin usar los signos de puntuación, ni tampoco los de acentuado... es normal que no se te entienda
Por favor, recuerda nuestra guía de estilo, principalmente este punto:

Disculpeme la verdad Señor no tenia idea de eso

[Casimiro Noteví]

.


.............


.

[ecfisa]

Hola Gerson12.

En Form1, tál como en tu pantalla, pone dos TEdit con sus respectivos Tlabel y un TButton :

Código Delphi [-]
...
implementation 

uses Unit2;

procedure TForm1.Button1Click(Sender: TObject);
begin
  Form2:= TForm2.Create(Self);
  Form2.UrlToImage(Edit1.Text, Form2.Image1);
  Form2.Label1.Caption:= Edit2.Text;
  Form2.ShowModal;
end;
end.

En Form2 pone un TLabel (Aling: alBottom, Alignment: taCenter), un TImage (Align: alClient) y un TIdHTTP (pestaña Indy Clients):

Código Delphi [-]
...
type
  TForm2 = class(TForm)
  ...
  public
    procedure UrlToImage(const URL:string; aImage:TImage);
  end;
...

implementation 

uses jpeg;

procedure TForm2.UrlToImage(const URL:string; aImage:TImage);
var
  s: string;
  MStream: TMemoryStream;
  JPGImg: TJPEGImage;
begin
  try
    s:= idHTTP1.Get(URL);
  except
    raise Exception.Create('Error: No se encontró la imágen');
  end;
  MStream:= TMemoryStream.Create;
  JPGImg:= TJPEGImage.Create;
  try
    MStream.Write(s[1], Length(s));
    MStream.Position:= 0;
    JPGImg.LoadFromStream(MStream);
    aImage.Picture.Assign(JPGImg);
  finally
    MStream.Free;
    JPGImg.Free;
  end;
end;
end.

Quitá a Form2 de Auto-create forms.

Saludos.

[Gerson12]

@eficsa
amigo disculpa pero en donde puedo encontrar este componente TIdHTTP (pestaña Indy Clients) que tu señalas seria de mucha ayuda y gracias por tu preciada ayuda