Форум: "Основная";
Текущий архив: 2005.01.23;
Скачать: [xml.tar.bz2];

Вниз

Как грузить из DLL рисунок   Найти похожие ветки 

← →
Skiner_Y ©   (2005-01-09 17:23) [0]

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

---

← →
AlexG ©   (2005-01-09 17:39) [1]

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

---

← →
grom   (2005-01-09 18:50) [2]

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("&#205;&#229; &#243;&#228;&#224;&#235;&#238;&#241;&#252; &#231;&#224;&#227;&#240;&#243;&#231;&#232;&#242;&#252; &#232;&#231;&#238;&#225;&#240;&#224;&#230;&#229;&#237;&#232;&#229;");
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("&#205;&#229; &#243;&#228;&#224;&#235;&#238;&#241;&#252; &#231;&#224;&#227;&#240;&#243;&#231;&#232;&#242;&#252; &#232;&#231;&#238;&#225;&#240;&#224;&#230;&#229;&#237;&#232;&#229;");
end;

---

Страницы: 1 вся ветка

Форум: "Основная";
Текущий архив: 2005.01.23;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.45 MB
Время: 0.034 c