Resource Builder - Софт - Страница 3

raxp · 08.11.2009, 12:14

Цитата:

Какие-то другие форматы требуют другого описания

думаю что хватит... всем не угодишь

зы: прокрутку для справки лучше вертикальную

Alex Cones · 08.11.2009, 12:21

Цитата:

зы: прокрутку для справки лучше вертикальную

Учту. Что-то еще добавить?

-------------------------------
1.0.5
-Изменил положение справки, теперь удобно читать.
-Добавил имя сохраняемого файла по умолчанию

DeKot · 08.11.2009, 15:48

Alex! Уже неплохо. С файлами .bmp все получается (№1)

Но вот дальше на JPEG облом (№2)

А как с файлами .txt работать (№3)? А если надо в ресурс медиа- файлы загрузить? Как их потом достать?

Alex Cones · 08.11.2009, 15:53

Кто ж так JPEG достает?

Код:

procedure LoadJPEG;
var
  MyJPG: TJPEGImage;
  ResStream: TResourceStream; 
begin
  try
    MyJPG := TJPEGImage.Create;
    ResStream := TResourceStream.CreateFromID(HInstance, 1, RT_RCDATA);
    MyJPG.LoadFromStream(ResStream);
    Canvas.Draw(12, 12, MyJPG);
  finally
    MyJPG.Free;
    ResStream.Free;
  end;
end;

P.S. Не забудьте в юзесах жпег
Медиа так:

Код:

procedure RetrieveMyWave;
var
hResource: THandle;
pData: Pointer;
begin
hResource:=LoadResource( hInstance, FindResource(hInstance, 'ИМЯ ЗВУКА В РЕСЕ', RT_RCDATA));
try
pData := LockResource(hResource);
PlaySound('ОПЯТЬ ТАКИ ИМЯ ЗВУКА', 0, SND_MEMORY);
finally
FreeResource(hResource);
end;
end;

MMSystem в юзесах.

Если будут проблемы с воспроизведением - сообщите, пожалуйста. Программы любят отсутствие жуков.

TXT:

Код:

 res:=TResourceStream.Create(Hinstance, 'ИМЕЧКО', RT_RCDATA);
  memo1.lines.loadfromstream(res);
  res.Free;

Altera · 20.12.2009, 13:41

Resuorce bilder-ом зря назвал.
Есть уже такая и очень не плохая программа для работы с ресурсами

А этот WorkShop какой-то долбанутый.

08.11.2009, 15:48	#23
DeKot Участник клуба Регистрация: 12.08.2008 Сообщений: 1,977	Alex! Уже неплохо. С файлами .bmp все получается (№1) Но вот дальше на JPEG облом (№2) А как с файлами .txt работать (№3)? А если надо в ресурс медиа- файлы загрузить? Как их потом достать? И не сомневайся даже ... отдых - кайф, работа - лажа!

08.11.2009, 15:53	#24
Alex Cones Trust no one. Старожил Регистрация: 07.04.2009 Сообщений: 6,526	Кто ж так JPEG достает? Код: `procedure LoadJPEG; var MyJPG: TJPEGImage; ResStream: TResourceStream; begin try MyJPG := TJPEGImage.Create; ResStream := TResourceStream.CreateFromID(HInstance, 1, RT_RCDATA); MyJPG.LoadFromStream(ResStream); Canvas.Draw(12, 12, MyJPG); finally MyJPG.Free; ResStream.Free; end; end;` P.S. Не забудьте в юзесах жпег Медиа так: Код: `procedure RetrieveMyWave; var hResource: THandle; pData: Pointer; begin hResource:=LoadResource( hInstance, FindResource(hInstance, 'ИМЯ ЗВУКА В РЕСЕ', RT_RCDATA)); try pData := LockResource(hResource); PlaySound('ОПЯТЬ ТАКИ ИМЯ ЗВУКА', 0, SND_MEMORY); finally FreeResource(hResource); end; end;` MMSystem в юзесах. Если будут проблемы с воспроизведением - сообщите, пожалуйста. Программы любят отсутствие жуков. TXT: Код: `res:=TResourceStream.Create(Hinstance, 'ИМЕЧКО', RT_RCDATA); memo1.lines.loadfromstream(res); res.Free;` SQUARY PROJECT - НАБОР БЕСПЛАТНЫХ ПРОГРАММ ДЛЯ РАБОЧЕГО СТОЛА. МОЙ БЛОГ GRAY FUR FRAMEWORK - УДОБНАЯ И БЫСТРАЯ РАЗРАБОТКА WINAPI ПРИЛОЖЕНИЙ Последний раз редактировалось Alex Cones; 08.11.2009 в 15:59.

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Тупая ошибка ...Duplicate resource(s): [Error]	Romer9999	Общие вопросы Delphi	5	02.08.2011 15:21
Загрузка .ico на image через Resource	delphin100	Мультимедиа в Delphi	6	28.01.2009 18:44
Что такое File Server Resource Manager?	Stilet	Операционные системы общие вопросы	2	19.08.2008 17:40

20.12.2009, 13:41	#25
Altera Старожил Регистрация: 29.01.2008 Сообщений: 2,406	Resuorce bilder-ом зря назвал. Есть уже такая и очень не плохая программа для работы с ресурсами А этот WorkShop какой-то долбанутый.