[kirillka21]

Всем привет. Проблема в следующем. Есть библиотека Login.dll, которая вызывает открытие формы ввода пароля и юзернэйма. Вообщем вот...

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115

library LOGIN; uses SysUtils, Classes, uLogin in 'uLogin.pas' {fLogin}, uLoginData in '..\common\uLoginData.pas';   {$R *.res} exports ShowLoginDialog name ' ShowLoginDialog';   begin end.     Далее...сама ShowLoginDialog   unit uLogin;   interface   uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls,uLoginData;   type TfLogin = class(TForm) Label1: TLabel; Label2: TLabel; ebUserName: TEdit; ebPassword: TEdit; btnOK: TButton; btnCancel: TButton; procedure FormShow(Sender: TObject); procedure btnOKClick(Sender: TObject); procedure btnCancelClick(Sender: TObject); private { Private declarations } public { Public declarations } LoginData: TLoginData; end; procedure ShowLoginDialog(Handle: Thandle; p: pointer); var fLogin: TfLogin;   implementation   {$R *.dfm} procedure ShowLoginDialog(Handle: Thandle; p: pointer); Begin Application.Handle:= Handle; fLogin:=Tflogin.Create(Application) ; flogin.LoginData:=TLoginData(p); fLogin.ShowModal; fLogin.Free; End;   procedure TfLogin.FormShow(Sender: TObject); begin ebPassword.Text:=''; end;   procedure TfLogin.btnOKClick(Sender: TObject); begin LoginData.user_id:=ebUserName.Text; LoginData.password:=ebPassword.Text ; LoginData.Modalresult:=mrOk; end;   procedure TfLogin.btnCancelClick(Sender: TObject); begin LoginData.Modalresult:=mrCancel; end;   end.   И непосредственно сам код главного модуля...   procedure TfMain.soed1Click(Sender: TObject); type TShowLoginDialog=procedure(Handle:T Handle; pointer ); var hLib: Thandle; Showlogindialog: TshowloginDialog; Logindata:Tlogindata; begin HLib:=LoadLibrary('Login.DLL'); if hlib<32 then Begin Showmessage('отсутствует библиотека login.dll'); exit; End; LoginData:=TloginData.create; Showlogindialog:=TshowloginDialog(G etProcAddress(hLib,'SHOWLOGINDIALOG ')); Showlogindialog(Application.Handle, LoginData);//ВОТ ЗДЕСЬ ОШИБКА!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!! Freelibrary(hLib);   if LoginData.modalresult=mrOk then Begin try with fDM.DataBase1 do Begin if Connected then Close; LoginPrompt:=false; Params.Values['Password']:=Trim(LoginData.password); Params.Values['User name']:=Trim(LoginData.user_id); Open; End; Statusbar1.simpletext:='Yes'; except Statusbar1.simpletext:='No'; End; End;   end;

Admin: Пользуемся тегами!

Вообщем вылазить ошибка где указал и там написано access violation at address 00000000. Read of address 0000000. Вообщем почему то не вызывается процедура showlogindialog, экспортируемая из DLL.
Что это может быть я не знаю. Будьте добры помогите!!!

[Ama]

А трассировал саму dll? . а в основном модуле строка:

Код:

1	Showlogindialog:=TshowloginDialog(G etProcAddress(hLib,'SHOWLOGINDIALOG '));

по моему пишется так:

Код:

1	@Showlogindialog:=GetProcAddress(hLib,'SHOWLOGINDIALOG ');