Скачать: CL | DM;

Точка входа в процедуру не найдена   Найти похожие ветки 

← →
Help ©   (2003-10-02 15:24) [0]

uses
Windows,
Graphics;

{$R DllRes.res}
procedure DrawBMP (handle: THandle); export; stdcall;
var
wrkBitmap : TBitmap;
wrkcanvas : TCanvas;
begin
wrkbitmap:=TBitmap.Create;
wrkcanvas:=tcanvas.Create;
try
wrkbitmap.LoadFromResourceName(HInstance, "BMP1");
wrkcanvas.Handle:= handle;
wrkcanvas.Draw(0,0, wrkbitmap);
finally
wrkcanvas.Free;
wrkbitmap.free;
end;
end;
exports
DrawBMP;

begin
end.
Это код вывода изображения из res-файла на форму.
Выполняется по кнопке:
drawbmp (canvas.handle);
Почему выдаётся сообщение, что точка входа в процедуру drawbmp не найдера в dll? (Я и res и dll скопировал в папку с проектом).

---

← →
han_malign ©   (2003-10-02 15:42) [1]

The directives near, far, and export refer to calling conventions in 16-bit Windows programming.

procedure DrawBMP (handle: THandle); {export; } stdcall;

---

← →
Mike B. ©   (2003-10-02 15:43) [2]

В exports задай имя или индекс

---

← →
MBo ©   (2003-10-02 15:43) [3]

А как подключаешь DLL?

---

← →
Help ©   (2003-10-02 15:55) [4]

han_malign © (02.10.03 15:42) [1]
Не, все то же самое :(

Mike B. © (02.10.03 15:43) [2]
А я что сделал?
exports
DrawBMP;

MBo © (02.10.03 15:43) [3]
implementation
procedure drawbmp(handle:THandle);stdcall; External"Help.dll";
Файлы dll и res скопирован в папку с проектом.

---

← →
han_malign ©   (2003-10-02 16:00) [5]

а у нас имена функций в DLL случаем не CaseSensitive?

---

← →
Mike B. ©   (2003-10-02 16:00) [6]

> Help ©
Пардон, проглядел.

---

← →
Verg ©   (2003-10-02 16:03) [7]

> а у нас имена функций в DLL случаем не CaseSensitive?


Стопудово...

---

← →
Verg ©   (2003-10-02 16:03) [8]

В смысле стопудово CaseSensitive

---

← →
Afn ©   (2003-10-02 16:04) [9]

А если динамически попробовать загрузить.И затем GetProcAddress (кажется так).

---

← →
Help ©   (2003-10-02 16:06) [10]

han_malign © (02.10.03 16:00) [5]
Точно, спасибо.

---

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

Скачать: CL | DM;



Память: 0.47 MB
Время: 0.01 c