освободить СОМ порт

[varelik]

Здравствуйте.
Подскажите, как и в какой процедуре можно освободить программно СОМ порт?
Используя компонент Tcom, делаю следующее:

procedure xxx();
var---;
begin
try
comm1.connect;
except
showmessage('порт нельзя открыть.');
exit
end;
showmessage('порт открыт.');
далее передаю байты
end;

вобщемто все работает, Но! если моя прога хоть часок просто будет открыта, потом при попытке передать байты всплывет: порт нельзя открыть.

[raxp]

по логике вещей, comm1.disconnect... а вообще не видно всей процедуры вашей, если вы после того как порт открыли, так его и оставили, то оно правильно всплывает при повторном использовании этой-же процедуры.

[varelik]

вобщем код щелчка по кнопке такой:

procedure TForm1.N10Click(Sender: TObject);
var   f3:file of byte;
k,kk,t:string; 
i5,h:integer;p,b:byte;
begin

try
 comm1.Connect;
except
 showmessage('Порт невозможно открыть');
 exit
end;
showmessage('Порт открыт');
 AssignFile(f3,'C:\xx.txt');
 reset(f3);  
k:='cтрока';
for i5:=1 to length(k) do comm1.SendByte(ord(k[i5]));
b:=$0D;Comm1.SendByte(b);


while not eof(f3) do begin 
read(f3,p);
comm1.SendByte(p);
end;
closefile(f3);


kk:='другая строка';
for i5:=1 to length(kk) do comm1.SendByte(ord(kk[i5]));
b:=$0D;Comm1.SendByte(b);

end;

[raxp]

1- отделите процедуру connect от посылки данных
2- либо сделайте disconnect после посылки.

[varelik]

Спасибо за совет.
Вот мне 1й вариант больше нравится,
т.к. ничего похожего на дисконект не нашел. есть только:
free,
destroy,
done(деструктор).
Теперь час-другой буду тестить

[raxp]

приложите сей компонент тут, глянем... вообще достаточно освободить хэндл для закрытия порта CloseHandle().

[varelik]

вот компонент.
кстати 1й вариант почемуто не сработал(

[raxp]

1й вариант почемуто не сработал

показывайте как делали...

в компоненте процедура connect уже содержит проверку и освобождение хэндла... немножко странная реализация заполнения DCB и только... потестировал у себя, такого как у вас глюка нет... опробуйте еще вот этот компонент (BComPort), отзывы о нем неплохие...

[varelik]

1) делал так: из procedure TForm1.N10Click(Sender: TObject); (описана в моем 2м сообщении этой темы)
удалил вот "это":

try
 comm1.Connect;
except
 showmessage('Порт невозможно открыть');
 exit
end;
showmessage('Порт открыт');

и поместил "это" в онклик другой кнопки.
И вот еще что: моя прога реализована через activeform (OCX), который я потом в WORDe через VBA запускаю.

[raxp]

обработчик некорректный, вы при любой ошибке получите сообщение что "порт невозможно открыть", а таких сообщений внутри процедуры "connect" аж 3 (заметьте - процедуры)/

...так что пробуйте bcomport, в нем эти вещи "вылизаны"
...что касается activex, проблемы могут возникнуть, если будет более одного запущенного экземпляра