[Aggression]

Всем добрый день. Писала программу, которая обращается к ком-порту с командами ATH0/ATH1, чтобы светодиод, подключенный к модемному разъему, выключался/включался. Цепочка спаяна, проверена на скачанной из интернета программе. Работает. Вывод -- моя программа гг. Подскажите, пожалуйста, что не так, ибо совсем еще новичок.

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87

unit Unit1;   interface   uses   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,   Dialogs, StdCtrls;   type   TForm1 = class(TForm)     Label1: TLabel;     Button1: TButton;     Button2: TButton;     procedure Button1Click(Sender: TObject);     procedure Button2Click(Sender: TObject);   private     { Private declarations }   public     { Public declarations }   end;   var   Form1: TForm1;   Port:THandle;   TRBuf:PChar; nToWrite:DWord; nWrite:DWord;     implementation   {$R *.dfm}   procedure TForm1.Button1Click(Sender: TObject);   begin if  button1.Caption='Открыть' then begin   Port:=CreateFile(     '\\.\COM3',     GENERIC_READ or GENERIC_WRITE,     0,                                nil,                              OPEN_EXISTING,                    FILE_ATTRIBUTE_NORMAL,     0   );  if (port=INVALID_HANDLE_VALUE)   then Application.MessageBox('Не хочет он','Еррор',MB_OK)   else begin   Application.MessageBox('Порт открыт','Опен',MB_OK);   button1.Caption:='Закрыть'; end;   end   else if button1.Caption='Закрыть' then begin   Application.MessageBox('Порт закрыт','Клозе',MB_OK); CloseHandle (port); button1.Caption:='Открыть';   end;   end;     procedure TForm1.Button2Click(Sender: TObject);   begin if  button1.Caption='Открыть' then Application.MessageBox('Порт закрыт, откройте его!','Еррор',MB_OK) else begin if  button2.caption='ATH0' then begin TRBuf:=PChar(button2.caption); nToWrite:=length(TRBuf)+1; WriteFile(port,TRBuf^,nToWrite,nWrite,nil);  button2.caption:='ATH1';  end else  if  button2.caption='ATH1' then  begin TRBuf:=PChar(button2.caption); nToWrite:=length(TRBuf)+1; WriteFile(port,TRBuf^,nToWrite,nWrite,nil); button2.caption:='ATH0';  end; end; end;   end.

[PhoeniX]

1. А точно COM3?
2. Код ни фига не оптимальный, при желании его можно сократить в полтора раза.
3. Не нужно использовать глобальные переменные там, где не нужно.
4. Документация по этому делу есть?
[offtop]
5. Ник что-то не ассоциируется с аватором....
[/offtop]

[Aggression]

1. Да точно, точно.
2. Спасибо за информацию.
3. В курсе, но так удобнее.
4. Какая именно?
5. Аватар изменить можно, а вот ник нет.
Пы.Сы.: ИМХО, у тебя получился полный оффтоп.

[PhoeniX]

4. А её много? Тогда вся, которая по теме
PS. Конечно, это же я

[Aggression]

Ты книжки имеешь в виду?
Если да, то книжки есть. Но такой специфической информации в них нет. По теме все, а я не флудераст =Р

[Aggression]

Проблема не решена, программа не пашет, хотя и отправляет на порт такие же команды, что и скачанная программа. Кто-нибудь знает, как решить проблему?

[cotseec]

1 я бы сделал так (вставил бы выход из процедуры - помечено красным):

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55

unit Unit1;   interface   uses   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,   Dialogs, StdCtrls;   type   TForm1 = class(TForm)     Label1: TLabel;     Button1: TButton;     Button2: TButton;     procedure Button1Click(Sender: TObject);     procedure Button2Click(Sender: TObject);   private     { Private declarations }   public     { Public declarations }   end;   var   Form1: TForm1;   Port:THandle;   TRBuf:PChar; nToWrite:DWord; nWrite:DWord;     implementation   {$R *.dfm}   procedure TForm1.Button1Click(Sender: TObject);   begin if  button1.Caption='Открыть' then begin   Port:=CreateFile(     '\\.\COM3',     GENERIC_READ or GENERIC_WRITE,     0,                                nil,                              OPEN_EXISTING,                    FILE_ATTRIBUTE_NORMAL,     0   );  if (port=INVALID_HANDLE_VALUE)   then Application.MessageBox('Не хочет он','Еррор',MB_OK)   else begin   Application.MessageBox('Порт открыт','Опен',MB_OK);   button1.Caption:='Закрыть'; <font color="RED">exit;</font> end;   end   else ...

