Чтение части файла из файла и показ его в Image

@Ранши · Регистрация: 19.04.2016

Здравствуйте! Есть большой файл состоящий из записанных один за одним графических файлов. Данные записи (длины файлов итд) хранятся отдельно, то есть файл вполне читабельный. Я могу легко прочитать нужный мне графический фрагмент из него и записать его на диск. Но вот вопрос, у меня ни как не получается сделать так, что бы можно было отображать читаемую в данный момент часть файла в Image без записи ее на диск, тобишь не сделать файл а потом его загрузить в имидж, а загрузить в имидж LoadFromStream.
Помогите пожалуйста разобраться, ничего нее выходит(

Delphi

procedure LoadImageFromBase(InFile, : string; ReadPos:uint64; RFileLen:Uint64);
var
  InFile: TMemoryStream;
  pic :TPicture;
begin
pic := TPicture.Create;
 
InFile  := TMemoryStream.Create;
InFile.Seek(ReadPos, soFromBeginning);
 
 
    InFile.Read(Buff, RFileLen);
    Application.ProcessMessages();
 
    RewersByte(count);
    Application.ProcessMessages();
 
    pic.Graphic.LoadFromStream(InFile);
    Form1.Image1.Picture.Assign(pic);
 
   InFile.Free;
end;

Добавлено через 22 минуты
забыл написать

Delphi

1	InFile.LoadFromFile(aInFile);

между

Delphi

 
InFile  := TMemoryStream.Create;
и
InFile.Seek(ReadPos, soFromBeginning);

Но все равно не работает))

@Пытливый · 05.06.2016, 22:53

Я делал подобное так, только для вывода картинки я использовал компонент из ImageEn:

Delphi

Var
  JpgLib: TFileStream;
  JpgData: Pointer;
  FileName: String;
begin
 
      JpgLib := TFileStream.Create(FileName,fmOpenRead);       
      JpgLib.Seek(frmData.Query.FieldValues['Нач.Данных'],soFromBeginning);
      GetMem(JpgData,frmData.Query.FieldByName('Размер').AsInteger);
      JpgLib.Read(JpgData^,frmData.Query.FieldValues['Размер']);
      ImageEn1.IO.LoadFromBuffer(JpgData,frmData.Query.FieldValues['Размер'],ioJPEG);
      FreeMem(JpgData);
      JpgLib.Free;
      end;
 
end;

@Ранши · 05.06.2016, 22:59 **[ТС]**

Спасибо конечно за наглядность, а стандартными методами это можно как то сделать не прибегая к использованию внешних компонентов?

@krapotkin · 06.06.2016, 06:06

1. loadFromStream читает с текущей позиции стрима, сбросьте ее на 0
2. думаю, что по умолчанию Picture это совсем непонятный зверь
Picture.Graphic содержит либо TBitmap либо TPNGImage либо TJPegImage
поэтому грузите в объект нужного формата, а потом его уже в Picture.Graphic

@Ранши · 06.06.2016, 08:58 **[ТС]**

Спасибо, сейчас попробую)

@Ранши 12 / 11 / 7 Регистрация: 19.04.2016 Сообщений: 201
	05.06.2016, 22:59 [ТС]	3
	Спасибо конечно за наглядность, а стандартными методами это можно как то сделать не прибегая к использованию внешних компонентов? 0

@krapotkin 5494 / 4289 / 1379 Регистрация: 14.04.2014 Сообщений: 19,273 Записей в блоге: 19
	06.06.2016, 06:06	4
	1. loadFromStream читает с текущей позиции стрима, сбросьте ее на 0 2. думаю, что по умолчанию Picture это совсем непонятный зверь Picture.Graphic содержит либо TBitmap либо TPNGImage либо TJPegImage поэтому грузите в объект нужного формата, а потом его уже в Picture.Graphic 1

@Ранши 12 / 11 / 7 Регистрация: 19.04.2016 Сообщений: 201
	06.06.2016, 08:58 [ТС]	5
	Спасибо, сейчас попробую) 0

Опции темы