Всем привет! Вопрос по Delphi 6.
Как упаковать в ехе-файл другие файлы (картинки, звук, видео и т.п.) и как обратиться к ним (в коде этого-же ехе-шника)? Хотелось что-бы все, что нужно для моей программы хранилось в ней-самой-же.
Если тут много оъяснять, где это поподробнее расписано?
Спасибо.

Здравствуйте Аноним, Вы писали:

А>Всем привет! Вопрос по Delphi 6.
А>Как упаковать в ехе-файл другие файлы (картинки, звук, видео и т.п.) и как обратиться к ним (в коде этого-же ехе-шника)? Хотелось что-бы все, что нужно для моей программы хранилось в ней-самой-же.
А>Если тут много оъяснять, где это поподробнее расписано?
А>Спасибо.
Создаешь rc файл. В нем описываешь свои ресурсы примерно так:

myres.rc:

BMP1 BITMAP bmp1.bmp
BMP2 BITMAP bmp2.bmp
SOMEDATA RCDATA somedata_file.something

То есть, .BMP картинки кидаешь как BITMAP остальные данные — как RCDATA.
далее компилируешь такой командой:

brc32 myres.rc

А в самой программе их грузишь так:

{$R myres.res}
//Эта строка их прилинковала к EXE

procedure SomeInitialization;
var
  RS: TResourceStream;  
  Size: integer;
begin
  FBMP1 := TBitmap.Create;
  FBMP1.LoadFromResourceName(hInstance, 'BMP1');
// то же самое для BMP2
  RS := TResourceStream.Create(hInstance, 'SOMEDATA', RT_RCDATA);
  Size := RS.Size;
  SOMEDATA := AllocMem(Size)
  RS.Read(SOMEDATA^, Size);
  RS.Free;
end;

Вот и все

Спасибо Hacker_Delphi!
Попробую разобраться.

Здравствуйте, Hacker_Delphi, Вы писали:

H_D>  FBMP1.LoadFromResourceName(hInstance, 'BMP1');

А где можно поподробнее о сабже узнать? Чего это такое?
hInstance уникален для .exe? для .bpl? Или, по-другому, SysInit.pas цепляется к пакету, екзешнику или к каждому модулю?

В хелпе искал, но, видимо, не справиться мне с его логикой

Здравствуйте, Хитрик Денис, Вы писали:

ХД>А где можно поподробнее о сабже узнать? Чего это такое?
Надо было начинать программировать еще под Windows 3.1 там все только через API делалось — там все эти понятия и появились...
ХД>hInstance уникален для .exe? для .bpl? Или, по-другому, SysInit.pas цепляется к пакету, екзешнику или к каждому модулю?

для .exe, .bpl, .dll это — hmodule...

Здравствуйте, Hacker_Delphi, Вы писали:
H_D>

H_D>procedure SomeInitialization;
H_D>var
H_D>  RS: TResourceStream;  
H_D>  Size: integer;
H_D>begin
H_D>  FBMP1 := TBitmap.Create;
H_D>  FBMP1.LoadFromResourceName(hInstance, 'BMP1');
H_D>// то же самое для BMP2
H_D>  RS := TResourceStream.Create(hInstance, 'SOMEDATA','RT_RCDATA');
H_D>  Size := RS.Size;
H_D>  SOMEDATA := AllocMem(Size)
H_D>  RS.Read(SOMEDATA^, Size);
H_D>  RS.Free;
H_D>end;
H_D>

а какой типа должен быть у SOMEDATA ? pointer ?

Здравствуйте, WD, Вы писали:

WD>а какой типа должен быть у SOMEDATA ? pointer ?
Pointer, PChar, PInteger, PWord и так далее... короче — любой указатель, что очевидно из конструкции SOMEDATA^

Я, кстати, обычно пользую PChar — тогда можно пользоваться SOMEDATA[0]...

Здравствуйте, Hacker_Delphi, Вы писали:

ХД>>А где можно поподробнее о сабже узнать? Чего это такое?
H_D>Надо было начинать программировать еще под Windows 3.1 там все только через API делалось — там все эти понятия и появились...



ХД>>hInstance уникален для .exe? для .bpl? Или, по-другому, SysInit.pas цепляется к пакету, екзешнику или к каждому модулю?
H_D>для .exe, .bpl, .dll это — hmodule...

У меня такой вопрос, в справке Дельфи об этом (о переменной hInstance) есть хоть что-нибудь? Или постигать всё только по исходникам?

Здравствуйте, Хитрик Денис, Вы писали:


ХД>У меня такой вопрос, в справке Дельфи об этом (о переменной hInstance) есть хоть что-нибудь? Или постигать всё только по исходникам?

Из справки D7. Курсивом выделены линки на доп. информацию, опять же в справке.

HInstance variable

Indicates the handle for a module.

Unit

SysInit

Category

application-level information

Delphi syntax:

var HInstance: LongWord;

C++ syntax:

extern PACKAGE int HInstance;

Description

HInstance provides a unique instance handle for the application or library.