Модераторы: Poseidon, Snowy, bems, MetalFan
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Работа с ресурсами. Как добовить текстовый файл в ресурсы. 
:(
    Опции темы
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;

PM MAIL   Вверх
Snowy
Дата 26.9.2006, 23:41 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


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

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



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

Присоединённый файл ( Кол-во скачиваний: 32 )
Присоединённый файл  Temp.zip 186,81 Kb
PM MAIL   Вверх
kostas
Дата 27.9.2006, 10:27 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


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

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



Используй модуль AcWorkRes.pas
PM ICQ   Вверх
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 написано.
PM MAIL   Вверх
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 ;)
PM ICQ   Вверх
  
Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Общие вопросы"
SnowyMetalFan
bemsPoseidon
Rrader

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по Дельфи обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи


Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Snowy, MetalFan, bems, Poseidon, Rrader.

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


 




[ Время генерации скрипта: 0.0646 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.