VPF::питания для com порта - Форум программистов

cardinal

Дата 6.10.2005, 12:25 (ссылка)

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

Загрузка ...

Инженер

Профиль
Группа: Экс. модератор
Сообщений: 6003
Регистрация: 26.3.2002
Где: Германия

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

ShadeSt, не знаешь ли ты такого терминала, чтобы

Цитата

Чтоб я мог вызывать ее из комадной строки, типа

terminal.exe -sendmode hex -send 0F 5A FE
или
terminal.exe -sendmode char -send A B C D E

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

--------------------

Немецкая оппозиция потребовала упростить натурализацию иммигрантов
В моем блоге: Разные истории из жизни в Германии

"Познание бесконечности требует бесконечного времени, а потому работай не работай - все едино". А. и Б. Стругацкие

R0nin

Дата 6.10.2005, 23:47 (ссылка)

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

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 136
Регистрация: 31.7.2005
Где: Минск (Белоруссия )

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

to cardinal там напряга в том ковре не столько чтобы чтото сгорело! smile

По началу была мысля сделать с USB но нашел только COM шнур! smile

о что сделано то сделано!

Цитата

Как написать работающий пример, если "прибор" у тебя?

заставить перестать пахать любое сом устройство smile

методами представлеными выше, ну или еще как! smile

Добавлено @ 23:51
to ShadeSt ЩАс скачаю прогу попробую ею!

--------------------

Фишка есть во всем, а если фишки нет, то это и есть фишка

R0nin

Дата 7.10.2005, 00:10 (ссылка)

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

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 136
Регистрация: 31.7.2005
Где: Минск (Белоруссия )

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

В общем, при установки галочьки на управление RTS коврик тухнет smile

!
То что доктор прописал!
но вопрос тот же, как сие осуществить в DElphi?

--------------------

Фишка есть во всем, а если фишки нет, то это и есть фишка

cardinal

Дата 7.10.2005, 00:32 (ссылка)

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

Загрузка ...

Инженер

Профиль
Группа: Экс. модератор
Сообщений: 6003
Регистрация: 26.3.2002
Где: Германия

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

Цитата(R0nin @ 6.10.2005, 22:10)

В общем, при установки галочьки на управление RTS коврик тухнет

Интересно почему... smile

Ну тогда разбирайся с функцией, которую тебе посоветовали:
http://forum.vingrad.ru/index.php?showtopi...ndpost&p=530564
В Delphi я тебе не помощник...

--------------------

ShadeSt

Дата 7.10.2005, 07:45 (ссылка)

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

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 256
Регистрация: 9.8.2005
Где: Россия, г. Ставро поль

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

Тухнет потому, что галочка провод передавливает smile

To Cardinal. Нет такой терминалки не встречал, Может потому что никогда не было такой задачи.

--------------------

It's nice to be importand, but it's more importand to be nice © Scooter

~FoX~

Дата 7.10.2005, 07:56 (ссылка)

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

Загрузка ...

НЕ рыжий!!!

Профиль
Группа: Участник Клуба
Сообщений: 2819
Регистрация: 8.10.2003
Где: Зеленоград

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

Товарисчи, питалово ком порта не управляется программно.

--------------------

…множественность никогда не следует полагать без необходимости…

Guest

Дата 7.10.2005, 08:28 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

Ну так у ком порта вообще нет вывода питания наружу у него только сигнальные и земля. тут же речь уже идет о том что питание устройства подвешенного к ком порту, осуществляется посредством установления +12 вольт или "низкого уровня" на сигнальном выводе DTR.

ShadeSt

Дата 7.10.2005, 08:32 (ссылка)

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

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 256
Регистрация: 9.8.2005
Где: Россия, г. Ставро поль

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

Точнее, простите, RTS. ошибся

--------------------

It's nice to be importand, but it's more importand to be nice © Scooter

Romikgy

Дата 7.10.2005, 13:41 (ссылка)

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

Загрузка ...

Любитель-программер

Профиль
Группа: Участник Клуба
Сообщений: 7326
Регистрация: 11.5.2005
Где: Porto Franco Odes sa

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

Вот код для работы с портом:

Код


unit Unit1; 

interface 

uses 
  Windows; 

type 
  TComPort = class 
  private 
    hFile: THandle; 
  public 
    constructor Create; 
    destructor Destroy; override; 
    function InitCom(BaudRate, PortNo: Integer; Parity: Char; 
      CommTimeOuts: TCommTimeouts): Boolean; 
    procedure CloseCom; 
    function ReceiveCom(var Buffer; Size: DWORD): Integer; 
    function SendCom(var Buffer; Size: DWORD): Integer; 
    function ClearInputCom: Boolean; 
  end; 

implementation 

uses 
  SysUtils; 

constructor TComPort.Create; 
begin 
  inherited; 
  InitCom; 
end; 

destructor TComPort.Destroy; 
begin 
  CloseCom; 
  inherited; 
end; 

function TComPort.InitCom(BaudRate, PortNo: Integer; Parity: Char; 
  CommTimeOuts: TCommTimeouts): Boolean; 
var 
  FileName: string; 
  DCB: TDCB; 
  PortParam: string; 
