Vista previa de imagenes en una aplicacion

[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

[ecfisa]

Empezado por 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

Hola Gerson12.

Tendrías que tenerlo en la pestaña mencionada, pero si no podes ubicarlo, intentá desde la barra de menu de Delphi: View -> Component list. Y en la ventana que aparecerá, escribir su nombre en Search by name.

Saludos.

[Gerson12]

bueno eficta disculpa por la molestia pero aun sigo sin encontrar tal opcion porfavor me puedes dar una imagen si no es mucha molestia y realmente te pido disculpa espero me puedas ayudar

[Casimiro Noteví]

¿No encuentras la pestaña Indy clients, o no encuentras el componente TIdHTTP en la pestaña indy?