Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате
Форум программистов > Delphi: Общие вопросы > Работа с ресурсами.


Автор: blablabla 26.9.2006, 22:32
Всем здрасти. У меня вот такая задача. Есть текстовый файл. Мне надо его программным путём добавить в ресурсы другой программы и потом использовать его. Тоесть мне нужна прога 'main.exe' с кнопкой, что бы при нажатии на кнопку текстовый файл 'text.txt' добавлялся в ресурсы другой проги 'child.exe'. 
Есть код, в описании написано что он добавляет любые файлы в RC_DATA. Но он сробатывает только с .jpeg файлами а с .txt пишет ошибку. Помогите разобратся и найти нужное решение.

Вот код:

Код

function AddResource(FileName, ResName: string; Buf: pointer; Size: integer): integer; 
{* Добавляет данные в RC_DATA. На входе:
FileName - имя файла с ресурсами (exe, dll и т.п),
ResName - имя ресурса (ОБЯЗАТЕЛЬНО! заглавными латинскими буквами),
Buf - указатель на блок данных, Size - размер блока данных.
На выходе - 0, если все Ok, либо номер ошибки Windows } 
var
Hnd: THandle; 
begin 
Hnd := BeginUpdateResource(PChar(FileName), false); 
if Hnd=0 then begin 
result := GetLastError; Exit; 
end; 
if UpdateResource(Hnd, RT_RCDATA, PChar(ResName), 1049, Buf, Size) then
result := 0
else result := GetLastError;
EndUpdateResource(Hnd, (result<>0)); 
end;

function AddFileToExe(ExeName, FileName, ResName: string): boolean;
{* Добавляет любой файл в ресурсы. На входе:
ExeName - Путь к файлу с ресурсами,
FileName - Путь к файлу, который запихнуть в ресурсы,
ResName - Под каким именем сохранить в ресурсах. ОБЯЗАТЕЛЬНО! заглавные латинские }
var
fs: TFileStream;
b: pointer;
begin 
try 
fs := TFileStream.Create(FileName, fmOpenRead or fmShareDenyWrite);
fs.Position := 0; 
GetMem(b, fs.Size);
fs.Read(b^, fs.Size); 
result := AddResource(ExeName, ResName, b, fs.Size)=0; 
fs.Free; 
FreeMem(b); 
except 
result := false;
end; 
end; 

procedure TForm1.FormCreate(Sender: TObject); //Пример использования.
Begin
AddFileToExe(ExtractFilePath(Application.ExeName) + 'child.exe', ExtractFilePath(Application.ExeName) + 'text.txt', 'SB1');

end;

Автор: Snowy 26.9.2006, 23:41
Вот набросал код.
Отлично работает.
Приклеиваю - проверь у себя.

Автор: kostas 27.9.2006, 10:27
Используй модуль AcWorkRes.pas

Автор: Snowy 27.9.2006, 10:39
kostas, а у тебя есть рабочий пример с его использованием?
Я пробовал - постоянно AV получаю smile
Ладно, еслиб AV, но с результатом. Нет - просто вылетает.

Добавлено @ 10:40 
Этот код взят отсюда: http://forum.vingrad.ru/index.php?showtopic=80865
Пам же и про AcWorkRes написано.

Автор: kostas 27.9.2006, 19:45
Цитата(Snowy @  27.9.2006,  10:39 Найти цитируемый пост)
kostas, а у тебя есть рабочий пример с его использованием?Я пробовал - постоянно AV получаю Ладно, еслиб AV, но с результатом. Нет - просто вылетает.

примера, как такового, нет, однако сам многократно сей модуль использовал.. помню нашел одно место, где вылетал у меня AV, там кажется что-то с try..except было накручено, связался с автором - он кажется пофиксил. Кстати автор - небезызвестный Alex-Co ;)

Powered by Invision Power Board (http://www.invisionboard.com)
© Invision Power Services (http://www.invisionpower.com)