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

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

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

Восстановить пароль

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

Ответ
 
Опции темы Поиск в этой теме
Старый 13.01.2010, 11:50   #1
luzkov
 
Регистрация: 13.01.2010
Сообщений: 3
По умолчанию I O error 87

По професии электоньщик. Собрал для работы устройство контроля с пересылкой данных в копютер через RS232. Написал програмку уязки. Для кома использовал компонент Comm321. Все работает но время от времени выскакивает ошибка
I O error 87
В чем может быть проблема и что означает эта ошибка? Драйвер порта?
Пример кода инициализайии.
Comm321.CommPort:='COM2';
Comm321.BaudRate:=9600;
Comm321.Bits:=8;
comm321.StartComm;
Или с буфером чтото ни так делаю.
procedure TForm1.Comm321ReceiveData(Sender: TObject; Buffer: Pointer;
BufferLength: Word);
var
RStr:String;
CStr1:Char;
begin
RStr:=PChar(Buffer);
Cstr1:=RStr[1];
...
Есл не трудно помогите разобратся.
luzkov вне форума Ответить с цитированием
Старый 13.01.2010, 12:17   #2
raxp
Старожил
 
Регистрация: 29.09.2009
Сообщений: 9,713
По умолчанию

такая ошибка у меня никогда не выскакивала, но работал с этим компонентом так...
Код:
type tb = array[1..255] of Char;  //Определяем символьный массив
       pb = ^tb;

procedure Tmf.comReceiveData(Sender: TObject; Buffer: Pointer;
  BufferLength: Word);
var PX : pb;
    i  : integer;
    str: string;
begin
 PX:= buffer; str:='';
 for i:= 1 to BufferLength do
  str:=str+PX^[i];

 packet(str) // передача сформированного пакета на внешнюю обработку
end;
...без полного кода тоже сложно вам что-то посоветовать... вы выяснили где возникает эта ошибка?
Разработки и научно-технические публикации :: Видеоблог :: Твиттер
Radar systems engineer & Software developer of industrial automation
raxp вне форума Ответить с цитированием
Старый 13.01.2010, 12:46   #3
luzkov
 
Регистрация: 13.01.2010
Сообщений: 3
По умолчанию

Спасибо за код, попробую.
Проблема в том что устройство уже стоит в работе за 100км от моего места жительства. У меня на столе работало без проблем. И в принципе работает и на месте вот только окнами с вышеупомянутой ошибкой засыпает притом в случайные периоды времени. Как только доберусь начну тестировать, но прежде хотелосьбы узнать в чем суть номера 87?
luzkov вне форума Ответить с цитированием
Старый 13.01.2010, 13:16   #4
raxp
Старожил
 
Регистрация: 29.09.2009
Сообщений: 9,713
По умолчанию

msdn...
где-то у вас ошибка с настройками (или несогласованность с com-портом) в структуре DCB при установке статуса в SetCommState()... возможно скорости не стыкуются... но, повторюсь - было-бы всем проще, если-бы вы отловили место ее возникновения и после чего.

upd
-------

варианты наводок на линию связи до RS-232 порта на рабочей станции (или ПК) и несогласованность таймаутов рассматривали?
Разработки и научно-технические публикации :: Видеоблог :: Твиттер
Radar systems engineer & Software developer of industrial automation

Последний раз редактировалось raxp; 13.01.2010 в 13:26.
raxp вне форума Ответить с цитированием
Старый 13.01.2010, 17:57   #5
luzkov
 
Регистрация: 13.01.2010
Сообщений: 3
По умолчанию

Есть подозрения на таймауы. Да и наводки могут быть. систеа стоит в помещении забитом аппаратурой с трансформаторамии реле. До компютера кинут провод метров 10 без экрана, но витая пара.
Спасибо за советы как доберюсь уточню возникшие вопросы.
luzkov вне форума Ответить с цитированием
Старый 13.01.2010, 18:19   #6
raxp
Старожил
 
Регистрация: 29.09.2009
Сообщений: 9,713
По умолчанию

витая пара, особенно, если линия недифференциальная не панацея... нужно исключить все факторы (это вам еще повезло, что приводов рядом нет)... замените этот 10-метровый кусок кабелем S-FTP в экране.
Разработки и научно-технические публикации :: Видеоблог :: Твиттер
Radar systems engineer & Software developer of industrial automation
raxp вне форума Ответить с цитированием
Ответ


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



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
NSIS Error Error launching installer Dizraella Операционные системы общие вопросы 16 15.11.2013 14:13
Ищу причину ошибки: Error in loading DLL, она же Error 48. hozpraktik Microsoft Office Excel 1 19.11.2009 12:39
Как решить проблему с Error in loading DLL (Error 48)? Klim Bassenger Microsoft Office Excel 4 23.10.2009 13:44
LIBCD.lib(crt0.obj) : error LNK2001: unresolved external symbol _main Debug/main.exe : fatal error LNK11 prefak Win Api 0 19.04.2009 16:51