Текущий архив: 2004.05.30;
Скачать: CL | DM;

Вниз

Ошибка в ASP-объекте :(   Найти похожие ветки 

← →
Иксик ©   (2004-05-08 12:25) [0]

Может быть кому встречалось такое:
Создается Asp-объект, Threading model = Apartment; Instancing = Multiple instancing; Active Server Type = Page-level event methods;
В нем объявляется функция:
function ADsGetObject(lpszPathName:WideString; const riid:TGUID;
                     out ppObject):HRESULT; safecall;
...
function ADsGetObject; external "activeds.dll";
и

procedure ChangePassword(const Path, OldPass, NewPass: WideString); safecall;
...
procedure TAdsiUserObj.ChangePassword(const Path, OldPass,
 NewPass: WideString);
var
  User: IADsUser;

begin

try
  AdsGetObject(Path, IADsUser, User);
  User.ChangePassword(OldPass,NewPass);
Response.Write("<FONT COLOR="Green">Password was changed Successfully!</FONT>");
except
on E:EOleException do
  begin
    if IntToHex(E.ErrorCode,0)="80070056" then
      Response.Write("<FONT COLOR="Red">Old password is incorrect!</FONT>")
    else
  Response.Write("<FONT COLOR="Red">An error has occured!</FONT>");
  end;
end;

end;

Если возникает исключение, то все проходит нормально - оно обрабатывается и выводится результат. Если же исключения не возникает, то пароль меняется (блок try срабатывает), но вылезает ошибка на странице asp
Active Server Pages error "ASP 0240"

Script Engine Exception

/support/ChangePsw/Change.asp

A ScriptEngine threw expection "C0000005" in "IActiveScript::Close()" from "CActiveScriptEngine::FinalRelease()".

В чем может быть проблема?

---

← →
Иксик ©   (2004-05-08 13:15) [1]

up

---

← →
Иксик ©   (2004-05-08 13:35) [2]

Сделал:
try
 AdsGetObject(Path, IADsUser, User);
 User.ChangePassword(OldPass,NewPass);
Response.Write("<FONT COLOR="Green">Password was changed Successfully!</FONT>");
Raise EOleException.Create("",-1,"","",0);
except
...


Заработало :)

---

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

Текущий архив: 2004.05.30;
Скачать: CL | DM;

Наверх

Память: 0.44 MB
Время: 0.052 c