UpdateResource

@WestSide072 · Регистрация: 15.07.2010

Студворк — интернет-сервис помощи студентам

Имею следующий код:

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
function Resss:string;
var
  hRes,hFile,MyFile,BytesWritten,hLRes :THandle;
  hUpd:THandle;
  ResSize:Dword;
  ResAddr: pointer;
  s:string;
  ns:string;
begin
hRes    := FindResource(0, 'CONFIG', 'DATA');
hFile   := LoadResource(0, hRes);
ResAddr := LockResource(hFile);
ResSize := SizeofResource(hInstance,hRes);
 
SetLength(s, ResSize);
CopyMemory(PChar(s), ResAddr, ResSize);
 
//s := String(PChar(ResAddr));
 
ShowMessage(S);
UnlockResource(hFile);
FreeResource(hRes);
 
ns:=s+'qwerty';
 
hUpd:=BeginUpdateResource(PChar('С:\file.exe'),True);
 
UpdateResource(hUpd,PChar('DATA'),PChar('CONFIG'), 
wLanguage , lpData ,  // Вот тут нужна помощь
SizeofResource(hInstance,[B]lpData [/B]));
 
EndUpdateResource(hUpd,false);
 
end;

Собственно помощь нужна с UpdateResource. Как теперь сделать, чтобы новым ресурсом записалось содержимое ns?
Предпоследним аргументом должен быть указатель на новый ресурс, но ф-ия UpdateResource и должна создать ресурс...

@volvo · 10.01.2013, 23:24

Ну, так выдели через GetMem (или array of Byte + SetLength) память, достаточную, чтобы сохранить там строку, затолкай строку туда, и передай указатель в UpdateResource.

И не забудь, что

All data containing strings or text must be in Unicode format. lpData must not point to ANSI data.

@WestSide072 · 11.01.2013, 19:25 **[ТС]**

Сообщение от UI

Ну, так выдели через GetMem (или array of Byte + SetLength) память, достаточную, чтобы сохранить там строку, затолкай строку туда, и передай указатель в UpdateResource.

И не забудь, что

С помощью гугла и своих очень слабых знаний написал такой код:

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
function Resss:string;
var
  hRes,hFile,MyFile,BytesWritten,hLRes :THandle;
  hUpd:THandle;
  ResSize:Dword;
  ResAddr: pointer;
  s:string;
  
  nS:WideString ;
  nAB:array of Byte;
  i:integer;
begin
hRes    := FindResource(0, 'CONFIG', 'DATA');
hFile   := LoadResource(0, hRes);
ResAddr := LockResource(hFile);
ResSize := SizeofResource(hInstance,hRes);
s := String(PChar(ResAddr));
UnlockResource(hFile);
FreeResource(hRes);
 
nS:='12345';
[!]
SetLength(nAB,Length(nS));
 
for i:=1 to Length(nS) do
begin
  nAB[i]:=Byte(ns[i]);
end;
//FillChar(nAB,Length(ns),ns[1])
[!]
 
hUpd:=BeginUpdateResource(PChar('C:\test.exe'),True);
ShowMessage('BUR '+SysErrorMessage(GetLastError));
 
UpdateResource(hUpd,PChar('DATA'),PChar('CONFIG'),LANG_SYSTEM_DEFAULT,Addr(nAB),SizeOf(nAB)); // Верны последние 2 аргумента?
ShowMessage('UR '+SysErrorMessage(GetLastError));
 
EndUpdateResource(hUpd,false);
ShowMessage('EUR'+SysErrorMessage(GetLastError));
 
end;

Ресурс появляется, но в его содержимом нечто подобное - "ђЭ", попробовал заполнять nAB с помощью FillChar(nAB,Length(ns),ns[1]), но таким образом в массиве появляется 4 символа '1111'. и на последние 2 аргумента UpdateResource посмотрите пожалуйста...

@volvo · 11.01.2013, 19:30

Вот я же написал, на что обратить внимание. Версия Дельфи какая? String - это еще AnsiString, или уже UnicodeString?

