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

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

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

Восстановить пароль

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

Ответ
 
Опции темы Поиск в этой теме
Старый 17.02.2011, 12:02   #1
t2skler
Форумчанин
 
Аватар для t2skler
 
Регистрация: 25.11.2010
Сообщений: 164
По умолчанию Загрузка пикчи из Dll

Создаю файл Res.rs с таким содержанием:
MYJPEG JPEG C:\D\MY.JPG
MYJPEG2 JPEG C:\D\MY2.JPG
MONEY BMP C:\D\money.bmp
Компилирую brcc32 получаю .Res файл.

Далее создаю проект Dll:
Код:
library Project2;
{$R Res.res}
begin
end.
Компилирую библиотеку.

Далее создаю конечный проект. Кидаю на форму имаг и баттон.
Код:
procedure TForm1.Button1Click(Sender: TObject);
var H: THandle; ImageStream: TResourceStream; Image: TImage;
begin
H:=LoadLibrary('C:\E\Project2.Dll');
ImageStream:=TResourceStream.Create(H,'MYJPEG',RT_RCDATA);
Image.Picture.Graphic:=TJPEGImage.Create;
Image.Picture.Graphic.LoadFromStream(ImageStream);
Image1.Picture:=Image.Picture;
Image.Free;
FreeLibrary(h);
end;
Выдаёт ошибку: Resource MYJPEG not found. Подскажите пожалуйста в чём трабла?
Возможно Я Быдлокодер ©.
t2skler вне форума Ответить с цитированием
Старый 17.02.2011, 12:46   #2
veniside
Старожил
 
Регистрация: 03.01.2011
Сообщений: 2,508
По умолчанию

Цитата:
MYJPEG JPEG C:\D\MY.JPG

TResourceStream.Create(H,'MYJPEG',RT_RCDATA);
не ?
"Когда приходит положенное время, человек перестаёт играть в пинбол. Только и всего."
veniside вне форума Ответить с цитированием
Старый 17.02.2011, 12:48   #3
CepbIu
Пользователь
 
Регистрация: 12.02.2011
Сообщений: 91
По умолчанию

хараша русская языка....
напишеь всё на нормальном языке - покажу как надо такое делать
CepbIu вне форума Ответить с цитированием
Старый 17.02.2011, 13:00   #4
asmodey1
Подтвердите свой е-майл
 
Регистрация: 19.12.2010
Сообщений: 808
По умолчанию

Цитата:
Сообщение от t2skler Посмотреть сообщение
Выдаёт ошибку: Resource MYJPEG not found. Подскажите пожалуйста в чём трабла?
Нет такого типа ресурсов, как "JPEG".
Зато есть универсальный тип - "USER DATA". (См. еще пост 2).
И еще смотрим (на всякий случай):
http://www.programmersforum.ru/showt...F0%F1%E0%EC%E8
asmodey1 вне форума Ответить с цитированием
Старый 17.02.2011, 13:55   #5
t2skler
Форумчанин
 
Аватар для t2skler
 
Регистрация: 25.11.2010
Сообщений: 164
По умолчанию

Сделал по другому и получилось:
Код:
var H: THandle; Res: TResourceStream;
begin
  H:=LoadLibrary('Project2.dll');
  if H<>0 then
   begin
    Res:=TResourceStream.Create(H,'MONEY','BMP');
    Image1.Picture.Bitmap.LoadFromStream(Res);
    Res.Free;
  end;
end;
Возможно Я Быдлокодер ©.

Последний раз редактировалось t2skler; 17.02.2011 в 17:12.
t2skler вне форума Ответить с цитированием
Старый 17.02.2011, 13:58   #6
CepbIu
Пользователь
 
Регистрация: 12.02.2011
Сообщений: 91
По умолчанию

ты разницу между типами ресурсов понимаешь?
CepbIu вне форума Ответить с цитированием
Старый 17.02.2011, 17:15   #7
t2skler
Форумчанин
 
Аватар для t2skler
 
Регистрация: 25.11.2010
Сообщений: 164
По умолчанию

Цитата:
Сообщение от CepbIu Посмотреть сообщение
ты разницу между типами ресурсов понимаешь?
Неа, вообще не понимаю, что это такое и что мне с этим делать.
Возможно Я Быдлокодер ©.
t2skler вне форума Ответить с цитированием
Старый 18.02.2011, 20:42   #8
Пепел Феникса
Старожил
 
Аватар для Пепел Феникса
 
Регистрация: 28.01.2009
Сообщений: 21,000
По умолчанию

тип ресурсов должен совпадать, тот же что указан в rc надо пытатся грузить и в поток.
Хорошо поставленный вопрос это уже половина ответа. | Каков вопрос, таков ответ.
Программа делает то что написал программист, а не то что он хотел.
Функции/утилиты ждут в параметрах то что им надо, а не то что вы хотите.
Пепел Феникса вне форума Ответить с цитированием
Ответ


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



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
[DLL] Загрузка и выгрузка dll в/из чужого процесса Человек_Борща Win Api 4 28.02.2010 17:47
Загрузка dll Колючка* Общие вопросы Delphi 3 12.02.2010 19:45
Программа для превращения одной пикчи в другую Alex Cones Софт 2 22.07.2009 19:07
загрузка .dll blackstersl Общие вопросы Delphi 1 29.04.2009 21:53
Загрузка DLL Hollander Общие вопросы Delphi 3 21.05.2007 20:19