проблемы с создание своего расширения!

[blackstersl]

Спасибо (+1), там всё понятно, а теперь как сделать: есть на форме 3 картинки загруженые в image1, как по нажатию кнопки сохранить их в тот формат что мы создали, а потом его открыть?

[hoza_syl]

Подожди секунду.

[mutabor]

сохранить их в тот формат что мы создали

Пока никакой формат мы не создали, мы только зарегистрировали расширение в системе. А формат сначала нужно придумать. Подумай что тебе от него нужно, для примера просто сохранять последовательно несколько картинок. Тогда заголовок будет весьма простой - кол-во картинок, размер их и позиции откуда они начинаются, если они идут последовательно и других данных в файле нет, то можно позиции не указывать.
1. Создай поток: fs:=TFileStream.Create(... почитай сам как это делается);
2. Запиши заголовок файла: fs.Write(.. аналогично);
3. Потом пиши туда файлы: способов несколько, самый простой грузи их тоже в поток (fs2) а потом копируй в этот fs.CopyFromStream(fs2) //с точным именем функции могу ошибиться.
4. Закрой поток: fs.Free; Все, файл сохранен.
Чтение в обратном порядке. Читается заголовок, и затем копируются нужные части файла (последовательности байт).

[hoza_syl]

Вот все же тоже самое что сказал mutabor, только в исходнике - это только запись файла - я предположыл, что файлы не в одном image, а в нескольких.

Должно работать не проверял.
Файлы сохраняются последовательно - перед каждым файлом записываю его размер - чтобы потом можно было прочитать их. Если надо будет исходник чтения - обращайся.

procedure TForm1.Button2Click(Sender: TObject);
 var fs : TFileStream; i:integer;
 imgSize: int64;  sizePos: int64; img: TImage;
begin
  fs:=TFileStream.Create('E:\myfile.ext',fmCreate); //Создаем файловый поток и
  //сразу создаем файл с нужным разширением.
  imgSize:=0;
  sizePos:=0;
  //Цыкл По картинкам
  for i := 1 to 3{оличество картинок}do
    begin
    //Получаем очередной Image
    img:=TImage(Form1.FindComponent('image'+intToStr(i)));
    SizePos:=Fs.Position;    //сохраняем позицию в файле, куда надо записать размер
    fs.Write(imgSize,SizeOf(imgSize)); //резервируем пару:) байт для размера
    //Дальше записываем картинку
    //В зависимости какая картинка - если bmp - то
    Image1.Picture.Bitmap.SaveToStream(fs);
    //а если Jpg - то
    // image1.Picture.Graphic.SaveToStream(fs);
    ImgSize:=fs.Position-sizePos;  //вычисляем размер картинки
    Fs.Seek(SizePos,SoFromBeginning);  //Возвращаемся к тому месту, куда надо записать размер
    fs.Write(imgSize,SizeOf(imgSize));  //записывем
    Fs.Seek(0,SoFromEnd)         //Возвращаемся в конец файла
    end;
  fs.Free;
end;

[blackstersl]

спасибо большое -) я бы не разобрался. А таким же образом открывать?

[hoza_syl]

Да. Сначало читаеш в переменную Int64!!!!! размер картинки - дальше сохраняеш читаеш саму картинку. Кстати как это сделать. Создай переменную:

var
  ms: TMemoryStream;
...
...
Читаем размер картинки
...
ms.clear; //чистим от предыдущих итераций цыкла
ms.CopyFrom(fs,imageSize); //копируем из файлового потока в мемори поток картинку
ms.position:=0; //!!!!!
Image1.Picture.Bitmap.LoadFromStream(ms); и тогда из мемори в Image

Тока не забудь потом удалить ms.

[hoza_syl]

Забыл дописать: и так дальше)))))))))

[blackstersl]

Огромнейшее спасибо!!!! Вообщем начало оставить как есть, а потом начать ms.clear;

[hoza_syl]

Всегда пожалуйста!

[The Best]

А я что-то не понял как читать файл потом... (работаю с JPEG)