Developing.ru

подскажите плз как работать с ком портом в делфи.. как читать с него данные.

работал с портами только в паскале, непосредственно обращаясь к адресу порта
в виндовозе хп такая фишка не прокатит..

Оффициально, работа организована через [syntax="delphi"] hPort := CreateFile(
PChar('\\.\' + PortName),
GENERIC_READ or GENERIC_WRITE, 0, 0,
OPEN_EXISTING, 0, 0);[/syntax]
Есть множество компонентов для работы с com-портами.
Так же есть программы, разрешающие приложению доступ до порта напрямую.

LAngel писал(а):Оффициально, работа организована через [syntax="delphi"] hPort := CreateFile(
PChar('\\.\' + PortName),
GENERIC_READ or GENERIC_WRITE, 0, 0,
OPEN_EXISTING, 0, 0);[/syntax]
Есть множество компонентов для работы с com-портами.
Так же есть программы, разрешающие приложению доступ до порта напрямую.

т.е. это инициализация порта?

matroskin писал(а):т.е. это инициализация порта?

Нет это открытие "хендла" порта, с которым можно потом общаться с помощью функций:
ReadFile, WriteFile

настройки параметров порта, и его иниализация проводятся функциями
G(S)etCommState, G(S)etCommTimeouts

а вообще можно почитать тут

&quot писал(а):т.е. это инициализация порта?

Это "получение прав пользования" этим портом, чтобы по Exception'у не получить. :-)

LAngel писал(а):Нет это открытие "хендла" порта, с которым можно потом общаться с помощью функций:
ReadFile, WriteFile

настройки параметров порта, и его иниализация проводятся функциями
G(S)etCommState, G(S)etCommTimeouts

а вообще можно почитать тут

пасибо, почитаю=)

somewhere писал(а):Это "получение прав пользования" этим портом, чтобы по Exception'у не получить. :-)

пасибо, разбераюсь уже

Все написал, работает вроде Но есть одно НО - я читаю 9 байт с ком порта в строку s1, но вывести эту строку почемуто не могу (закоментированная строка)- возникает ошибка типа - нет доступа к адресу ... вот, так в чем ошибка? :/
[syntax="delphi"] hPort := CreateFile(
function ReadCom :boolean;
var
d: array[1..100] of Char;
BytesRead: DWORD;
i: Integer;
s1:string;
Begin
if not Windows.ReadFile(fHandle, d, 9, BytesRead, nil) then
ShowMessage('cant read')
else
begin
s1:='';
for i:=1 to BytesRead do
begin
s1:=s1 + d;
end;
//mm1.Lines.Add(s1);
edt1.Text:=s1;
end;
End;[/syntax]