| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

COM-порт.Немогу записать в порт. [D7, Win2k]

TRyaSS ©   (2004-07-20 14:00:00) 

Всем здрасти.Проблемма вот в чем:с COM портом соединена железяка,нужно с ней общаться, записываю в порт ф-ей Writefile,а она все время False возвращает.вот код иниц-ции порта

procedure PortInit;
 begin
 //создание и иницализация порта
 KolByte:=0;
 //создание порта и получение его хэндла
 CommHandle := CreateFile('COM2',GENERIC_READ or GENERIC_WRITE,0,nil,OPEN_EXISTING,
        FILE_ATTRIBUTE_NORMAL or FILE_FLAG_OVERLAPPED,0);
 //ставим маску - "по пришествии определенного символа"
 SetCommMask(CommHandle,EV_RXFLAG);
 //построение DCB
  GetCommState(CommHandle,DCB);//чтение DCB
  DCB.BaudRate:=strtoint(form1.commspeed.text);//скорость работы порта
  DCB.Parity:=NOPARITY; //проверка на четность
  DCB.ByteSize:=8; //количество посылаемых бит в 1-й посылке
  DCB.StopBits:=oneStopBit; //количество стоп-бит
  DCB.EvtChar:=chr($01);//задание символа для флага(события)
  //устанавливаем DCB
  SetCommState(CommHandle,DCB);//запись DCB
 end;

запись в порт

procedure WriteComm(transmit:string;K:dword);
var
  err:longbool;
  s:pchar;
 Transmits:array [0..255] of char;
begin
 //послать один символ в порт
  KolByte:= k;       //количество посылаемых символов
  Transmits[1]:=chr(49); //посылка
  s:=pchar(Transmit);
  err:=WriteFile(CommHandle,transmit,KolByte,KolByte,@Ovr);//запись в порт
  if err then form1.edit4.Text:=floattostr(kolbyte);
end;


---

Reindeer Moss Eater   (2004-07-20 17:34:00) [1]

Дружок,
Твой вопрос про записьв порт вчера никто не обсуждал.
Обсуждали почему ты читаешь из порта пустую строку и почему возвращаемые параметры тебе по барабану.

Так что закрой ротик.

---

  (2004-07-20 17:16:00) [2]

Удалено модератором

---

Anatoly Podgoretsky   (2004-07-20 14:40:00) [3]

За что спасибо, это же из стандартной справки, мог сам посмотреть

---

Reindeer Moss Eater   (2004-07-20 14:39:00) [4]

Описание
http://msdn.microsoft.com/library/default.asp?url=/library/en-us/fileio/base/writefile.asp

Примеры
http://msdn.microsoft.com/library/default.asp?url=/library/en-us/fileio/base/reading_from_and_writing_to_files.asp

---

TRyaSS   (2004-07-20 14:37:00) [5]

спасибо хоть за это!!!

---

Reindeer Moss Eater   (2004-07-20 14:32:00) [6]

но и фактически записанное количество байт тоже нулю равно...
и считывается с порта тоже ровно 0 байт.

Это :
1. Обман зрения
2. Так и должно быть при OVERLAPPED

Отрой примеры в MSDN Library или PlatformSDK.
Иначе ничего у тебя не выйдет.

---

Reindeer Moss Eater   (2004-07-20 14:29:00) [7]

If hFile was opened with FILE_FLAG_OVERLAPPEDand lpOverlapped is not NULL, the write operation starts at the offset specified in the OVERLAPPED structure and WriteFile may return beforethe write operation has been completed. In this case, WriteFile returns FALSEand the GetLastError function returns ERROR_IO_PENDING. This allowsthe calling processto continue processing while the write operation is being completed. The event specified in the OVERLAPPED structure is set to the signaled state upon completion of the write operation.

---

TRyaSS   (2004-07-20 14:21:00) [8]

но и фактически записанное количество байт тоже нулю равно...
и считывается с порта тоже ровно 0 байт.

---

Reindeer Moss Eater   (2004-07-20 14:06:00) [9]

записываю в порт ф-ей Writefile,а она все время False возвращает.

Так и должно быть при асинхронных операциях.

---

Наверх