Vista previa de imagenes en una aplicacion

[Casimiro Notevi]

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 Notevi]

.


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


.

[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