@WestSide072 · 11.01.2013, 20:39 **[ТС]**

Сообщение от UI

Вот я же написал, на что обратить внимание. Версия Дельфи какая? String - это еще AnsiString, или уже UnicodeString?

Но... Я же... Использую WideString - а это вроде Unicode, версия дельфи - 7.

@volvo · 11.01.2013, 20:56

И сколько ты выделяешь памяти под хранение WideString-а из 5 символов? 5 байт? Length что возвращает для WideString, в курсе?

For Unicode (WideString) strings, Length returns the number of bytes divided by two.

Как минимум тебе придется исправить число байт, выделяемых для хранения строки. Второе - не копировать из строки в nAB так, как это делаешь ты. Элемент WideString может иметь длину отличную от 1 байта, ты в этом случае будешь иметь проблемы

Новые блоги и статьи Все статьи Все блоги /
PhpStorm 2025.3: WSL Terminal всегда стартует в ~ and_y87 14.12.2025 PhpStorm 2025. 3: WSL Terminal всегда стартует в ~ (home), игнорируя директорию проекта Симптом: После обновления до PhpStorm 2025. 3 встроенный терминал WSL открывается в домашней директории. . .	Как объединить две одинаковые БД Access с разными данными VikBal 11.12.2025 Помогите пожалуйста !! Как объединить 2 одинаковые БД Access с разными данными.	Новый ноутбук volvo 07.12.2025 Всем привет. По скидке в "черную пятницу" взял себе новый ноутбук Lenovo ThinkBook 16 G7 на Амазоне: Ryzen 5 7533HS 64 Gb DDR5 1Tb NVMe 16" Full HD Display Win11 Pro	Музыка, написанная Искусственным Интеллектом volvo 04.12.2025 Всем привет. Некоторое время назад меня заинтересовало, что уже умеет ИИ в плане написания музыки для песен, и, собственно, исполнения этих самых песен. Стихов у нас много, уже вышли 4 книги, еще 3. . .	От async/await к виртуальным потокам в Python IndentationError 23.11.2025 Армин Ронахер поставил под сомнение async/ await. Создатель Flask заявляет: цветные функции - провал, виртуальные потоки - решение. Не threading-динозавры, а новое поколение лёгких потоков. Откат?. . .
Поиск "дружественных имён" СОМ портов Argus19 22.11.2025 Поиск "дружественных имён" СОМ портов На странице: https:/ / norseev. ru/ 2018/ 01/ 04/ comportlist_windows/ нашёл схожую тему. Там приведён код на С++, который показывает только имена СОМ портов, типа,. . .	Сколько Государство потратило денег на меня, обеспечивая инсулином. Programma_Boinc 20.11.2025 Сколько Государство потратило денег на меня, обеспечивая инсулином. Вот решила сделать интересный приблизительный подсчет, сколько государство потратило на меня денег на покупку инсулинов. . . .	Ломающие изменения в C#.NStar Alpha Etyuhibosecyu 20.11.2025 Уже можно не только тестировать, но и пользоваться C#. NStar - писать оконные приложения, содержащие надписи, кнопки, текстовые поля и даже изображения, например, моя игра "Три в ряд" написана на этом. . .	Мысли в слух kumehtar 18.11.2025 Кстати, совсем недавно имел разговор на тему медитаций с людьми. И обнаружил, что они вообще не понимают что такое медитация и зачем она нужна. Самые базовые вещи. Для них это - когда просто люди. . .	Создание Single Page Application на фреймах krapotkin 16.11.2025 Статья исключительно для начинающих. Подходы оригинальностью не блещут. В век Веб все очень привыкли к дизайну Single-Page-Application . Быстренько разберем подход "на фреймах". Мы делаем одну. . .

@volvo Супер-модератор 33192 / 21488 / 8233 Регистрация: 22.10.2011 Сообщений: 36,873 Записей в блоге: 12
	11.01.2013, 19:30
	Вот я же написал, на что обратить внимание. Версия Дельфи какая? String - это еще AnsiString, или уже UnicodeString? 1