IPB
ЛогинПароль:

> ВНИМАНИЕ!

Прежде чем задать вопрос, смотрите FAQ.
Рекомендуем загрузить DRKB.

Наладить общение поможет, если вы подпишитесь по почте на новые темы в этом форуме.

> чтение image из файла
сообщение
Сообщение #1


Иллюзия мира
***

Группа: Пользователи
Сообщений: 180
Пол: Женский

Репутация: -  4  +


как можно прочитать image из файла, записанный в него либо по одной картинке либо вот таким вот способом:
Procedure AddToStream ( Source , Dest : TStream );
var
Size: Integer;
begin
Source.position := 0;
Size := Source.Size;
Dest.Write(Size,SizeOf(Integer));
Dest.CopyFrom(Source,Source.size);
end;

procedure TForm1.SaveClick(Sender: TObject);
var
s1, s2: TMemoryStream ;
i: integer;
begin
s1:= TMemoryStream.Create ;
try
s2:= TMemoryStream.Create ;
try
for i:=1 to 300 do
begin
s2.LoadFromFile('C:\Image\'+IntToStr(i)+'.jpg');
AddToStream(s2,s1);
end;
finally
s2.Free ;
end;
s1.SaveToFile('C:\Image.dat')
finally
s1.free ;
end;
end;


 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

Сообщений в этой теме


 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 





- Текстовая версия 30.11.2021 12:24
500Gb HDD, 6Gb RAM, 2 Cores, 7 EUR в месяц — такие хостинги правда бывают
Связь с администрацией: bu_gen в домене octagram.name