ТComPort

[BarsDG]

Доброго времени суток уважаемые!
Есть родная программа для сбора данных с Com1
Я пишу программу, которая должна конектиться к Com1 и послать команду 'MEAS80'. Команда прибором отрабатывается.

procedure TForm1.Button6Click(Sender: TObject);
var
Str: String;
begin
ComPort1.Open;
Str := 'MEAS80';
Str := Str + #13;
ComPort1.WriteStr(Str);
ComPort1.Close;
end;

НО родная программа после этого с Com1 данные не выгружает.

Пробовал через HyperTerminal:
HyperTerminal -> команда "MEAS" -> Результат ОК -> Disconnect
Далее в родной программе данные грузятся без проблем!

[raxp]

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

[BarsDG]

Хочу по точнее пояснить:
На приборе есть кнопка при нажатии которой приходит процесс сканирования шероховатости и сохранения данных к себе (в прибор) в память прибора. Далее в родной проге есть кнопка при нажатии которой, данные с прибора загружаются в нее.

Так вот мой выше описанный код имитирует нажатие кнопки на самом ПРИБОРЕ, но если я проделываю это не физически, а через мой код, то Родная прога не грузит данные, и выдает сообщение:

Такое же сообщение появляется когда Родная программа пытается загрузить данные, а прибор Выключен.

Это весь код связанный с СОМ портом.

[raxp]

Это весь код связанный с СОМ портом.

не обижайтесь, словам привык не верить.

Подойдем с другого боку: приведите полный дамп обмена родной программы и вашей, и на всякий случай еще и с гипертерминала. Одни и те же действия проделайте и снимите логи PORTMON-итором с включенным HEX отображением. Это покажет в чем между ними разница и где что вы упустили. Андерстенд?

[BarsDG]

Сообщение от raxp

не обижайтесь, словам привык не верить.

Подойдем с другого боку: приведите полный дамп обмена родной программы и вашей, и на всякий случай еще и с гипертерминала. Одни и те же действия проделайте и снимите логи PORTMON-итором с включенным HEX отображением. Это покажет в чем между ними разница и где что вы упустили. Андерстенд?

не совсем...

[Neobrat]

попробую заняться телепатией))
если после закрытия программки(полностью удаления из оперативной памяти) родная программка получить данные не может.. а только после перезагрузки аппарата..

то как вариант..
1. получить данные..
т.е. между
ComPort1.WriteStr(Str);
ComPort1.Close;
считать все пришедшие данные..

2. Delphi какую используете? 2010? если да, то скорее всего с кодировкой проблемы. string <> AnsiString

ну если не помог, то делайте то что просит raxp ))

ему нужен полный лог данных которые пробрасываете от ПО к аппарату в 16-ричном формате..

[raxp]

http://technet.microsoft.com/ru-ru/s.../bb896644.aspx

[BarsDG]

Всем большое спасибо за помощь! Вопрос решен.

[raxp]

...таки где опшиблись?

[BarsDG]

Сообщение от raxp

...таки где опшиблись?

В кодировке