| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Есть файл байтов (file of byte). Как сделать, чтобы массив данных

SergeyG ©   (2006-03-23 12:18:00) 

Есть файл байтов (file of byte). Как сделать, чтобы массив данных из этого файла "оставить" в программе, а не подгружать во время работы программы?

---

Leonid Troyanovsky   (2006-03-23 16:35:00) [1]

> MBo ©   (23.03.06 14:02) [5]

> ARR RT_RCDATA "array.dat"


ARR RCDATA "array.dat"

--
Regards, LVT.

---

SergeyG   (2006-03-23 15:11:00) [2]

Спасибо, буду разбираться.

---

MBo   (2006-03-23 14:03:00) [3]

здесь arr- динамический массив

 arr: array of Byte;

---

MBo   (2006-03-23 14:02:00) [4]

Пусть файл данных называется array.dat
Пишешь текстовый файл array.rc, содержащий строчку
ARR RT_RCDATA "array.dat"
и запускаешь компилятор ресурсов
brcc32 array.rc
Получается файл array.res

В программе

$R *.dfm}
{$R array.res}

procedure TForm4.FormCreate(Sender: TObject);
var
 Res:TResourceStream;
begin
 Res:=TResourceStream.Create(HInstance, 'ARR','RT_RCDATA');
 SetLength(arr, Res.Size);
 Res.Read(arr[0], Res.Size);
 Res.Free;
 Caption:=IntToStr(arr[0]);
end;

---

SergeyG   (2006-03-23 13:46:00) [5]

Вручную набивать килобайт тоскливо. А что такое и как "засунуть в ресурс"?

---

MBo   (2006-03-23 13:43:00) [6]

>Или можно как-то этот массив сформировать во время разработки программы?
Если массив маленький, можно константный массив использовать
const a:array[1..3] of byte = (1,2,3);
Если большой - можно в ресурс засунуть.

---

SergeyG   (2006-03-23 13:38:00) [7]

Т.е. эту процедуру можно сделать в любое время при работе программы, а потом этот заполненный массив останется в теле программы? Или можно как-то этот массив сформировать во время разработки программы?

---

Darkwing   (2006-03-23 12:30:00) [8]


var H: THandle;
H := CreateFile(PChar('Имя файла'),GENERIC_READ, FILE_SHARE_READ, nil, OPEN_EXISTING, nil, nil);
FileRead(H,MyArray,LengthOfMyArray));
CloseHandle(H)

---

Наверх