VPF::Thread, TIdPeerThread - Форум программистов

GuManOiD

Дата 6.6.2006, 20:19 (ссылка)

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

Загрузка ...

Шустрый

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

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

Я вызываю поток след. образом:

Код


Thr := TDownUpLoadFile.Create(False);
Thr.FileName := STRBuf;
Thr.AThread := AThread;
Thr.FreeOnTerminate := True;

Его код:

Код


procedure TDownUpLoadFile.Execute;
begin
  SetName;
  { Place thread code here }
  Synchronize(DownloadFile);
end;

procedure TDownUpLoadFile.DownloadFile;
begin
sDownloadFile(Filename,Athread);
end;

Переменные FileName, Athread обьявлены в паблике, процедура sDownloadFile просто скачивает файл из Athread.
Отдельно от потока работает идеально, а вот вместе с ним вылетает с Access Vialation. Может быть есть другой способ передачи параметров потоку? Обработчик помещен в TIdTCPServer.onExecute.

Snowy

Дата 6.6.2006, 21:06 (ссылка)

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

Загрузка ...

Эксперт

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

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

что-то ты не в ту сторону копаешь.
так у тебя полная ерунда получится.
Access Vialation это еще самый лучший результат.
худший - потеря указателей и бесконечная рекурсия.
Так делать просто нельзя.
Тут даже не детали, а вся схема продумана неправильно.

GuManOiD

Дата 6.6.2006, 21:12 (ссылка)

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

Загрузка ...

Шустрый

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

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

Ну тогда так, задача, принимать файлы от клиентов так что бы загрузка самого файла производилась в потоке, плиз- обьясните, а то я потоки тока недавно начал ковырять smile

Добавлено @ 21:24
Так народ, все вопрос отпал, писать почему я так тупил не буду, долго smile

Snowy

Дата 6.6.2006, 21:33 (ссылка)

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

Загрузка ...

Эксперт

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

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

Ну так это же сервер. У тебя на каждое соединение и так создан отдельный тред.
Твоя задача всего лишь забрать текущую порцию данных в OnExecute.
Определись с методом забора и всё.
Т.к. файл, рекомендую ReadStream с параметрами по умолчанию.
Пусть стрим наполняется, пока файл не будет принят,а потом просто скинь его на диск.

Добавлено @ 21:41
А, ну да. Забыл одну деталь.
Где разместить стрим.
У треда есть пропертя Data: TObject.
Создай стрим и присвой его Data.

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