|
Вопрос # 4 081/ вопрос открыт / |
|
Доброго времени суток, уважаемые эксперты!
Подскажите, пожалуйста, как на прямую (Не сохраняя в файл) вынуть из Dll картинку в формате *.ICO . И отобразить в Image.
К вопросу прикреплён файл. Загрузить » (срок хранения: 60 дней с момента отправки вопроса)
Приложение: Переключить в обычный режим- procedure TForm1.Button1Click(Sender: TObject);
- var
- h: thandle;
- Res: TResourceStream;
- begin
- h := LoadLibrary('Data.dll');
- if handle <> 0 then begin
- res:= TResourceStream.Create(h,PChar('#1'),RT_RCDATA);
- res.saveToFile('temp.ico');
- image1.Picture.LoadFromFile('temp.ico');
- res.free;
- end;
- end;
 |
Вопрос задал: Kyran29 (статус: Посетитель)
Вопрос отправлен: 23 апреля 2010, 21:26
Состояние вопроса: открыт, ответов: 0.
|
Мини-форум вопроса
Всего сообщений: 8; последнее сообщение — 25 апреля 2010, 11:43; участников в обсуждении: 2.
|
min@y™ (статус: Доктор наук), 23 апреля 2010, 21:35 [#1]:
Image.picture.loadfromstream()
прошу прощения, пролил пиво на клаву...
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
|
|
|
Kyran29 (статус: Посетитель), 23 апреля 2010, 23:18 [#2]:
min@y™: Большое спасибо!
Помогло.
image1.Picture.Icon.LoadFromStream(res);
|
|
|
Kyran29 (статус: Посетитель), 23 апреля 2010, 23:20 [#3]:
min@y™: Оценку поставить ?
|
|
|
min@y™ (статус: Доктор наук), 25 апреля 2010, 09:52 [#4]:
Цитата (Kyran29):
Оценку поставить ?
Это ж не ответ.
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
|
|
|
Kyran29 (статус: Посетитель), 25 апреля 2010, 11:18 [#5]:
min@y™: Почему не ответ?
Вопрос звучал так:
«как на прямую (Не сохраняя в файл) вынуть из Dll картинку в формате *.ICO»
Вот из этого:
"Image.picture.loadfromstream()
прошу прощения, пролил пиво на клаву..."
Я считаю ответом (подсказкой) вот это:
Image.picture.loadfromstream()
Вопрос был решен!
image1.Picture.Icon.LoadFromStream(res);
А за ответ полагается, ставить оценки.
Я ставлю 5.
|
|
|
min@y™ (статус: Доктор наук), 25 апреля 2010, 11:21 [#6]:
Цитата (Kyran29):
Почему не ответ?
Потому что это сообщение на форуме.
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
|
|
|
Kyran29 (статус: Посетитель), 25 апреля 2010, 11:31 [#7]:
Хорошо, но это сообщение, дало мне подсказку, для решения вопроса.
|
|
|
min@y™ (статус: Доктор наук), 25 апреля 2010, 11:43 [#8]:
Цитата (Kyran29):
Хорошо, но это сообщение, дало мне подсказку, для решения вопроса.
С тебя пиво.  )
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
|
Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте.
|
