Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.08.19;
Скачать: CL | DM;

Вниз

несколько jpg в файл   Найти похожие ветки 

 
Antonio   (2002-04-13 13:39) [0]

Подскажите пожалуста, как запихнуть несколько картинок jpg в один файл. Что-то типа: DXImageList1.Items.SaveToFile"bla_bla.dat")


 
SPeller ©   (2002-04-13 13:56) [1]

Копируешь в кончный файл по очереди все рисунки, при этом запоминая смещение каждого от начала файла.


 
MBo ©   (2002-04-13 14:33) [2]

) Сохранение несколько объектов, обладающих методом SaveToStream, в один поток

uses ... jpeg;

procedure TForm1.SaveClick(Sender: TObject);
var
j1,j2:TJpegImage;
fs: TFileStream;
ms: TMemoryStream;
size: Integer;
begin
j1:= TJpegImage.Create;
j2:= TJpegImage.Create;
j1.LoadFromFile("e:\5.jpg");
j2.LoadFromFile("e:\4.jpg");
ms:= TMemoryStream.Create;
fs:= TFileStream.Create("e:\jpgs.dat",fmCreate);

j1.SaveToStream(ms);
ms.Position := 0;
size := ms.Size;
fs.WriteBuffer( size, Sizeof(size));
fs.CopyFrom(ms, size );
ms.Clear;

j2.SaveToStream(ms);
ms.position := 0;
size := ms.Size;
fs.WriteBuffer( size, Sizeof(size));
fs.CopyFrom(ms, size );

ms.Free;
fs.Free;
j1.Free;
j2.Free;
end;

procedure TForm1.LoadClick(Sender: TObject);
var
j1,j2:TJpegImage;
fs: TFileStream;
ms: TMemoryStream;
size: Integer;
begin
j1:= TJpegImage.Create;
j2:= TJpegImage.Create;
ms:= TMemoryStream.Create;
fs:= TFileStream.Create("e:\jpgs.dat",fmOpenRead);

fs.ReadBuffer( size, sizeof(integer));
ms.CopyFrom(fs, size );
ms.Position := 0;
j1.LoadFromStream(ms);
Image1.Picture.Assign(j1);

ms.Clear;
fs.ReadBuffer( size, sizeof(integer));
ms.CopyFrom(fs, size );
ms.Position := 0;
j2.LoadFromStream(ms);
Image2.Picture.Assign(j2);

ms.Free;
fs.Free;
j1.Free;
j2.Free;
end;



Страницы: 1 вся ветка

Текущий архив: 2002.08.19;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.01 c
1-60556
pvasya
2002-08-07 16:29
2002.08.19
TForm


3-60488
Кирилл Усов
2002-07-29 09:09
2002.08.19
транзакции на interbase 5.6


1-60648
Leran2002
2002-08-08 15:16
2002.08.19
InstallShield


3-60509
Ник
2002-07-30 00:45
2002.08.19
TDBGrid


6-60776
John Kayfolom
2002-06-04 18:48
2002.08.19
Количество переданных пакетов/байт через соединение