[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
Далее в родной программе данные грузятся без проблем! В чем может быть проблема???

[NumLock]

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

[Barsdg]

Дело в том, что прибор соединенный к СОМ1 уже получил себе в память данные, теперь требуется в РОДНОЙ программе - вытащить данные, но (я так понимаю) она не может соединиться с СОМ1, после пользования портом моей программы. ИЛИ я что-то не до понимаю!

Есть ли у кого нибудь листинг программы похожий на HyperTerminal виндовый???

[NumLock]

родная программа читает данные только после отправки из себя или постоянно их ждет? какой Share Mode используется?

[Barsdg]

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

Так вот мой выше описанный код имитирует нажатие кнопки на самом ПРИБОРЕ, но если я проделываю это не физически, а через мой код, то Родная прога не грузит данные, и выдает сообщение:
http://www.delphisources.ru/forum/at...d=134623615 1
Такое же сообщение появляется когда Родная программа пытается загрузить данные, а прибор Выключен.

Share Mode - не понял вопроса...?

[NumLock]

а при использовании HyperTerminal, после отправки команды из него, в родной программе кнопку нажимаешь чтобы получить данные из прибора? или программа сразу же получает данные?

[Barsdg]

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

а при использовании HyperTerminal, после отправки команды из него, в родной программе кнопку нажимаешь чтобы получить данные из прибора? или программа сразу же получает данные?

HyperTerminal только посылает команду прибору о старте сканирования, как и мой код.

[NumLock]

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

[Barsdg]

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

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

Аналогично, кстати это у меня весь код связанный с com-портом. может я что-то не дописал?
Настройки установлены в самом компоненте.

[NumLock]

еще попробовать:

Код:

Str := Str + #13#10;

[Barsdg]

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

еще попробовать:

Код:

Str := Str + #13#10;

При этом, команда 'MEAS80' выполняется только 1 раз, более не реагирует.
Чтобы команда сработала, нужно в Родной проге попытаться загрузить данные, конечно результат будет таким же, и только тогда команда 'MEAS80' снова срабатывает.

[NumLock]

ну так один раз и посылай ее. только вместо одного \r шли \r\n после слова MEAS80. описания же протокола устройства не выложил...

[Barsdg]

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

ну так один раз и посылай ее. только вместо одного \r шли \r\n после слова MEAS80. описания же протокола устройства не выложил...

Я не знаю где взять описание протокола устройства, с отправкой команды по моему проблем нет, здесь проблема в том что Родная прога после моей программы не видит ком-порт. Может как-то нежно по другому разъединиться...

[NumLock]

-флушируй порт
-убрать закрытие порта из процедуры отправки и перенести в закрытие формы
-проснифири что передает родная программа и твоя при этом действии
-после закрытия твоей программы что выдаст новый CreateFile?
-что в диспетчере устройств после этого?

[cotseec]

прибор висит на СОМ1, вы со своей программы открываете порт и шлете туда команду (при этом порт СОМ1 штатная программа открыть не может - он занят), закрываете порт - теперь его НИКТО не открыл (в том числе и штатная программа)
после посылки из терминала штатная программа сама по себе открывает СОМ1?
лучше будет воспользоваться Free Com Port Monitor и посмотреть, что шлет штатная программа и что шлется в вашем случае, сравнить и сделать какие-то выводы, а заодно и протокол можно будет как-то понять