Выскакивает тут (иногда, не на каждом цикле):

Код

for i:=0  to DataSize-1 do abtQuest[i]:=Byte(sQuest[i+1]);

Причину установить не могу, но не влияет на работу проги.

Проверял с ним разобраться таким образом:

Код

try for i:=0  to DataSize-1 do abtQuest[i]:=Byte(sQuest[i+1]); except end;

Но почему-то все равно его выводит... Хотя по задумке должно ловить ошибку и ничего не предпринимать в этом случае...

1). Раз всё равно выводит ошибку, значит ошибка не там
2). Напиши поподробнее плиз, что за abtQuest, sQuest, их размеры и тип.

P.S. я бы что-нибудь написал в except, хоть showmessage, тогда точно увидишь, отлавливает он её или нет, а так не понятно, может он и отловил, но выполнять-то нечего в except'e.

TheAviator, если ошибка там, но окно вываливается, то:
а) Tools->Debugger Options->Language Exceptions->Stop on Delphi Excpetions - вот эту галочку отключи
б) запусти программу не из Delphi

Код

1). Раз всё равно выводит ошибку, значит ошибка не там

- Я запускал в режиме отладки. Вываливается на этой строке.

Код

если ошибка там, но окно вываливается, то: а) Tools->Debugger Options->Language Exceptions->Stop on Delphi Excpetions - вот эту галочку отключи б) запусти программу не из Delphi

- Не из Дельфи тоже вываливается! А тот вариант что ты предложил это только для режима отладки?

Данные принимаютя от компонента Com-порта, он возращает указатель на данные и их размер. Я загоняю необходимые мне байты в строку, а потом преобразовываю их в массив. Таким образом получаю обмен двоичными данными (не ASCCII). Компонетов в проге два, в разных DataModul-ях.
Кусочек кода с определением переменных и заголовком процедыры ниже.

Код

procedure TDMExchangeExt.CPortReceiveData(Sender: TObject; DataPtr: Pointer;  DataSize: Cardinal); var iLastLine, i, p1: integer;    sQuest  : string;    abtQuest: array [0..20] of byte;    abtReply: array[0..28] of byte;    pReply  : pointer; begin  sQuest:=' ';  sQuest := StringOfChar( ' ', DataSize );  sInput:=' ';  for i:= 0 to 20 do abtQuest[i]:=0;  move( DataPtr^, pchar(sQuest)^, DataSize );  for i:=0  to DataSize-1 do abtQuest[i]:=Byte(sQuest[i+1]);  for i:=0  to DataSize-1 do sInput:=sInput+inttostr(abtQuest[i])+' '; .......................... ..........................

Это сообщение отредактировал(а) TheAviator - 7.2.2004, 15:19

Попробуй так:

Код

SetLength(sQuest, DataSize); sInput := ' '; move (DataPtr^, sQuest[1], DataSize); move (abtQuest, sQuest[1], DataSize); for i := 0 to DataSize-1 do sInput := sInput + inttostr(abtQuest[i])+' ';

А ошибка была у тебя в строке с move: вместо PChar(sQuest)^ надо sQuest[1]

Опа. Кажется, я понял, почему почему вылетало Access Violation.
По задумке действительно, не должно было приходить пакетов длинней 20 байт.
Но иногда приходили длинные (ошибочные, или склееные пакеты), большей длины.
Строка подгоняла свой размер под размер пакета, а массив так и оставался длинной до 20.
В том самом операторе происходило обращение к несуществуюущему элементу массива, на что и выдавалось Access Violation.
Исправляется так :

Код

if DataSize>20 then DataSize:=20;

Кстати, так на вопрос топика и не ответили:

Цитата

КАК ЗАПРЕТИТЬ ПРИЛОЖЕНИЮ ВЫДАВАТЬ ACEES VIOLATION ВО ВРЕМЯ ИСПОЛНЕНИЯ?

Цитата(TheAviator @ 7.2.2004, 16:50)

Кстати, так на вопрос топика и не ответили: Цитата КАК ЗАПРЕТИТЬ ПРИЛОЖЕНИЮ ВЫДАВАТЬ ACEES VIOLATION ВО ВРЕМЯ ИСПОЛНЕНИЯ?

Posol ответил. Это у тебя что-то напутано.

если в Delphi, то как сказал Посол, иначе try с пустым except. Если же не поможет, тогда что-то делаете неправильно.

А есть ли возможность убрать остановки только по эксепшинам, захваченым в try..except..end?

Если надо убрать остановку на исключениях, возникающих в try..except, то:

Цитата

Tools->Debugger Options->Language Exceptions->Stop on Delphi Excpetions - вот эту галочку отключи

Или что-то другое надо ?

А я думаю, что нужно прелопатить весь код проги и посмотреть, моежет усть какие-то незакрытые хендлы (файлы, прцессы, потоки ...). В обшем ка было уже сказано выясни на какой строке вылетает ошибка, а потом посмотри код который как либо связан с использованными переменными. Иногда даже помогает перенести старый код на новый проект.

1) Access Violation - это однозначно критическая ситуация которую надо исправлять не путём отлова её, а путём исправления кода и недопущения. Это очень серьёзная ошибка, её игнорирование может привести к очень малопонятным и труднообъяснимым изменениям в поведении программы. Поэтому в каждом конкретном случае попытаться надо отловить ошибку и устранить причину а не следствие.

2) Отлов именно Access Violation:

Код

try //твой код  except    on e:Exception do if e is EAccessViolation then      Showmessage('AV is occured!')    else      raise;  end;

Этот код даст сообщение если Access Violation и оставит ошибку неотловленной если она другой природы
Добавлено @ 22:18

Цитата(TheAviator @ 7.2.2004, 00:17)

Причину установить не могу, но не влияет на работу проги.

Это не всегда так, зависит что именно с памятью происходит. Например если отключить проверку массивов то следующий код может на ура пройти:

Код

var a:array[1..3] of integer; ... a[100]:=10;

Но изменённые хрен-знает-где байты могут затереть чего-то относящиеся к соверженно другому и внезапно при каком-то стечении обстоятельств вдруг строка кода типа:

Код

i:=10;

вдруг выдаст Access Violation! Эти ошибки "плавающие" - они могут появлятся или нет в зависимости от погоды, причём выскакивать в самых разных и странных местах. Поэтому такой код который вы написали следует очень-очень внимательно проверять, особенно если возникает AV