Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 2004.08.15;
Скачать: [xml.tar.bz2];

Вниз

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

 
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;
Скачать: [xml.tar.bz2];

Наверх




Память: 0.44 MB
Время: 0.036 c
8-1086099708
Alex_F
2004-06-01 18:21
2004.08.15
Поддержка AVI


4-1088599175
Андрюшенька
2004-06-30 16:39
2004.08.15
Winamp -> Next Track


1-1091013467
Балкон
2004-07-28 15:17
2004.08.15
QuickReport и константы qrdMetafile qrdPrinter


1-1091091662
tria
2004-07-29 13:01
2004.08.15
Как вызвать виртуальный перекрытый метод предка?


1-1091377384
ferr
2004-08-01 20:23
2004.08.15
RDTSC





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский