Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.08.15;
Скачать: CL | DM;

Вниз

почему возникает ошибка...   Найти похожие ветки 

 
Dysan ©   (2004-08-02 17:48) [0]

почему возникает ошибка при Form.FormDestroy
а точнее в модуле XMLDOC
при FDocumentNode := nil; в процедуре

procedure TXMLDocument.ReleaseDoc(const CheckSave: Boolean = True);
begin
 if CheckSave then
   CheckAutoSave;
 FDocumentNode := nil; <---- ???
 FDOMPersist := nil;
 FDOMDocument := nil;
 FDOMParseOptions := nil;
 FPrefixID := 0;
 SetModified(False);
 if not (DocSource in [xdsNone, xdsXMLProperty]) then
   SetXMLStrings("");
end;

вылетает вот тут :

function _IntfClear(var Dest: IInterface): Pointer;
{$IFDEF PUREPASCAL}
var
 P: Pointer;
begin
 Result := @Dest;
 if Dest <> nil then
 begin
   P := Pointer(Dest);
   Pointer(Dest) := nil;
   IInterface(P)._Release;
 end;
end;
{$ELSE}
asm
       MOV     EDX,[EAX]
       TEST    EDX,EDX
       JE      @@1
       MOV     DWORD PTR [EAX],0
       PUSH    EAX
       PUSH    EDX
       MOV     EAX,[EDX]  <----!!!!
       CALL    DWORD PTR [EAX] + VMTOFFSET IInterface._Release
       POP     EAX
@@1:
end;
{$ENDIF}

И кричит что была совершена ошибка чтения по такому-то адреса.
как это исрпавить?


 
Игорь Шевченко ©   (2004-08-02 18:12) [1]

Наверное потому, что интерфейс уже кто-то освободил, нет ?


 
Dysan ©   (2004-08-02 18:25) [2]

сам я этого не делал.



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

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

Наверх




Память: 0.47 MB
Время: 0.05 c
6-1086976103
Shopot
2004-06-11 21:48
2004.08.15
Проверка соеденения Интернет.


14-1091016756
Kreogen
2004-07-28 16:12
2004.08.15
Помогите с конфигурацией


1-1091096635
Прямой
2004-07-29 14:23
2004.08.15
OpenDialog


14-1090841946
Ega23
2004-07-26 15:39
2004.08.15
Опять DOS-атака?


3-1090419254
Bacuc
2004-07-21 18:14
2004.08.15
АвтоОбновление