VPF::TObjectQueue.Free вызывает эксепшн - Форум программистов

Gershkovich

Дата 24.5.2006, 15:37 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 243
Регистрация: 8.2.2006

Репутация: 0
Всего: 2

Всем привет!

Может кто сталкивался с такой проблемой:

Использую TObjectQueue для передачи объектов из одного потока в другой.

Все работает нормально, пока строки малой длины (до 100 символов).
Если в TObjectQueue поместить а потом достать TStringWrapper
со строкой более ~100 символов, то на деструкторе вылетает эксепшн.

Не знаю что и подумать.

Вот код (схематически)

Код


TStringWrapper = class
public
  Value : string;
  constructor Create(Value : string);
end;

constructor TStringWrapper.Create(Value : string);
begin
  self.Value:= Value;
end;


.....


var Queue : TObjectQueue;
    Wrapper : TStringWrapper;

begin
  Queue:= TObjectQueue.Create;
  Wrapper:= TStringWrapper.Create('Long string. About 150 symbols');

  Queue.Push(Wrapper);
  Wrapper:= Queue.Pop;

  Queue.Free; // - Здесь эксепшн "Invalid pointer operation"
end;

Заранее спасибо.

Yanis

Дата 24.5.2006, 18:49 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 2937
Регистрация: 9.2.2004
Где: Москва

Репутация: 72
Всего: 111

Как это вообще компилируется?

--------------------

*щёлк*

Mechanic

Дата 25.5.2006, 01:41 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 228
Регистрация: 5.5.2006
Где: Kharkov, Ukraine

Репутация: 6
Всего: 7

По идее, должно работать. smile

А не связано ли это с тем, что идёт к POP'нутому Wrapper'у обращение из другого потока, когда то-ли очередь, то ли сам POP'нутый уже подестроен?

--------------------

Gershkovich

Дата 25.5.2006, 09:35 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 243
Регистрация: 8.2.2006

Репутация: 0
Всего: 2

Queue <> nil это точно

Все дело в строке.
Если я кладу-достаю не длинные строки, то все Ок.

Стоит  мне положить длинную строку - на деструкторе падает.

Может это как-то связано с содержимым строки - т.е. там встречаются
символы перевода каретки ? Или еще какие ? Хотя у меня строка состоит только из из символов
которые можно на клавиатуре набрать.

ЗЫ забыл сказать - у меня  Delphi 6

Это сообщение отредактировал(а) Gershkovich - 25.5.2006, 09:38

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »