VPF::передача массива в поток - Форум программистов

Albinos_x

Дата 15.11.2006, 16:16 (ссылка)

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

Загрузка ...

Evil Skynet

Профиль
Группа: Комодератор
Сообщений: 3288
Регистрация: 28.5.2004
Где: X-6120400 Y-1 4624650

Репутация: 26
Всего: 108

При создании потока пытаюсь передать в него массив:

Код

type
  TTKeyThread = class(TThread)
     protected
     procedure Execute; override;
     public
     MWordKey:TMWord;
     CommandLineKey: String;
     constructor Create(CreateSuspennded:Boolean; Command: String;
                                              MWord:TMWord; var TKeyThread:TTKeyThread);
     end;


constructor TTKeyThread.Create(CreateSuspennded:Boolean; Command: String;
                                              MWord:TMWord; var TKeyThread:TTKeyThread);
begin   
inherited Create(CreateSuspennded);
CommandLineKey:=Command;
col:=Length(MWord);
SetLength(MWordKey,0);
SetLength(MWordKey, Length(MWord));
MWordKey:=MWord;    // здесь вылетает ошибка
end;

но на строке MWordKey:=MWord; вылетает ошибка, уже даже по тупому пробовал

Код


for i:=0 to (col-1) do
    begin
    MWordkey[i].mwString:=MWord[i].mwString;
    MWordkey[i].mwType:=MWord[i].mwType;
    MWordkey[i].mwStart:=MWord[i].mwStart;
    MWordkey[i].mwEnd:=MWord[i].mwEnd;
    end;

приравнивание происходит нормально, а вот при завершении цикла всё равно та же самая ошибка...

переопределение MWordkey в приват (в принципе мне его достаточно) или протектед приводит к тому, что ошибка начинает вылетать ещё на строке

Код

SetLength(MWordKey,0);

т.к. переменная оказывается не проинициализирована... ручная инициализация спасает только от этой строчки, но на последней получаем тоже самое...

использование переменной MWord (глобальная) в процедуре Execute мне не подходит, т.к. в результате синхронизации я лишусь преимущества использования потока ...

CopyMemory тоже не спасает от этой ошибки...

Вопрос: Что я делаю не так и что мне делать?

Заранее Спасибо!

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

"Кто владеет информацией, тот владеет миром"
Уинстон Черчилль

Matematik

Дата 15.11.2006, 16:21 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1027
Регистрация: 11.3.2006

Репутация: 17
Всего: 50

Попробуй так

Код


mas2 := Copy(mas1, Low(mas1), Length(mas1));

Snowy

Дата 15.11.2006, 16:28 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 192
Всего: 484

Цитата(Albinos_x @ 15.11.2006, 16:16

)

TMWord

Э что это за тип?

Цитата(Albinos_x @ 15.11.2006, 16:16

)

var TKeyThread:TTKeyThread

А какой смысл в этом параметре?

Цитата(Albinos_x @ 15.11.2006, 16:16

)

MWordKey:=MWord; // здесь вылетает ошибка

Не вижу логики в данной строке...
Зачем тогда ты создавал массив, если потом тупо перенаправляешь его на другой, да ещё и нестатичный?

Цитата(Albinos_x @ 15.11.2006, 16:16

)

col:=Length(MWord);

А что за col? Откуда он?

Слишком много непонятного в коде...

Добавлено @ 16:29
Matematik, это не массив байт, как я погляжу.
А копирование указателей ни к чему хорошему не приведёт.
Только к глюкам. А это не есть хорошо...

Albinos_x

Дата 15.11.2006, 16:34 (ссылка)

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

Загрузка ...

Evil Skynet

Профиль
Группа: Комодератор
Сообщений: 3288
Регистрация: 28.5.2004
Где: X-6120400 Y-1 4624650

Репутация: 26
Всего: 108

не помогло...

есть подозрение, что глюк из-за переменной CommandLineKey, показывает, что она не определена, но приравнивание происходит нормально....

Добавлено @ 16:46

Цитата(Snowy @ 15.11.2006, 16:28

)

Э что это за тип?

Код


// ñëîâî ñ õàðàêòåðèñòèêàìè
  TMasWord = record
     mwString : String;       // ñàìî ñëîâî
     mwType   : TTypeWord;    // åãî òèï
     mwStart  : Word;         // íà÷àëî ñëîâà â òåêñòå
     mwEnd    : Word;         // êîíåö ñëîâà â òåêñòå
    end;
  // ìàññèâ ñëîâ
  TMWord = array of TMasWord;

Цитата(Snowy @ 15.11.2006, 16:28

)

А какой смысл в этом параметре?

не знаю почему но без него

Код


inherited Create(CreateSuspennded);

эта строка перестаёт работать... т.е. вообще не компилится...

Цитата(Snowy @ 15.11.2006, 16:28

)

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

Цитата(Snowy @ 15.11.2006, 16:28

)

А что за col? Откуда он?

это осталось от экспериментов по перебору всех элементов массива...

Цитата(Snowy @ 15.11.2006, 16:28

)

А копирование указателей ни к чему хорошему не приведёт.

согласен... оно мне не нужно... тем более он у меня и так не работает...

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

"Кто владеет информацией, тот владеет миром"
Уинстон Черчилль

Albinos_x

Дата 16.11.2006, 12:34 (ссылка)

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

Загрузка ...

Evil Skynet

Профиль
Группа: Комодератор
Сообщений: 3288
Регистрация: 28.5.2004
Где: X-6120400 Y-1 4624650

Репутация: 26
Всего: 108

немного поэкспериментировал и пришёл к выводу что проблема с:

Код


inherited Create(CreateSuspennded);

т.е.

Код


constructor TTKeyThread.Create(Command: String; MWord:TMWord);
begin  
inherited Create(True);
CommandLineKey:=Command;
end;

выдаёт ошибку ещё на первой строке... хотя

Код


TKeyThread:=TTKeyThread.Create(true);
TKeyThread.CommandLineKey:=CommandLine;
TKeyThread.Suspended:=false;

такая конструкция работает нормально... но не в конструкторе естественно...

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

"Кто владеет информацией, тот владеет миром"
Уинстон Черчилль

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