|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
|
Опции темы | Поиск в этой теме |
21.10.2018, 13:12 | #1 |
Регистрация: 20.10.2018
Сообщений: 9
|
com port в Delphi
Доброго времени суток уважаемые форумчане!
Обращаюсь с таким вопросом: Писал для мини АТС прогу подключение через ком порт в AsyncFree .Суть программы такая, отправил команду , по итогу получаешь ответ в виде строк.Написал, программа порт открывает, но я не получаю ответа от оборудования т.е. ничего не приходит или может просто не отображается в моём MEmo , а в штатной программе , которая шла с оборудованием все работает подскажите в чем может быть проблема в приложении прикреплю исходник за ранее спасибо. Познаю Делфи не давно, поэтому могу не знать каких-то тонкостей настройки компонентов или построения запросов. |
21.10.2018, 13:27 | #2 |
Старожил
Регистрация: 15.02.2010
Сообщений: 15,695
|
Настройки ком-порта совпадают?
|
21.10.2018, 13:32 | #3 |
Регистрация: 20.10.2018
Сообщений: 9
|
да скорость, ставлю нужную и номер ком порта тоже
|
21.10.2018, 13:34 | #4 |
Регистрация: 20.10.2018
Сообщений: 9
|
или есть еще какие-то важные?
|
21.10.2018, 14:05 | #5 |
Форумчанин
Регистрация: 17.10.2018
Сообщений: 184
|
Код:
|
21.10.2018, 14:21 | #6 |
Регистрация: 20.10.2018
Сообщений: 9
|
Я не понял вашей агрессии, я вложил всю программу целиком в архив, а не часть кода
|
21.10.2018, 14:25 | #7 |
Регистрация: 20.10.2018
Сообщений: 9
|
unit Unit1;
interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, DB, ADODB, Grids, DBGrids, StdCtrls, DBCtrls, DBClient, ExtCtrls, AfPortControls, AfDataDispatcher, AfComPort, Buttons, sBitBtn, sEdit, sSpeedButton, sButton, sPanel; type TForm1 = class(TForm) DBGrid1: TDBGrid; DataSource1: TDataSource; ADOQuery1: TADOQuery; ADOConnection1: TADOConnection; Button1: TButton; Memo1: TMemo; Button2: TButton; Button3: TButton; Button4: TButton; Button5: TButton; BaudrateButton: TButton; AfComPort1: TAfComPort; AfPortComboBox1: TAfPortComboBox; Button6: TButton; Button8: TButton; Timer1: TTimer; EditCom: TsEdit; btncom: TsBitBtn; BaudrateComboBox: TComboBox; Label1: TLabel; Label2: TLabel; Label3: TLabel; lampPanel: TsPanel; procedure Button1Click(Sender: TObject); procedure Button2Click(Sender: TObject); procedure Button3Click(Sender: TObject); procedure Button4Click(Sender: TObject); procedure Button5Click(Sender: TObject); procedure Button6Click(Sender: TObject); procedure Button8Click(Sender: TObject); procedure AfComPort1DataRecived(Sender: TObject; Count: Integer); procedure Timer1Timer(Sender: TObject); procedure btncomClick(Sender: TObject); procedure sBitBtn1Click(Sender: TObject); procedure BaudrateButtonClick(Sender: TObject); procedure AfComPort1PortOpen(Sender: TObject); procedure AfComPort1PortClose(Sender: TObject); procedure FormCreate(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; comop:boolean; i:integer; implementation {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject); begin AdOQuery1.Append; AdOQuery1.FieldByName('telNumb').As String:=Memo1.Lines[i]; AdOQuery1.Post; end; procedure TForm1.Button2Click(Sender: TObject); begin Memo1.Lines.LoadFromFile('dx.txt'); end; procedure TForm1.Button3Click(Sender: TObject); begin Memo1.Clear; Memo1.SelStart:=0; Memo1.SelLength:=3; end; procedure TForm1.Button4Click(Sender: TObject); begin ADOQuery1.Delete; end; procedure TForm1.Button5Click(Sender: TObject); begin with Memo1 do begin SelStart := Perform(EM_LINEINDEX, i, 0); SelLength := Length(Lines[i+1]); SetFocus; inc(i); //переходим на следующую строку AdOQuery1.Append; AdOQuery1.FieldByName('telNumb').As String:=Memo1.Lines[i]; AdOQuery1.Post; //edt1.Text :=Memo1.Lines[i]; end; end; procedure TForm1.Button6Click(Sender: TObject); begin AfComPort1.ComNumber:=AfPortComboBo x1.ComNumber; AfComPort1.Open; end; procedure TForm1.Button8Click(Sender: TObject); begin AfComPort1.Close; end; procedure TForm1.AfComPort1DataRecived(Sender : TObject; Count: Integer); begin Timer1.Enabled:=true; end; procedure TForm1.Timer1Timer(Sender: TObject); begin timer1.Enabled:=false; Memo1.Lines.Add(trim(AfComPort1.Rea dString)); end; procedure TForm1.btncomClick(Sender: TObject); begin afcomport1.WriteString(editcom.Text ); Memo1.Lines.Add(EditCom.Text); editcom.Clear; end; procedure TForm1.sBitBtn1Click(Sender: TObject); begin // memo1.selstart:=pos(memo1.lines[newline],memo1.text)-1; Memo1.SelLength:=0; Memo1.Perform(EM_SCROLLCARET, 0, 0); Memo1.SetFocus; end; procedure TForm1.BaudrateButtonClick(Sender: TObject); begin AfComPort1.UserBaudRate:=strtoint(B audrateComboBox.Text); end; procedure TForm1.AfComPort1PortOpen(Sender: TObject); begin lampPanel.Color:=clgreen; end; procedure TForm1.AfComPort1PortClose(Sender: TObject); begin lampPanel.Color:=clred; end; procedure TForm1.FormCreate(Sender: TObject); begin lampPanel.Color:=clRed; end; end. |
21.10.2018, 14:26 | #8 |
Регистрация: 20.10.2018
Сообщений: 9
|
вот весь код
|
21.10.2018, 14:58 | #9 |
Старожил
Регистрация: 15.02.2010
Сообщений: 15,695
|
|
22.10.2018, 02:13 | #10 | |
ПШП
Участник клуба
Регистрация: 15.07.2013
Сообщений: 1,859
|
Цитата:
Ну разве могу сразу сказать, что код этого модуля "ни разу" не соответствует описанной вами задаче. От слова совсем. |
|
|
Опции темы | Поиск в этой теме |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Где взять нормальный com port для delphi embarcadero berlin | lich king | Общие вопросы Delphi | 3 | 26.02.2017 22:28 |
com port | kollfer | Общие вопросы Delphi | 3 | 12.04.2012 17:34 |
com port | player891 | Общие вопросы Delphi | 0 | 21.03.2012 19:26 |
com port чтение запись delphi | SonicBob | Помощь студентам | 5 | 15.11.2011 10:20 |
Com Port и Delphi 2010 | Yoja | Общие вопросы Delphi | 3 | 23.12.2010 11:30 |