| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Как грузить из DLL рисунок [D7, WinXP]

Skiner_Y ©   (2005-01-09 17:23:00) 

Как можно загрузить рисунок из dll в TImage

---

grom   (2005-01-09 18:50:00) [1]

var H : THandle;

procedure TForm1.Button1Click(Sender: TObject);
begin
H := LoadLibrary('MyDll.dll');
if H 0
then begin
 Image1.Picture.Bitmap.Handle := LoadBitmap(H,'BDelphi');
 FreeLibrary(H);
end
else ShowMessage('Íå óäàëîñü çàãðóçèòü èçîáðàæåíèå');
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
H := LoadLibrary('MyDll.dll');
if H 0
then begin
 Image1.Picture.Bitmap.Handle := LoadBitmap(H,'BEarth');
 FreeLibrary(H);
end
else ShowMessage('Íå óäàëîñü çàãðóçèòü èçîáðàæåíèå');
end;

---

AlexG   (2005-01-09 17:39:00) [2]

Создай ресурсную DLL. Копай в этом направлении, сам не занимался этим.

---

Наверх