Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Общие вопросы Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 18.01.2010, 15:35   #1
Volkogriz
Форумчанин
 
Аватар для Volkogriz
 
Регистрация: 11.10.2007
Сообщений: 384
Восклицание Загрузка изображения из exe

Добрый день!
Вазникла проблемма с загруской изоброжения из исполняймого файла!
Я знаю имя и раздел картинки например 'bitmap' имя ресурса '130'
но чтоб я неделал выдаётся ошибка рисунок 130 ненайден!
Подскажите плиз любой вариант!
С уважением Volkogriz!
Не количеством плюсов измеряется репутация человека...!
Volkogriz вне форума Ответить с цитированием
Старый 18.01.2010, 15:38   #2
mihali4
*
Старожил
 
Регистрация: 22.11.2006
Сообщений: 9,201
По умолчанию

Для начала - выкладывайте ваш вариант.
Будем искать ошибку.
mihali4 вне форума Ответить с цитированием
Старый 18.01.2010, 15:44   #3
Volkogriz
Форумчанин
 
Аватар для Volkogriz
 
Регистрация: 11.10.2007
Сообщений: 384
По умолчанию

Вот один вареант!
Код:
procedure TForm1.FileListBox1Click(Sender: TObject);
var
  handle : THandle;
  res :TResourceStream; 
begin
  handle := LoadLibrary(PChar(FileListBox1.FileName)); 
  if handle <> 0 then 
  res:= TResourceStream.Create(handle,'130','bitmap');
  image1.Picture.LoadFromFile(pchar(res)); 
  res.free; 
  FreeLibrary(handle); 
begin
Form1.Edit1.text:= FileListBox1.FileName;
end;
end;
У нас принято оформлять код специальным тэгом - при помощи кнопочки "#".
Только...
И не значком #.
И не РНР-кодом.
И не значком цитаты.
И не собственными "ручками".
Рекомендую. Помимо общих правил форума есть и дополнения к ним в каждом разделе...
Модератор
Не количеством плюсов измеряется репутация человека...!

Последний раз редактировалось mihali4; 18.01.2010 в 15:54.
Volkogriz вне форума Ответить с цитированием
Старый 18.01.2010, 16:01   #4
raxp
Старожил
 
Регистрация: 29.09.2009
Сообщений: 9,713
По умолчанию

тырк <<< проверьте тип, может RT_BITMAP ? ...собственно и 130 мне не нравиться...
Разработки и научно-технические публикации :: Видеоблог :: Твиттер
Radar systems engineer & Software developer of industrial automation

Последний раз редактировалось raxp; 18.01.2010 в 16:03.
raxp вне форума Ответить с цитированием
Старый 18.01.2010, 16:03   #5
mihali4
*
Старожил
 
Регистрация: 22.11.2006
Сообщений: 9,201
По умолчанию

При чем тут LoadFromFile ?
Код:
image1.Picture.Bitmap.LoadFromStream();
И длль-ка откуда?
Но, на всякий случай:
Код:
//Как загрузить bmp файл из dll? 
procedure tform1.button1click(sender: tobject); 
var 
amodule: thandle; 
begin 
amodule := loadlibrary('images.dll'); 
image1.picture.bitmap.loadfromresourcename(amodule, 'startmine'); 
freelibrary(amodule); 
end;

Последний раз редактировалось mihali4; 18.01.2010 в 16:23.
mihali4 вне форума Ответить с цитированием
Старый 18.01.2010, 16:12   #6
Volkogriz
Форумчанин
 
Аватар для Volkogriz
 
Регистрация: 11.10.2007
Сообщений: 384
По умолчанию

Извените но я пробовал повсякому!
Дело в том что этот файл lognui.exe и имена я немогу сменить!
Мне нужно просматреть в image1 ресурс '130' картинка!
Нашол несколько вариантов загрузки ни один не подоол(
Не количеством плюсов измеряется репутация человека...!
Volkogriz вне форума Ответить с цитированием
Старый 18.01.2010, 16:37   #7
raxp
Старожил
 
Регистрация: 29.09.2009
Сообщений: 9,713
По умолчанию

однако ресурсы bitmap в logonui.exe упакованы...
Разработки и научно-технические публикации :: Видеоблог :: Твиттер
Radar systems engineer & Software developer of industrial automation
raxp вне форума Ответить с цитированием
Старый 18.01.2010, 16:47   #8
Volkogriz
Форумчанин
 
Аватар для Volkogriz
 
Регистрация: 11.10.2007
Сообщений: 384
По умолчанию

Всмысле
Цитата:
Сообщение от raxp Посмотреть сообщение
однако ресурсы bitmap в logonui.exe упакованы...
ResHacker их без проблем просматривает!
Может кто нибуть поможет мне плиз!
Не количеством плюсов измеряется репутация человека...!
Volkogriz вне форума Ответить с цитированием
Старый 18.01.2010, 16:53   #9
Пепел Феникса
Старожил
 
Аватар для Пепел Феникса
 
Регистрация: 28.01.2009
Сообщений: 21,000
По умолчанию

вам Михалыч привел пример кода, что трудно свои имена вписать?
Хорошо поставленный вопрос это уже половина ответа. | Каков вопрос, таков ответ.
Программа делает то что написал программист, а не то что он хотел.
Функции/утилиты ждут в параметрах то что им надо, а не то что вы хотите.
Пепел Феникса вне форума Ответить с цитированием
Старый 18.01.2010, 16:55   #10
raxp
Старожил
 
Регистрация: 29.09.2009
Сообщений: 9,713
По умолчанию

у меня logonui стандартный и он упакован... reshacker-ом и смотрел, но только до имен...дальше не берет
Разработки и научно-технические публикации :: Видеоблог :: Твиттер
Radar systems engineer & Software developer of industrial automation
raxp вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Загрузка изображения в JFrame java_java_java Общие вопросы по Java, Java SE, Kotlin 2 30.07.2009 18:31
Загрузка изображения на сайт KiDoki Работа с сетью в Delphi 3 22.06.2009 21:27
Загрузка изображения из потока Joe_Tribbiani Общие вопросы Delphi 1 22.04.2009 03:07
Загрузка изображения в MySQL [Smarik] БД в Delphi 0 13.02.2009 09:04
Загрузка изображения JRcoker Мультимедиа в Delphi 15 04.11.2008 18:32