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

lamer811

Дата 11.6.2010, 14:17 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 4
Регистрация: 11.6.2010

Репутация: нет
Всего: нет

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

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

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

Мои попытки:
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 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 363
Регистрация: 21.6.2008

Репутация: 1
Всего: 3

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

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Сети \| Следующая тема »