подскажите аналог гипертерминала

[raxp]

- свойство Port текстовое, забейте в combobox список и выбирайте на здоровье...

- по нажатию кнопки отсылайте то, что в memo1, например последнюю строку - memo1.lines[memo1.lines.count-1] с проверкой не пуста-ли...

- принятые данные выводите в событии onRXchar... скрины зачем приведены? смотрите на них.

[fize]

procedure TForm1.ComboBox1Change(Sender: TObject);
begin
BComPort1.Port:=combobox1.Text;
end;



procedure TForm1.FormCreate(Sender: TObject);
begin
EnumComPorts(ComboBox1.Items);
BComPort1.Port := ComboBox1.Text;
if ComboBox1.Items.Text = '' then
showmessage('Port not found')
end;

procedure TForm1.BComPort1RxChar(Sender: TObject; Count: Integer);
begin
Memo1.Lines.Add();
end;

как заставить BComPort1RxChar выводить текст в мемо?

[raxp]

procedure TForm1.BComPort1RxChar(Sender: TObject; Count: Integer);
var str: string;
    buf: array[1..255] of Byte;
    i: integer;
begin
 BComPort1.Read(buf, count);
 str:= '';
 for i:= 1 to Count do str:= str + Chr(buf[i]);
 memo1.lines.add(str)

ммм... и посмотрите как это реализовано в <io.pas> поста #12, многое станет понятно.

[fize]

procedure TForm1.FormCreate(Sender: TObject);
begin
 EnumComPorts(ComboBox1.Items);
 BComPort1.Port := ComboBox1.Text;
if ComboBox1.Items.Text = '' then
 showmessage('Port not found')
end;

procedure TForm1.BComPort1RxChar(Sender: TObject; Count: Integer);
var
 s: string;
 buf: array[1..255] of Byte;
 i: integer;
begin
 BComPort1.Read(buf, count);
 s:= '';
for i:= 1 to Count do s:= s + Chr(buf[i]);
 memo1.lines.add(s)
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
 BComPort1.Port := ComboBox1.Text;
 BComPort1.Open;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  if BComPort1.Connected then
  begin
    BComPort1.WriteStr(Edit1.Text);
    Edit1.Text := '';
    Edit1.SetFocus;
  end;
end;

вроде коннект есть, но при посылке ат команды в мемо1 появляется эта команда а ответа нету.
p.s в гипертерминале ответ есть.

[dmitriegorovih]

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


procedure TForm1.Button1Click(Sender: TObject);
begin
bcomport1.Open;
bcomport1.WriteStr(s);
memo1.Lines.Add(s);
end;

а принимаю команды вот так

procedure TForm1.BComPort1RxChar(Sender: TObject; Count: Integer);
var str: string;
buf: array[1..255] of Byte;
i: integer;
begin
BComPort1.Read(buf, count);
str:= '';
for i:= 1 to Count do begin str:= str + Chr(buf[i]); end;
memo1.lines.add(str)
end;

подскажите чё я зделал нетак. Пллиз!!!!!

[raxp]

попробуйте так...

procedure TForm1.ComPort1RxChar(Sender: TObject; Count: Integer);
var str: string;
begin
 comport1.ReadStr(str, count); 
 memo1.lines.add(str)
end;

не забывайте настроить таймауты, размер буфера и скорость... для адекватного сравнения сделайте так как в гипертерминале.
зы: загляните еще >>> сюда <<< тема достаточно обсуждалась.

[fize]

подскажите. вот так не работает-

procedure TForm1.Button2Click(Sender: TObject);
begin
BComPort1.WriteStr(edit1.Text);
end;

а вот так работает-

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if (Key = #13) then
begin
BComPort1.WriteStr(Edit1.Text + Key);
end;
end;

что ей надо?

[fize]

до сих пор причина непонятна

[Пепел Феникса]

procedure TForm1.Button2Click(Sender: TObject);
begin
BComPort1.WriteStr(edit1.Text+#13);
end;

а если так?

[fize]

нда.. 2 часа просидел а решение было близко.
raxp и Пепел Феникса огромное спасибо.
p.s всетаки интерестно что дает #13?