Загрузка картинок в разные image

[mitiay]

Загружаю картинки вот так

var
http: TIdHttp;
  ms:   TMemoryStream;
  jpeg: TJpegImage;
begin
  http := TIdHTTP.Create(nil);
  ms := TMemoryStream.Create;
  jpeg := TJpegImage.Create;
  try
    http.Get(edit.text, ms);
    ms.Position := 0;
    jpeg.LoadFromStream(ms);
    Image1.Picture.Graphic := jpeg;
  finally
    jpeg.Free; ms.Free; http.Free;

Как загрузить несколько картинок в несколько image?

[Stilet]

Ну например использовать TObjectList;

var
http: TIdHttp;
  ms:   TMemoryStream;
  jpeg: TJpegImage;
begin
  http := TIdHTTP.Create(nil);
  ms := TMemoryStream.Create;
  jpeg := TJpegImage.Create;

  jPegList.Add(jpeg);

  try
    http.Get(edit.text, ms);
    ms.Position := 0;
    jpeg.LoadFromStream(ms);
    Image1.Picture.Graphic := jpeg;
  finally
    jpeg.Free; ms.Free; http.Free;

Где jPegList:TObjectList;
Работать с ним как с обычным массивом, т.е. jPegList[5] - Это 6-я картинка

[temaps]

Если вопрос про то как сделать несколько компонентов, то так:

var
http: TIdHttp;
  ms:   TMemoryStream;
  jpeg: TJpegImage;
begin
  http := TIdHTTP.Create(nil);
  ms := TMemoryStream.Create;
  jpeg := TJpegImage.Create;
  try
    http.Get(edit.text, ms);
    ms.Position := 0;
    jpeg.LoadFromStream(ms);
    Image1.Picture.Graphic := jpeg;
image2:=TImage.Create(Form1);
image2.Parent:=Form1;
image2.Picture.graphic:=jpeg;
image2.top:=....
image2.left:=....
image2.width:=....
image2.height:=....
  finally
    jpeg.Free; ms.Free; http.Free;

А вообще нужно бы уточнить вопрос

[mitiay]

Сообщение от temaps

Если вопрос про то как сделать несколько компонентов, то так:

var
http: TIdHttp;
  ms:   TMemoryStream;
  jpeg: TJpegImage;
begin
  http := TIdHTTP.Create(nil);
  ms := TMemoryStream.Create;
  jpeg := TJpegImage.Create;
  try
    http.Get(edit.text, ms);
    ms.Position := 0;
    jpeg.LoadFromStream(ms);
    Image1.Picture.Graphic := jpeg;
image2:=TImage.Create(Form1);
image2.Parent:=Form1;
image2.Picture.graphic:=jpeg;
image2.top:=....
image2.left:=....
image2.width:=....
image2.height:=....
  finally
    jpeg.Free; ms.Free; http.Free;

А вообще нужно бы уточнить вопрос

У меня на форме 6 image в каждый из них нужно загрузить картинку с разных источников if edit1=1 then грузим в первый image и т д

[Stilet]

Ну обьяви функцию типа

procedure load(url:String;Image:TImage)

и в нее свой код втюхай.
Или сделай класс от TThread и в него код втюхай.

[mitiay]

procedure load(url:String;Image:TImage);
var
http: TIdHttp;
  ms:   TMemoryStream;
  jpeg: TJpegImage;
begin
 http := TIdHTTP.Create(nil);
  ms := TMemoryStream.Create;
  jpeg := TJpegImage.Create;
  try
    http.Get(url, ms);
    ms.Position := 0;
    jpeg.LoadFromStream(ms);
  finally
    jpeg.Free; ms.Free; http.Free;

А как вызвать теперь ее?
и куда писать url?