ПРоблема с компиляцией

@Dimasio · Регистрация: 21.10.2012

Студворк — интернет-сервис помощи студентам

Дело такое, при запуске программы в режиме отладки программа работает отлично, как задумано. но если эту же программу запустить вне делфи, просто как exe, то при выполнении некоторых функций возникает ошибка. Ума не приложу что может быть не так с программой, в режиме отладки ошибку отследить невозможно, так как ошибка возникает только при запуске вне делфи! ПРичем я уже писал подобную программу с подобным функционалом, она выполняет эту функцию вне делфи без ошибок, хотя там почти все тоже самое!

Даже знаю с конкретно какой функцией возникает ошибка, WriteBinaryLong. Это специфичная функция, смысла ее значения объяснять нет, но у нее есть 3 входных параметра, два PSafeArray и один символ типа byte. Байт я указываю напрямую, а вот безопасные массивы высчитываются по спец алгоритмам. Ошибка возникает из-за неправильности входных параметров, виноваты могут в этом быть только эта массивы. В режиме отладки эти входные параметры получаются верными, проверял. А вот если запустить просто exe, то что-то становится не так с этими массивами и вылетает ошибка!

В общем вот пример. При выполнении этого кода в режиме компиляции программа работает отлично, но если запустить вне делфи простой ехе, то функция WriteBinaryLong выдает ошибку о неправильности параметров. В режиме отладки отловить ошибку и проверить где конкретно портятся данные невозможно, так как в режиме отладки этой ошибки нет.

Delphi
1
2
3
4
5
6
7
8
9
10
var
StringData: String;
Data, Blocks: PSafeArray;
const Mass: array [0..2] of Byte = (1, 2, 3);
 
begin
Data := Str2ByteArray(StringData);
Blocks := SafeArrayFromByteArray (@Mass, 3);
WriteBinaryLong (Blocks, 0, Data);
end;

У меня получилось решить проблему следующим способом:

Delphi
1
2
3
4
5
6
7
var
StringData: String;
const Mass: array [0..2] of Byte = (1, 2, 3);
 
begin
WriteBinaryLong (SafeArrayFromByteArray (@Mass, 3), 0, Str2ByteArray(StringData));
end;

Я просто напрямую задал входные данные. Теперь программа работает нормально и вне делфи. Вот только я понять не могу, в чем косяк может быть? ПРичем я всегда юзал эту функцию так, как писал в первом варианте и всегда работало нормально. Я еще специально сохранял разные копии моей проги и на раннем этапе моя прога работала нормально по первому варианту а потом начала твориться вот такая фигня. Кто нибудь имеет какие нибудь предположения почему так происходит?

@xNeKiToSx · 18.04.2013, 15:20

try except поможет найти конкретное место возникновения ошибки

@Dimasio · 18.04.2013, 15:58 **[ТС]**

Сообщение от xNeKiToSx

try except поможет найти конкретное место возникновения ошибки

Я им и так активно пользуюсь, этот код как раз таки и стоит между try except. Проблема в том, что в режиме отладки никаких ошибок не возникает, программа работает идеально! А если ее запустить вне делфи, то возникает ошибка ввода, программа указывает на конкретный номер ошибки, то есть срабатывает try except. Это ошибка неправильных входных данных именно этой функции. Вопрос в том, почему в режиме отладки программа работает верно, а по простому запуску нет?? Как такое вообще возможно? Еще нужно учесть то, что функция вызывается по процедуре и ее входные переменные не глобальные, а объявляются внутри процедуры. То есть мне вообще не понятно как портятся данные в этих переменных.

П.С. Пользуюсь Делфи 7.

@volvo · 18.04.2013, 16:11

Если не показываешь реализацию SafeArrayFromByteArray и Str2ByteArray (как минимум) - то тебе надо обращаться на форум экстрасенсов и телепатов. Смотря что ты там накрутил...

@Dimasio · 18.04.2013, 16:41 **[ТС]**

Сообщение от UI

Если не показываешь реализацию SafeArrayFromByteArray и Str2ByteArray (как минимум) - то тебе надо обращаться на форум экстрасенсов и телепатов. Смотря что ты там накрутил...

Str2ByteArray работает 99.9% верно, это функция из специализированного SDK. Она выполняется через COM интерфейс, я даже не знаю как ее можно посмотреть!

А вот SafeArrayFromByteArray. но она точно не причем, так как в аналогичной функции ReadBinarylong, где она так же используется, ошибок никаких нет.

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
function SafeArrayFromByteArray(pba: PByteArray; baSize: Integer) : PSafeArray;
var
  bound: SAFEARRAYBOUND;
  psa: PSafeArray;
  pdata: pointer;
begin
  bound.cElements := baSize;
  bound.lLbound := 1;
  psa:=SafeArrayCreate(varByte,1,bound);
  if psa=nil then
     raise EOutOfMemory.Create('Safe array create failed');
  SafeArrayAccessData(psa,pdata);
  CopyMemory(pdata,pba,bound.cElements);
  SafeArrayUnaccessData(psa);
  SafeArrayFromByteArray:=psa;
