Юникод в Delphi 7

[iLnes]

Добрый день Всем.
Вообщем такая проблема, при компиляции проэкта выбивает ошибку:

[Error] U_Utils.pas(243): Incompatible types: 'Char' and 'WideChar'
[Error] U_Utils.pas(244): Incompatible types: 'Char' and 'WideChar'

Прочитал в гугле, мол что-то с юникод.
Вот часть кода, где он выбивает эту ошибку:

Function WriteResData(sServerFile: string;lpType:Pwidechar; pFile: pointer; Size: LongInt; Name: String):Boolean;
var
  hResourceHandle: THandle;
begin
  hResourceHandle := BeginUpdateResourceW(Pchar(sServerFile), False);
  Result := UpdateResourceW(hResourceHandle, lpType, pchar(Name), 0, pFile, Size);
  EndUpdateResourceW(hResourceHandle, False);
end;

Помогите, кто может.
Заранее большое спасибо.

[Пепел Феникса]

поменять тип Name на WideString.

veniside, блин, pChar пропустил.

[veniside]

string заменить на WideString, pchar на PWideChar

[iLnes]

Опять появилась ошибка:
Сам код:

procedure cloneVersion(fromfile,filepath:string);
var
  dwHandle, cbTranslate: cardinal;
  sizeVers: DWord;
  lpData, langData: Pointer;
  lpTranslate: WORD;
  hRes : THandle;
begin
  sizeVers := GetFileVersionInfoSize(PChar(fromfile), dwHandle);
  If sizeVers <> 0 then
  begin
    GetMem(lpData, sizeVers);
    ZeroMemory(lpData, sizeVers);
    GetFileVersionInfo (PChar(fromfile), 0, sizeVers, lpData);
    If VerQueryValue (lpData, '\VarFileInfo\Translation', langData, cbTranslate) then
    begin
      hRes := BeginUpdateResourceW(PChar(filepath), FALSE);
      if hRes <> 0 then
      begin
        CopyMemory(@lpTranslate, langData, 2);
          UpdateResourceW(hRes, RT_VERSION , MAKEINTRESOURCE(VS_VERSION_INFO), lpTranslate, lpData, sizeVers);
        EndUpdateResourceW(hRes, FALSE);
      end;
    end;
    FreeMem(lpData);
  end;
end;

Ошибки которые выдает:

[Error] U_Cloner.pas(28): Incompatible types: 'Char' and 'WideChar'
[Error] U_Cloner.pas(32): Incompatible types: 'Char' and 'WideChar'
[Error] U_Cloner.pas(32): Incompatible types: 'Char' and 'WideChar'

Без понятия, что сделать) Кто поможет?
Вообщем, первая ошибка здесь:

hRes := BeginUpdateResourceW(PChar(filepath), FALSE);

2 другие тут:

UpdateResourceW(hRes, RT_VERSION, MAKEINTRESOURCE(VS_VERSION_INFO), lpTranslate, lpData, sizeVers);

[Пепел Феникса]

а вам тут точно юникод то нужен?
может проще взять привычные вашей версии среды функции?

а так замены те же.

[iLnes]

Ну читал я, что проблема в юникоде.
Эту строку я исправил допустим:

hRes := BeginUpdateResourceW(PWideChar(filepath), FALSE);

Но вот с этой, не могу разобраться:

UpdateResourceW(hRes, RT_VERSION, MAKEINTRESOURCE(VS_VERSION_INFO), lpTranslate, lpData, sizeVers);

как понял, проблема в RT_VERSION и VS_VERSION_INFO. Они обьявлены в Windows.pas как MakeIntResourceA = PAnsiChar;

[Пепел Феникса]

придется переписать руками раз вы упорно хотите Wide-версии!

я вам прдлагаю, взять то что есть у вас,а именно Анси строки.
итог:

Function WriteResData(sServerFile: string;lpType:Pwidechar; pFile: pointer; Size: LongInt; Name: String):Boolean;
var
  hResourceHandle: THandle;
begin
  hResourceHandle := BeginUpdateResource(Pchar(sServerFile), False);
  Result := UpdateResource(hResourceHandle, lpType, pchar(Name), 0, pFile, Size);
  EndUpdateResource(hResourceHandle, False);
end;

procedure cloneVersion(fromfile,filepath:string);
var
  dwHandle, cbTranslate: cardinal;
  sizeVers: DWord;
  lpData, langData: Pointer;
  lpTranslate: WORD;
  hRes : THandle;
begin
  sizeVers := GetFileVersionInfoSize(PChar(fromfile), dwHandle);
  If sizeVers <> 0 then
  begin
    GetMem(lpData, sizeVers);
    ZeroMemory(lpData, sizeVers);
    GetFileVersionInfo (PChar(fromfile), 0, sizeVers, lpData);
    If VerQueryValue (lpData, '\VarFileInfo\Translation', langData, cbTranslate) then
    begin
      hRes := BeginUpdateResource(PChar(filepath), FALSE);
      if hRes <> 0 then
      begin
        CopyMemory(@lpTranslate, langData, 2);
          UpdateResource(hRes, RT_VERSION , MAKEINTRESOURCE(VS_VERSION_INFO), lpTranslate, lpData, sizeVers);
        EndUpdateResource(hRes, FALSE);
      end;
    end;
    FreeMem(lpData);
  end;
end;

[Аватар]

iLnes вам уже намекнули, что лучше использовать Ansi-шные функции BeginUpdateResourceA, UpdateResourceA и пр. И не будет никакой запарки с юникодом

[Пепел Феникса]

iLnes вам уже намекнули, что лучше использовать Ansi-шные функции BeginUpdateResourceA, UpdateResourceA и пр. И не будет никакой запарки с юникодом

я даже написал больше, функции без постиксов, это переносимее.

[iLnes]

Спасибо большое Феникс, всё работает.
Тут правда еще очень много работы.