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 байта, ты в этом случае будешь иметь проблемы

Новые блоги и статьи Все статьи Все блоги /
Мысли в слух. Про "навсегда". kumehtar 16.04.2026 Подумалось тут, что наверное очень глупо использовать во всяких своих установках понятие "навсегда". Это очень сильное понятие, и я только начинаю понимать край его смысла, не смотря на то что давно. . .	My Business CRM MaGz GoLd 16.04.2026 Всем привет, недавно возникла потребность создать CRM, для личных нужд. Собственно программа предоставляет из себя базу данных клиентов, в которой можно фиксировать звонки, стадии сделки, а также. . .	Знаешь почему 90% людей редко бывают счастливыми? kumehtar 14.04.2026 Потому что они ждут. Ждут выходных, ждут отпуска, ждут удачного момента. . . а удачный момент так и не приходит.	Фиксация колонок в отчете СКД Maks 14.04.2026 Фиксация колонок в СКД отчета типа Таблица. Задача: зафиксировать три левых колонки в отчете. Процедура ПриКомпоновкеРезультата(ДокументРезультат, ДанныеРасшифровки, СтандартнаяОбработка) / / . . .
Настройки VS Code Loafer 13.04.2026 { "cmake. configureOnOpen": false, "diffEditor. ignoreTrimWhitespace": true, "editor. guides. bracketPairs": "active", "extensions. ignoreRecommendations": true, . . .	Оптимизация кода на разграничение прав доступа к элементам формы Maks 13.04.2026 Алгоритм из решения ниже реализован на нетиповом документе, разработанного в конфигурации КА2. Задачи, как таковой, поставлено не было, проделанное ниже исключительно моя инициатива. Было так:. . .	Контроль заполнения и очистка дат в зависимости от значения перечислений Maks 12.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: реализовать контроль корректности заполнения дат назначения. . .	Архитектура слоя интернета для сервера-слоя. Hrethgir 11.04.2026 В продолжение https:/ / www. cyberforum. ru/ blogs/ 223907/ 10860. html Знаешь что я подумал? Раз мы все источники пишем в голове ветки, то ничего не мешает добавить в голову такой источник, который сам. . .

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