end;

@cotseec · 18.04.2013, 16:49

на сколько я понимаю SafeArrayFromByteArray безопасно переводит в массив байт, в качестве аргументов хочет адрес, с которого начинаются данные и количество этих данных (в штуках байт).... так зачем ей подсовывать указатель на начало массива (который не есть начало данных в Delphi), а не начало самих данных? может стоит как-то так

Delphi
1
SafeArrayFromByteArray (@Mass[0], 3);

или я в чем-то ошибаюсь?

@Dimasio · 19.04.2013, 06:51 **[ТС]**

В общем я нашел причину такого странного поведения программы, я допустил в коде очень глупую ошибку. Код, который представлен ниже выполняется перед тем кодом, который я отправлял в первом посту (включил его в код ниже).

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
var
StringData: String;
Data, Blocks, KeyA, KeyB: PSafeArray;
const Mass: array [0..2] of Byte = (1, 2, 3);
 
begin
  try
  //другая прога оперирующая KeyA и KeyB
  finally
    SafeArrayDestroy(KeyA);
    SafeArrayDestroy(KeyA);
  end;
  try
    Data := Str2ByteArray(StringData);
    Blocks := SafeArrayFromByteArray (@Mass, 3);
    WriteBinaryLong (Blocks, 0, Data);
  finally
    SafeArrayDestroy(Data);
    SafeArrayDestroy(Blocks);
  end;
end;

Косяк в том, что я 2 раза подряд уничтожил KeyA (скопировал предыдущую строчку, но забыл поправить на КеуВ)и из-за этого возникает какой-то сбой в памяти и далее все PSafeArray начинают формироваться неверно. Самое интересное, что он возникает только при запуске вне делфи и только на винде ХР, на семёрке программа все равно продолжает работать нормально в любом случае. Но на хрюше эту ошибку отследить не удается, так как в режиме отладки программа работает отлично! В общем это яркий пример, к чему может привести подобная глупая ошибка =))

Новые блоги и статьи Все статьи Все блоги /
Отправка уведомления на почту при изменении наименования справочника Maks 24.03.2026 Программная отправка письма электронной почты на примере изменения наименования типового справочника "Склады" в конфигурации БП3. Перед реализацией необходимо выполнить настройку системной учетной. . .	модель ЗдравоСохранения 5. Меньше увольнений- больше дохода! anaschu 24.03.2026 Теперь система здравосохранения уменьшает количество увольнений. 9TO2GP2bpX4 a42b81fb172ffc12ca589c7898261ccb/ https:/ / rutube. ru/ video/ a42b81fb172ffc12ca589c7898261ccb/ Слева синяя линия -. . .	Midnight Chicago Blues kumehtar 24.03.2026 Такой Midnight Chicago Blues, знаешь?. . Когда вечерние улицы становятся ночными, а ты не можешь уснуть. Ты идёшь в любимый старый бар, и бармен наливает тебе виски. Ты смотришь на пролетающие. . .	SDL3 для Desktop (MinGW): Вывод текста со шрифтом TTF с помощью библиотеки SDL3_ttf на Си и C++ 8Observer8 24.03.2026 Содержание блога Финальные проекты на Си и на C++: finish-text-sdl3-c. zip finish-text-sdl3-cpp. zip
Жизнь в неопределённости kumehtar 23.03.2026 Жизнь — это постоянное существование в неопределённости. Например, даже если у тебя есть список дел, невозможно дойти до точки, где всё окончательно завершено и больше ничего не осталось. В принципе,. . .	Модель здравоСохранения: работники работают быстрее после её введения. anaschu 23.03.2026 geJalZw1fLo Корпорация до введения программа здравоохранения имела много невыполненных работниками заданий, после введения программы количество заданий выросло. Но на выплатах по больничным это. . .	Контроль уникальности заводского номера Maks 23.03.2026 Алгоритм контроля уникальности заводского (или серийного) номера на примере нетипового документа выдачи шин для спецтехники с табличной частью, разработанного в конфигурации КА2. Данные берутся из. . .	Хочу заставить корпорации вкладываться в здоровье сотрудников: делаю мат модель здравосохранения anaschu 22.03.2026 e7EYtONaj8Y Z4Tv2zpXVVo https:/ / github. com/ shumilovas/ med2. git

@xNeKiToSx 332 / 85 / 16 Регистрация: 10.01.2011 Сообщений: 516 Записей в блоге: 1
	18.04.2013, 15:20
	try except поможет найти конкретное место возникновения ошибки 0

@volvo Супер-модератор 33400 / 21510 / 8236 Регистрация: 22.10.2011 Сообщений: 36,908 Записей в блоге: 12
	18.04.2013, 16:11
	Если не показываешь реализацию SafeArrayFromByteArray и Str2ByteArray (как минимум) - то тебе надо обращаться на форум экстрасенсов и телепатов. Смотря что ты там накрутил... 0