2 товарищ DJ PhoeniX правильно сомневается в номере порта, конечно если ваш момед не USB (в этом случае номер порта действительно не 1 или 2 - из-за установки виртуального COM'a)
3 чтобы быть уверенным в отправке/получении информации стоит посмотреть утилитой Руссиновича PORTMON
4 а где, собственно, настройки порта? может вашему момеду нужны нестандартные (дефолтовые) настройки порта (четность, стоповый бит, количество битов, скорость)
5 можете марку момеда назвать для большей определенности, ну или как-то иначе его идентифицировать - это по крайней мере уберет неясности в точности номера COM'a, да и предварительные настройки порта неплохо бы сделать вот вам в помощь, как раз синхронный режим работы с портом.

[Aggression]

Выход из процедуры вставила-- не помогает.
Ком действительно третий...
Портмоном проверяла, именно поэтому в предыдущем посте я сказала, что моя программа не работает, хотя отправляет на порт такие же команды, что и скачанная программа. Agere systems HDA modem... Его как такового нет, вместо него подключена схема со светодиодом.
Ах да, последняя ссылка мне знакома -- пользовалась ей, когда писала программу)

[cotseec]

насколько я понимаю - работаете с момедом таким образом, что показатель работы есть диод на контактах гнезда под RJ11...
кстати, такой?.
думаю стоит посмотреть настройки порта, да и по коду, попробуйте сделать следующее (лучше отправку засунуть в функцию, результат которой boolean - успех отправки):

Код:

1 2 3 4 5 6 7

... TRBuf:String[4];/// вместо PChar; ... TRBuff:='ATH0';//<font color="red"><b>проверьте буквы в команде, чтобы не кирилица</b></font> WriteFile(port,<font color="red">TRBuf[1],Length(TRBuf)</font>,nWrite,nil); if nWrite=Length(TRBuf) then ShowMessage('OK') else ShowMessage('Error '+inttostr(GetLastError));// проверка правильности отправки синхронной работы ...

если говорит 'Error', то ищите ошибку в буфере отправки (TRBuf) - должга содержатся только текстовая информация (в вашем случае только 4 символа) без служебных символов


З.Ы. а может где контакт диода отошел или не в том направлении впаян?))))

[Aggression]

Насчет модема--не знаю, честно.
Программу изменила, но светодиод не включается, хотя программа пишет ОК.
Насчет спайки--точно все в порядке, ибо скачанная программа работает.

[cotseec]

Программу изменила, но светодиод не включается, хотя программа пишет ОК.

получается, что в порт данные отправляются, но момед их не обрабатывает или не понимает, остаются настройки порта, попробуйте на проверенном компоненте, хотя бы вот от сюда (с компонентом должна идти демка, которая поможет), чтобы понять в настройках ли дело и отсечь некорректность своего кода, может у вашей тестовой программы, которая зажигает диод, настройки порта не дефолтовые, если это так - в первую очередь попробуйте поиграться скоростью передачи, хотя судя по этому модем сам все делает.
и из области танцев с бубном - попробуйте после закрытия вашей программы, запустить работающую и наоборот, вместе попробовать тоже можно, но в какой-то программе должна случится ошибка открытия порта.
и перепишите вашу программу, без всяких заморочек с Caption кнопок, для начала отправляйте только одну команду 'ATH1' - поднятие трубки, т.к. на сколько я понимаю, 'ATH0' - положить трубку, т.е. разорвать цепь (следовательно диод и не горит).

[Aggression]

Спасибо всем за помощь, разобралась.
оказывается, в строке "TRBuf:=PChar(button2.caption); " нужно было добавить "+#13+#10", только и всего.
теперь все прекрасно работает.