Код:
procedure TForm1.Button2Click(Sender: TObject);
var
TRBuf:PChar; //передача
nToWrite:DWord; //запись
nWrite:DWord; //число записанных байт
begin
TRBuf:=PChar(Edit1.Text); //заполнить буфер
nToWrite:=length(TRBuf)+1; //число передаваемых байт
WriteFile(port,TRBuf^,nToWrite,nWrite,nil); //отпавить
end;
передачу я вот так реализовала, мальчики подскажите пожалуйста, а как мне сделать раздельное управление линиями, т.е как выбрать определенную линии для передачи данных?????