Форум АНТИЧАТ - Delphi 7 - Создать Imgae программно в виде матрицы

ANTICHAT — форум по информационной безопасности, OSINT и технологиям

ANTICHAT — русскоязычное сообщество по безопасности, OSINT и программированию. Форум ранее работал на доменах antichat.ru, antichat.com и antichat.club, и теперь снова доступен на новом адресе — forum.antichat.xyz.

Форум восстановлен и продолжает развитие: доступны архивные темы, добавляются новые обсуждения и материалы.

⚠️ Старые аккаунты восстановить невозможно — необходимо зарегистрироваться заново.

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

09.06.2010, 22:20

lamer811

Новичок

Регистрация: 08.11.2009

Сообщений: 21

Провел на форуме:
518630

Репутация: 7

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

Всем привет, ребят помогите пожалуйста разобраться в 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;