[Mozzzg]

Люди, подскажите, плиз, как работать с COM-портом. Оооооочень надо, и чем быстрее, тем лучше. Заранее спасибо.

[ilang]

http://megalib.com/books/923/700069.htm

[Admin]

http://www.delphisources.ru/pages/so...bcom_port.html

[Mozzzg]

Всем огромное спасибо. Теперь осталось только разобраться. Думаю справлюсь.:d

[naumovmag]

Сначала открываем порт:

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18

procedure TForm1.Button4Click(Sender: TObject); begin Button5.Enabled:=True; Button4.Enabled:=False;   Port := CreateFile(PChar(ComboBox1.Items[ComboBox1.ItemIndex]),GENERIC_READ+GENERIC_WRITE,0,nil,OPEN_EXISTING,               FILE_ATTRIBUTE_NORMAL,LongInt(0));   SetupComm(Port,1024,1024);   PurgeComm(Port,PURGE_TXABORT or PURGE_RXABORT or PURGE_TXCLEAR or PURGE_RXCLEAR);   GetCommState(Port,PortDCB);   PortDCB.BaudRate := StrToInt(BaudTrans.Items[BaudTrans.ItemIndex]);     PortDCB.StopBits := 1;   PortDCB.Flags:=4113;   if ControlCTS.Checked then PortDCB.Flags:=PortDCB.Flags xor 4;   SetCommState(Port,PortDCB);   if AutoRTS.Checked then EscapeCommFunction(Port,CLRRTS);   TimerReceive.Enabled:=True; end;

Читаем из него:

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76

procedure TForm1.TimerReceiveTimer(Sender: TObject); var CountCharWait: word;     TimeOut: byte;     NumberWritten: cardinal;     PhoneCommand: string;   procedure ReadPort;   var  inBuf: array [0..1024] of char;        cbCharsRead,dwErrorCode: dword;        i: integer;     procedure HexDecReceive;     var     InBuf: array [0..1024] of byte;       cbByteRead:dword;       i: integer;     begin      if ReadFile(Port,InBuf,CountCharWait,cbByteRead,nil)       then         begin         for i:=0 to cbByteRead-1 do            if RadioButton1.Checked              then CharsReceived.Caption:=CharsReceived.Caption+intToHex(inBuf[i],2)+' '              else CharsReceived.Caption:=CharsReceived.Caption+intToStr(inBuf[i])+' ';         end;       end;   begin     inc(TimeOut);     ClearCommError(Port,dwErrorCode,@PortStat);     CountCharWait := PortStat.cbInQue;       if CountCharWait > 0 then       begin        TimeOut:=0;       if (RadioButton1.Checked) or (RadioButton2.Checked) then HexDecReceive else         if ReadFile(Port,InBuf,CountCharWait,cbCharsRead,nil)            then for i:=0 to cbCharsRead-1 do                      CharsReceived.Caption:=CharsReceived.Caption+inBuf[i]            else dwErrorCode := GetLastError;       end;      end; begin      ReadPort;      if (TimeOut<>0)and (CharsReceived.Caption<>'') then         begin                if trim(CharsReceived.Caption) = 'RING' then begin   //Ждём вызова              NumberWritten := 0;              PhoneCommand:='ATA'+#13#10;              WriteFile(Port, PChar(PhoneCommand)^, Length(PhoneCommand), NumberWritten, nil);              end;                if trim(CharsReceived.Caption) = 'send' then begin   //Ждём команду приёма файла              Timer2.Enabled:=True;              TimerReceive.Enabled:=False;              exit;              end;                if triim(Char)            MemoRx.Lines.Add(CharsReceived.Caption);          if CheckBox1.Checked then             begin               Edit1.Text:=CharsReceived.Caption;               if Radiobutton3.Checked                   then TransmitClick(Sender)                   else TxHexButtonClick(Sender);               Edit1.Text:='';             end;          CharsReceived.Caption:='';           end; //     LedTrans.Brush.Color:=clNone;      if TimeOut>10 then TimeOut:=0;   end;

Пишем в него:

Код:

1 2 3 4 5 6 7 8 9

procedure TForm1.TransmitClick(Sender: TObject); var PhoneCommand: string; NumberWritten: cardinal; begin PhoneCommand := Edit1.Text + #13 + #10;   NumberWritten := 0;   WriteFile(Port, PChar(PhoneCommand)^, Length(PhoneCommand), NumberWritten, nil); end;