Работа с COM-портом

IMOL
Дата: 25.05.2011 15:12:27
Исходные данные. На Com5 находится голосовой модем. В VBasic "помещаем" объект MSComm на форму, пишем две строчки (ниже приведены) и все работает: модем выполняет вызов по номеру 9167777777

data="ATDT89167777777;" & vbCrLf
MSComm1.Output = data


Пытаемся все это сделать в Delphi (по советам из данного форума):

var
hPort : THandle;
s:string;//строка которую будешь засылать
BytesWriten:Cardinal;//сколько будет записано

begin
hPort := CreateFile(PChar('COM5'),GENERIC_READ or GENERIC_WRITE, 0, nil,
OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL, LongInt(0));
s:='ATDT89167777777;'+#13;
WriteFile(hPort,s,length(s),BytesWriten,nil);
end;

Ошибок не выпадает, но вызов не выполняется.

Не подскажите, где "копать"?
defecator
Дата: 25.05.2011 15:35:26
1. А что вернул CreateFile ?
2. Готовые компоненты использовал ?
....
Anatoly Podgoretsky
Дата: 25.05.2011 15:44:02
ath1
Anatoly Podgoretsky
Дата: 25.05.2011 15:46:39
автор
Пытаемся все это сделать в Delphi

В Дельфи ты этого не делаешь, что бы было тоже, то надо найти компонент, видимо это OLE/COM/OCX - mscomm1
misha mike
Дата: 25.05.2011 17:41:39
WriteFile(hPort,s[1],length(s),BytesWriten,nil);
Причем строка должна быть AnsiString
Кроик Семён
Дата: 25.05.2011 17:57:11
Коллега использовал TComPort by Dejan Crnila (вышел на него, т.к. AsyncPro не поддерживает Delphi 6)
и остался очень доволен.
Мимопроходящий
Дата: 25.05.2011 18:51:06

Hello, Кроик Семён!
You wrote on 25 мая 2011 г. 14:57:11:

Кроик Семён
вышел на него, т.к. AsyncPro не поддерживает Delphi6
с каких это пор?

--
With best regards, Мимопроходящий.

Posted via ActualForum NNTP Server 1.4

Кроик Семён
Дата: 25.05.2011 18:58:25
ну, с каких пор не знаю, но если скачать, то там пакеты для D7, D2005, D2007, D2009 только
Мимопроходящий
Дата: 25.05.2011 19:03:28

Hello, Кроик Семён!
You wrote on 25 мая 2011 г. 15:58:25:

Кроик Семён
> ну, с каких пор не знаю, но если скачать
> то там пакеты для D7, D2005, D2007, D2009 только

а если перед тем как качать, таки посмотреть что там ещё
есть, на этой же страничке, то можно таки найти нужное.

--
With best regards, Мимопроходящий.

Posted via ActualForum NNTP Server 1.4

Anatoly Podgoretsky
Дата: 25.05.2011 19:12:50
Кроик Семён
Коллега использовал TComPort by Dejan Crnila (вышел на него, т.к. AsyncPro не поддерживает Delphi 6)
и остался очень доволен.

Хороший продукт, может лучший.