Что это за коды

[RockForr]

Я пишу прогу для модуля, которая сначала открывает виртуальный сом- порт, а потом с помощью кнопок можно включать и выключать светодиоды. Программу написал, не могу вкл/выкл лампочки.

[RockForr]

Пишу программу для модуля, прога сначала открывает виртуальный сом-порт, а затем с помощью кнопок ВКЛ и ВЫКЛ надо включать и выключать светодиоды подключенные к модулю. Операцию по открытию порта написал, не могу с кнопками разобраться, у меня ничего не работает

[Zloy_Doomer]

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

[RockForr]

Как это сделать?

вот мой код

procedure TForm4.Button2Click(Sender: TObject);
var
line: Shortint;
value: Shortint;
valid: Boolean;
buffer: string;
CRbyte: Shortint;
LFbyte: Shortint;
NumberWritten : DWORD;
begin
line := StrToInt(Edit3.Text);
value := StrToInt(Edit4.Text);
valid := TRUE;
if line = 1 then
begin
valid := TRUE;
end;
if value = 1 then
begin
MessageDlg('Свет включен!', mtInformation, [mbOK], 0);
valid := TRUE;
end;
if valid = TRUE then
begin
CRbyte := 13; // HEX 0x0D
LFbyte := 10; // HEX 0x0A
buffer := '$KE,WR,' + Edit3.Text + ',' + Edit4.Text
+ Char(CRbyte) + Char(LFbyte);
WriteFile(CommHandle, PChar(buffer)^, Length(buffer), NumberWritten, nil);
end;

[RockForr]

Что здесь надо изменить все пробовал

'$KE,WR,' + Edit3.Text + ',' + Edit4.Text- здесь команда для модуля прописана.