VPF::Работа с ресурсами. - Форум программистов

blablabla

Дата 26.9.2006, 22:32 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 17
Регистрация: 7.9.2006

Репутация: нет
Всего: нет

Всем здрасти. У меня вот такая задача. Есть текстовый файл. Мне надо его программным путём добавить в ресурсы другой программы и потом использовать его. Тоесть мне нужна прога '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 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 192
Всего: 484

Вот набросал код.
Отлично работает.
Приклеиваю - проверь у себя.

Присоединённый файл ( Кол-во скачиваний: 32 )

Temp.zip 186,81 Kb

kostas

Дата 27.9.2006, 10:27 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 100
Регистрация: 21.7.2006

Репутация: 3
Всего: 4

Используй модуль AcWorkRes.pas

Snowy

Дата 27.9.2006, 10:39 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 192
Всего: 484

kostas, а у тебя есть рабочий пример с его использованием?
Я пробовал - постоянно AV получаю smile

Ладно, еслиб AV, но с результатом. Нет - просто вылетает.

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

kostas

Дата 27.9.2006, 19:45 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 100
Регистрация: 21.7.2006

Репутация: 3
Всего: 4

Цитата(Snowy @ 27.9.2006, 10:39

)

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

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

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »