Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Общие вопросы Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 21.10.2018, 13:12   #1
Я_МиШа
 
Регистрация: 20.10.2018
Сообщений: 9
По умолчанию com port в Delphi

Доброго времени суток уважаемые форумчане!
Обращаюсь с таким вопросом:
Писал для мини АТС прогу подключение через ком порт в AsyncFree .Суть программы такая, отправил команду , по итогу получаешь ответ в виде строк.Написал, программа порт открывает, но я не получаю ответа от оборудования т.е. ничего не приходит или может просто не отображается в моём MEmo , а в штатной программе , которая шла с оборудованием все работает подскажите в чем может быть проблема в приложении прикреплю исходник за ранее спасибо. Познаю Делфи не давно, поэтому могу не знать каких-то тонкостей настройки компонентов или построения запросов.
Вложения
Тип файла: zip comport.zip (690.1 Кб, 25 просмотров)
Я_МиШа вне форума Ответить с цитированием
Старый 21.10.2018, 13:27   #2
p51x
Старожил
 
Регистрация: 15.02.2010
Сообщений: 15,695
По умолчанию

Настройки ком-порта совпадают?
p51x вне форума Ответить с цитированием
Старый 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
jillitil
Форумчанин
 
Аватар для jillitil
 
Регистрация: 17.10.2018
Сообщений: 184
По умолчанию

Цитата:
Сообщение от Я_МиШа Посмотреть сообщение
прикреплю исходник за ранее спасибо.

Код:
program Project1;
uses
  Forms,
  Unit1 in '..\бд с мемо и эдитом — копия\Unit1.pas' {Form1};
{$R *.res}
begin
  Application.Initialize;
  Application.CreateForm(TForm1, Form1);
  Application.Run;
end.
Это весь выложенный код? Ну какой вопрос такой и ответ. "У меня не работает - телепаты помогите!", "у меня вылетают ошибки, какие не скажу, но срочно хелп!!!адинадин...". Неужели настолько все деградировали, что не могут корректно задать и перепроверить свой же вопрос. Это выражение неуважения к тем у кого спрашивают. На форуме зарегился недавно, в куче вопросов надо выпрашивать у попрошайки то код, то детали, то вообще что оно хочет получить. Удивительно, только два модера вытягивают форум, остальным, как и мне видимо, даже не охота отвечать на подобное.
jillitil вне форума Ответить с цитированием
Старый 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
p51x
Старожил
 
Регистрация: 15.02.2010
Сообщений: 15,695
По умолчанию

Цитата:
Сообщение от Я_МиШа Посмотреть сообщение
или есть еще какие-то важные?
Ну там режим 8 или 7 бит, четность, контроль потока...

Кстати, какая версия делфи? Вы уверены, что вы не юникод-строки шлете?
p51x вне форума Ответить с цитированием
Старый 22.10.2018, 02:13   #10
northener
ПШП
Участник клуба
 
Регистрация: 15.07.2013
Сообщений: 1,859
По умолчанию

Цитата:
Сообщение от Я_МиШа Посмотреть сообщение
Я не понял вашей агрессии, я вложил всю программу целиком в архив, а не часть кода
Вы ничего путного не вложили в архив. В архив нужно было вложить проект целиком. Текст unit Unit1 ничем не поможет дать вам ответ.
Ну разве могу сразу сказать, что код этого модуля "ни разу" не соответствует описанной вами задаче. От слова совсем.
northener вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Где взять нормальный 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