Извлечение ресурсов из бинарных файлов

[dimkin]

Мне потребовалось поместить некоторую информацию(ресурс) в бинарный файл(dll или exe). Для работы с ресурсами я использую WinApi.

Пробую добавить и извлечь строку. Тип ресурса RT_RCDATA - Application Defined Resource.

Вроде бы делаю как описано в мсдн, но толи при добавлении, толи при извлечении происходит какой-то баг(где то ошибся, а где именно хз).

В приложении сорцы, и экзешник (Исключительно тестовая версия):ResApp.rar

Ну и вот здесь кусок:


Баг, вроде, либо здесь:

procedure TEForm.EditButtonClick(Sender: TObject);
var
  Name : PAnsiChar;
  sizeRes : Cardinal;
  pRes : Pointer;
  str  : WideString;
begin
  Name := PAnsiChar(ComboBoxResName.Text);
  if not (Name = '')
    then
      if RadioButtonStrings.Checked
        then
          begin
            str := EditResText.Text;
            pRes := @(str);
            sizeRes := SizeOf(str);
          end;
// вызываем функцию изменения ресурса
  FileRes.Edit(Name, pRes, sizeRes);
end;




  function TADResource.Edit(Name: PAnsiChar; pResource: Pointer;
                            sizeOfRes: Cardinal):Boolean;
  var hUpdate : Cardinal;
      bool : Boolean;
  begin

    hUpdate := BeginUpdateResource(filePath ,False);
    if (hUpdate = 0)
      then raise Exception.Create('Can''t open file. File not found');

    bool := UpdateResource(hUpdate,
                              RT_RCDATA,
                              PAnsiChar(AnsiUpperCase (String (Name) ) ),
                              MAKELANGID(LANG_NEUTRAL, SUBLANG_NEUTRAL),
                              pResource,
                              sizeOfRes);

    if not bool
      then raise Exception.Create('Can''t update resources');

    if not EndUpdateResource(hUpdate, False)
      then  raise Exception.Create('Can''t save resource''s changes');
  end;

Либо здесь:

//получение поинтера на ресурс
  function TADResource.GetResource(hModule: Cardinal; Name : PAnsiChar): Pointer;
  var hResource, hResData : Cardinal;
  begin
    hResource := FindResource(hModule, Name, RT_RCDATA);
    hResData := LoadResource(hModule, hResource);
    Result :=  LockResource(hResData);
  end;




//Отображение строк-ресурсов
procedure TMForm.LoadResToGrid();
var
  i: Integer;
  str : WideString;
  p : Pointer;
  hModule : Cardinal;
begin

  hModule := LoadLibrary(FileRes.PFPath);
 // StringGrid.RowCount := 100;
  for i := 0 to (FileRes.Names.Count - 1) do
    begin
     // получаем поинтер на ресурс - результат LockResource
      p := FileRes.GetResource(hModule, PAnsiChar(FileRes.Names.Strings[i]));
      try
      //каст строки из поинтера
       StringGrid.Cells[1, i] := WideString(p^);

      except
//        StringGrid.Cells[1, i] := 'Нет представления ресурса';
      end;

    end;
    FreeLibrary(hModule);
end;

[Stilet]

bool := UpdateResource(hUpdate,

Да. да. Вот и у меня OS function failed выкидавает на ХР SP3...

[dimkin]

На самом деле, ошибся я ,когда вместо указателя на символы передавал в UpdateResource указатель на указатель размером 4 байта. Нужно так:

procedure TEForm.EditButtonClick(Sender: TObject);
var
  Name : string;
  str  : WideString;
begin
  Name := ComboBoxResName.Text;
  if (Name <> '') and RadioButtonStrings.Checked then
  begin
    str := EditResText.Text;
    FileRes.Edit(PAnsiChar(Name), pointer(str), (Length(str)+1)*SizeOf(WideChar));
  end;
end;

И соотв-но при чтении:

  ...
  StringGrid.Cells[1, i] := PWideChar(p);
  ...