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

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

ошибка при подключении dll [D5, WinXP]

babayka ©   (2005-02-18 18:33:00) 

Добрго времени суток !!!
Проблемочка вот в чем :
нашел в инете dll которая вызывает диалог выбора цвета с возможностью выбора разных систем координат...colorPicker.dll звется....вот я ее хочу вызвать диалог этот самый по нажатию кнопочки
unit UbuttonRGB;

interface

uses
 Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
 StdCtrls;

type
 TForm1 = class(TForm)
   Button1: TButton;
   procedure Button1Click(Sender: TObject);
 private
   { Private declarations }
 public
   { Public declarations }
 end;
 TRGBRec = record
    b, g, r, a : byte;
 end;
 PRGBRec = ^TRGBRec;
 TPickColorFunc = function(pParent : HWND; var colText, colBack :  TRGBRec) : cardinal; stdcall;

var
 Form1: TForm1;

 
implementation

{$R *.DFM}

var
 hModule : THandle;
 func : TPickColorFunc;
 ret : cardinal;
 colText, colBack : TRGBRec;

procedure TForm1.Button1Click(Sender: TObject);
begin

 func := TPickColorFunc(GetProcAddress(hModule, 'PickColor'));
 if (not Assigned(func)) then
 begin
   FreeLibrary(hModule);
   Exit;
 end;

 ret := func(0, colText, colBack);
end;
initialization
  hModule := LoadLibrary('ColorPicker.dll');
 if (HModule = 0) then Exit;
end.



диалог открывается я выбираю цвет но при закрытии диалога постоянно выскакивает ошибка
Projeect PRbuttonRGB.exe raised exception class EFccess Violation with massage Access Violation at address 00000000 .Read of address 00000000.Process stopped.Use Step to Run to continue.

---

GuAV   (2005-02-18 22:06:00) [1]

Как функция описана в доке к DLL ?

Точно что stdcall ? возможно cdecl...

---

babayka   (2005-02-18 19:04:00) [2]

попробовал вот такой код
unit UbuttonRGB;

interface

uses
 Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
 StdCtrls;

type
 TForm1 = class(TForm)
   Button1: TButton;
   procedure Button1Click(Sender: TObject);
 private
   { Private declarations }
 public
   { Public declarations }
 end;
 TRGBRec = packed record
    b, g, r, a : byte;
 end;
 PRGBRec = ^TRGBRec;
 TPickColorFunc = function(pParent : HWND; var colText, colBack :  TRGBRec) : cardinal; stdcall;

var
 Form1: TForm1;

implementation

{$R *.DFM}
var
 hModule : THandle;
 func : TPickColorFunc;
 ret : cardinal;
 colText, colBack : TRGBRec;



procedure TForm1.Button1Click(Sender: TObject);
begin
 hModule := LoadLibrary('ColorPicker.dll');
 if (HModule = 0) then Exit;
 func := TPickColorFunc(GetProcAddress(hModule, 'PickColor'));
 if (not Assigned(func)) then
 begin
   FreeLibrary(hModule);
   Exit;
 end;

 ret := func(0, colText, colBack);

end;

end.
результат к сожалению тот же...............

---

Набережных С.   (2005-02-18 18:45:00) [3]

Во-первых, вероятнее всего TRGBRec должен быть packed record. Во-вторых, уверен ли ты в правильности декларации функции? Ну и в-третьих, лучше спросить у авторов этой библиотеки.

---

Poirot   (2005-02-18 18:43:00) [4]

Просто интересно - а гед ты делаешь FreeLibrary если у тя всё сработало хорошо?:) И вообще что-то у тя всё радикально в Exit:)

---

Наверх