Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Сети > Delphi 7 - Создать Imgae программно в виде матрицы

Автор: lamer811 11.6.2010, 14:17

Всем привет, ребят помогите пожалуйста разобраться в Delphi 7 с автоматическим созданием Image, желательно кодом

У меня имеется массив ссылок на картинки в интернете, в формате JPEG.

Мне нужно вывести их вот в таком виде:
n - строки
m - столбцы, их 4

http://ipicture.ru/

Мои попытки:
1) функция загрузки

Цитата

function TMyForm.LoadImage(const url: string; var tmpname: string): Boolean; var  fs: TFileStream; begin
IdHTTP1.ReadTimeout := 4000;
tmpname := 'temp' + ExtractFileExt(url);    fs := TFileStream.Create(tmpname, fmCreate);
try     IdHTTP1.get(url, fs)   except     fs.Free;
Result := False;
Exit;
end;
Result := True;
fs.Free;  end;

2) Создание Image

Цитата

procedure TMyForm.Button1Click(Sender: TObject);
var img: TImage;
    i, y, x: Byte;
    filename: string;
begin

  y := 10;
  x := 25;

for i := Low(Links) to High(Links) do
  begin

   if LoadImage(Links[i], filename) then
    begin
     img := TImage.Create(MyForm);
     img.Parent := MyForm;
     img.AutoSize := False;

      try
        img.Picture.LoadFromFile(filename);
      finally
       img.Left := x;
       img.Top := y;
       y := y + img.Height + 20;
       DeleteFile(filename)
      end;
    end;
  end;

end;

Кто то может привести пример, как создавать ссылку + IMAGE1 = картинка грузилась по ссылке
Далее снова ссылка + IMAGE2 = картинка грузится и т.д. пока не кончатся ссылки на картинки

Автор: Proxin 11.6.2010, 16:00

загрузка файла: http://www.delphisources.ru/pages/faq/base/get_file_from_net_with_http.html
пока не кончатся ссылки, делай циклом.