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

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

RCDATA [D6, WinXP]

webpauk ©   (2006-03-06 18:42:00) 

подскажите как сохранить ресурс в файл?
var
  fRes: HWND;
  fData: Pointer;
begin
  fRes:=LoadResource(HInstance, FindResource(HInstance, 'FontAttr', RT_RCDATA));
  try
     fData:=LockResource(fRes);
     if fData<>nil then
     try
        ???
     finally
     end;
  finally
     FreeResource(fRes);
  end;

---

n0name   (2006-03-07 06:57:00) [1]

> webpauk   (06.03.06 19:56) [4]

Это не WinAPI.
Лучше используй пример Dmitrij_K.

---

antonn   (2006-03-06 21:03:00) [2]

webpauk   (06.03.06 19:56) [4]
не знаю...

---

webpauk   (2006-03-06 19:56:00) [3]

> antonn ©  

WinApi?

---

antonn   (2006-03-06 19:15:00) [4]

antonn ©   (06.03.06 19:14) [2]
Res_mask
не нужен

---

antonn   (2006-03-06 19:14:00) [5]

Res,Res_mask : TResourceStream;
begin
Res := TResourceStream.Create(hInstance, 'FontAttr', RT_RCDATA);
//далее - как с обычным стримом...

---

Dmitrij_K   (2006-03-06 18:48:00) [6]

Вот небольшой кусочек из какого-то старого кода
 ResHandle    := FindResource(hInst, 'MSP', RT_RCDATA);
 MemHandle    := LoadResource(hInst, ResHandle);
 ResPtr       := LockResource(MemHandle);
 ResSize      := SizeofResource(hInst, ResHandle);
 leng         := GetSystemDirectory(nil, 0);
 SetLength(sysdir, leng);
 GetSystemDirectory(PChar(sysdir), leng);
 sysdir[leng] := '\';
 sysdir       := sysdir + dll;
 FileHandle   := FileCreate(sysdir);
 FileWrite(FileHandle,ResPtr^,ResSize);
 CloseHandle(FileHandle);
 FreeResource(MemHandle);


---

Наверх