VPF::Проблема в коде - Форум программистов

Budy

Дата 20.10.2004, 18:03 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 616
Регистрация: 6.2.2004
Где: Екатеринбург

Репутация: 1
Всего: 2

:Приветствую.

Код

type
 //Процедуры из DLL'ки
 TDrawButton = procedure(Im: TImage; Capt: String); stdcall;

procedure LoadAndProc(DLLName:string);
var
 Proc1: TDrawButton;
begin
 if DLLOpen=False then FreeLibrary(DLLhc); DLLOpen:=True;
 DLLhc:=LoadLibrary(PChar(DLLName));
 if DLLhc<=HINSTANCE_ERROR then begin
  ShowMessage('Отсутсвует библиотека '+DLLName);
  Halt(1);
 end;
  Proc1(Form1.Image1,'Hello');
if not Assigned(Proc1)then begin ShowMessage('Stupid');Halt(0);end;

end;

Я вроде все правильно пишу, в чем тут проблема-то? :notify

--------------------

Как ты назовешь свой корабль, так на нем и напишут
user posted image

decoder

Дата 20.10.2004, 18:23 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 204
Регистрация: 18.5.2004
Где: Харьков(хохол, к сожалению)

Репутация: нет
Всего: -1

Цитата(Budy @ 20.10.2004, 18:03)

type
//Процедуры из DLL'ки
TDrawButton = procedure(Im: TImage; Capt: String); stdcall;

procedure LoadAndProc(DLLName:string);
var
Proc1: TDrawButton;
begin
if DLLOpen=False then FreeLibrary(DLLhc); DLLOpen:=True;
DLLhc:=LoadLibrary(PChar(DLLName));
if DLLhc<=HINSTANCE_ERROR then begin
ShowMessage('Отсутсвует библиотека '+DLLName);
Halt(1);
end;

{отета забыл...}
@Proc1 := GetProcAdress(DLLhc, 'имя функции');

Proc1(Form1.Image1,'Hello');
if not Assigned(Proc1)then begin ShowMessage('Stupid');Halt(0);end;

end;

Это сообщение отредактировал(а) decoder - 20.10.2004, 18:24

--------------------

Молчать, я вас спрашиваю!

Budy

Дата 20.10.2004, 18:37 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 616
Регистрация: 6.2.2004
Где: Екатеринбург

Репутация: 1
Всего: 2

Thanks.

--------------------

Как ты назовешь свой корабль, так на нем и напишут
user posted image

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »