Форум: "Потрепаться";
Текущий архив: 2004.05.30;
Скачать: [xml.tar.bz2];
Вниз
Ошибка в 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;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.041 c