begin 
  result := FALSE; 
  FileName := 'Com' + IntToStr(PortNo); {имя файла} 
  hFile := CreateFile(PChar(FileName), 
    GENERIC_READ or GENERIC_WRITE, 0, nil, 
    OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL, 0); 
  if hFile = INVALID_HANDLE_VALUE then 
    exit; 

  //установка требуемых параметров 
  GetCommState(hFile, DCB); //чтение текущих параметров порта 
  PortParam := 'baud=' + IntToStr(BaudRate) + ' parity=' + Parity + 
    ' data=8 stop=1 ' + 
    'octs=off'; 
  if BuildCommDCB(PChar(PortParam), DCB) then 
  begin 
    result := SetCommState(hFile, DCB) and 
      SetCommTimeouts(hFile, CommTimeOuts); 
  end; 
  if not result then 
    CloseCom; 
end; 

procedure TComPort.CloseCom; 
begin 
  if hFile < > INVALID_HANDLE_VALUE then 
    CloseHandle(hFile); 
  hFile := INVALID_HANDLE_VALUE; 
end; 

function TComPort.ReceiveCom(var Buffer; Size: DWORD): Integer; 
var 
  Received: DWORD; 
begin 
  if hFile = INVALID_HANDLE_VALUE then 
    raise Exception.Create('Не открыта запись в Com порт'); 
  if ReadFile(hFile, Buffer, Size, Received, nil) then 
  begin 
    Result := Received; 
  end 
  else 
    raise Exception.Create('Ошибка приема данных: ' + IntToStr(GetLastError)); 
end; 

function TComPort.SendCom(var Buffer; Size: DWORD): Integer; 
var 
  Sended: DWORD; 
begin 
  if hFile = INVALID_HANDLE_VALUE then 
    raise Exception.Create('Не открыта запись в Com порт'); 
  if WriteFile(hFile, Buffer, Size, Sended, nil) then 
  begin 
    Result := Sended; 
  end 
  else 
    raise Exception.Create('Ошибка передачи данных: ' + IntToStr(GetLastError)); 
end; 

function TComPort.ClearInputCom: Boolean; 
begin 
  if hFile = INVALID_HANDLE_VALUE then 
    raise Exception.Create('Не открыта запись в Com порт'); 
  Result := PurgeComm(hFile, PURGE_RXCLEAR); 
end; 

end.

Тебе необходимы 2 процедуры InitCom и CloseCom .
И еще организуешь две кнопки
одна включить:

Код


EscapeCommFunction( hFile, SETRTS);

другая выключить, с кодом:

Код


EscapeCommFunction( hFile, CLRRTS);

А далее эксперементируй smile

ЗЫ код я не проверял , нету у меня девайса на ком порт.

--------------------

Владение русской орфографией это как владение кунг-фу — истинные мастера не применяют его без надобности.

R0nin

Дата 8.10.2005, 02:03 (ссылка)

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

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 136
Регистрация: 31.7.2005
Где: Минск (Белоруссия )

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

to Romikgy
а как пользлваться функциями включения отключения? smile

а что ты имел ввиду говоря?

Цитата

Тебе необходимы 2 процедуры InitCom и CloseCom .

Это сообщение отредактировал(а) R0nin - 8.10.2005, 02:11

--------------------

Фишка есть во всем, а если фишки нет, то это и есть фишка

cardinal

Дата 8.10.2005, 13:40 (ссылка)

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

Загрузка ...

Инженер

Профиль
Группа: Экс. модератор
Сообщений: 6003
Регистрация: 26.3.2002
Где: Германия

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

R0nin, честное слово, пора бы книжку открыть...

--------------------

R0nin

Дата 9.10.2005, 14:04 (ссылка)

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

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 136
Регистрация: 31.7.2005
Где: Минск (Белоруссия )

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

Что, достал всех уже? Ну ладна, буду книжьки читать! smile

Спасиба за муки с начинающимися! smile

--------------------

Фишка есть во всем, а если фишки нет, то это и есть фишка

cardinal

Дата 9.10.2005, 15:06 (ссылка)

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

Загрузка ...

Инженер

Профиль
Группа: Экс. модератор
Сообщений: 6003
Регистрация: 26.3.2002
Где: Германия

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

Нет, не достал, но книжку открыть пора! smile

--------------------

R0nin

Дата 9.10.2005, 22:19 (ссылка)

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

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 136
Регистрация: 31.7.2005
Где: Минск (Белоруссия )

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

Просто в книжках стандартные компоненты и их описание, калькулятор я и сам могу написать.
А тут захотел подарок зделать лбимой девушке (тоже начинающий программер) в виде коврика с софтом под него, чтоб все как пологен было! Правильно же?! Ну а умений то у меня и не хватило! smile

Вот я и мучаю себя и других (Звиняйте уж) smile

--------------------

Фишка есть во всем, а если фишки нет, то это и есть фишка

Петрович

Дата 14.10.2005, 12:28 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 1000
Регистрация: 2.12.2003
Где: Москва

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

Цитата(cardinal @ 6.10.2005, 13:25)

ShadeSt, не знаешь ли ты такого терминала, чтобы

Цитата
Чтоб я мог вызывать ее из комадной строки, типа

terminal.exe -sendmode hex -send 0F 5A FE
или
terminal.exe -sendmode char -send A B C D E

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

Такого быть не может поскольку при завершении программы винды будут освобождать COM-порт, и могут даже изменять состояние его оправляющих сигналов. Так что, между запусками terminal.exe состояние порта не будет сохраняться.

--------------------

Все знать невозможно, но хочется

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