Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Общие вопросы Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 12.01.2014, 13:04   #11
doktor255
Заблокирован
 
Регистрация: 31.03.2011
Сообщений: 976
По умолчанию

Цитата:
Сообщение от qZED Посмотреть сообщение
А как буфер сбросить?
Что значит сбросить буфер?
doktor255 вне форума Ответить с цитированием
Старый 12.01.2014, 13:08   #12
qZED
Пользователь
 
Регистрация: 13.05.2009
Сообщений: 26
По умолчанию

Цитата:
Сообщение от Streletz Посмотреть сообщение
Код в студию...
procedure TGSMThread.ComPortOnRxChar(Sender: TObject; Count: Integer);
var
C: Char;
I: Integer;
Buffer: String;
begin
ComPort.ReadStr(Buffer, Count);
WriteToLog(Buffer, FFileName) - эта процедура в отдельном Unitе.

FFileName - для каждого потока свой файл.

сама процедура:
AssignFile(F, sFileName);
if FileExists(sFileName) then
Append(F)
else
ReWrite(F);
WriteLn(F, sBuffer);
CloseFile(F);
qZED вне форума Ответить с цитированием
Старый 12.01.2014, 13:09   #13
Streletz
Старожил
 
Регистрация: 03.01.2014
Сообщений: 2,870
По умолчанию

Возможно, автор имеет в виду его очистку при завершении процесса записи.
Если пробовать "в лоб", то:
Код:
Buffer:='';

Последний раз редактировалось Streletz; 12.01.2014 в 13:15.
Streletz вне форума Ответить с цитированием
Старый 12.01.2014, 13:15   #14
eval
Подтвердите свой е-майл
 
Регистрация: 29.08.2012
Сообщений: 4,011
По умолчанию

Цитата:
А то не закрытый файл при открытии в FAR - не показывает внутренности...
потому как держать файл открытым - плохо. и не только поэтому
файлы - есть неуправляемые ресурсы с ними так работать, все равно что стрелять себе в ногу, рано или поздно придет эцих с гвоздями.
eval вне форума Ответить с цитированием
Старый 12.01.2014, 13:17   #15
qZED
Пользователь
 
Регистрация: 13.05.2009
Сообщений: 26
По умолчанию

Вот что нашел:
http://www.programmersforum.ru/showthread.php?t=131725
qZED вне форума Ответить с цитированием
Старый 12.01.2014, 13:22   #16
raxp
Старожил
 
Регистрация: 29.09.2009
Сообщений: 9,713
По умолчанию

Крайне не рекомендую читать в несколько потоков из одного последовательного порта. Одного вполне достаточно.
Разработки и научно-технические публикации :: Видеоблог :: Твиттер
Radar systems engineer & Software developer of industrial automation
raxp вне форума Ответить с цитированием
Старый 12.01.2014, 13:26   #17
Streletz
Старожил
 
Регистрация: 03.01.2014
Сообщений: 2,870
По умолчанию

Цитата:
Сообщение от qZED Посмотреть сообщение
qZED, в топике, по ссылке, что Вы привели прямо сказано, в частности, про WinAPI.
Действуйте!
Цитата:
Сообщение от raxp Посмотреть сообщение
Крайне не рекомендую читать в несколько потоков из одного последовательного порта. Одного вполне достаточно.
Естественно.

Последний раз редактировалось Streletz; 12.01.2014 в 13:28.
Streletz вне форума Ответить с цитированием
Старый 12.01.2014, 13:29   #18
qZED
Пользователь
 
Регистрация: 13.05.2009
Сообщений: 26
По умолчанию

Цитата:
Сообщение от raxp Посмотреть сообщение
Крайне не рекомендую читать в несколько потоков из одного последовательного порта. Одного вполне достаточно.
Не не так поняли. COM портов 2, и читающих потоков тоже 2.
qZED вне форума Ответить с цитированием
Старый 13.01.2014, 15:17   #19
demiware
Пользователь
 
Аватар для demiware
 
Регистрация: 13.01.2014
Сообщений: 21
По умолчанию

Чото не понятно как в одном потоке
Цитата:
дак вот поток работает быстрее чем запись в файл и происходит ошибка ввода выводу - файл занят
Может у тебя всетаки с разных потоков по ошибке в один файл без синхронизации льет?
Приглашаю в мой блог http://demiware.ru о программировании в Delphi, PHP(Symfony)...
demiware вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
python логирование Lemon2009 PHP 1 11.09.2012 15:59
Логирование EventLog mrChester Общие вопросы .NET 7 18.04.2012 09:55
Логирование запуска программы Dima DDM Общие вопросы Delphi 0 05.08.2011 15:48