Отправлено smovch 26 сентября 2002 г. 10:43

Вчера устанавил AsyncPro и для пробы написал вот такую программку. Но то что у меня получилось очень медленно работает, в результате на Celerone-300 с чем-то МГц задержка между передачей байт получилась
около 50 mS. Максимум времени помоему пожирает изменение Parity. Подскажите в чем проблема.

procedure TForm1.Button1Click(Sender: TObject);
var
cnt,i: DWORD;
ExFlag: Boolean;
begin
ApdComPort1.Open:=True;
ApdComPort1.ComNumber:=2; {скорость 9600 задана из object inspector}

for i:=0 to $FFFF do
begin
ApdComPort1.Parity:=pMark;
ApdComPort1.DTR:=true;
ApdComPort1.PutChar(chr($7F));
cnt:=0;
repeat
inc(cnt);
until ApdComPort1.OutBuffUsed = 0;
ApdComPort1.Parity:=pSpace;
ApdComPort1.DTR:=false;
ApdComPort1.PutChar(chr($7F));
cnt:=0;
repeat
inc(cnt);
until ApdComPort1.OutBuffUsed = 0;
sleep(300);
end;

ApdComPort1.Open:=False;
end;

• Как альтернативу модулю могу посоветовать ВАМ написать свой драйвер(+) — Bob   (27.09.2002 10:37, 127 байт)
• Ответ: Мне кажется ничего вы не добъетесь — NickB   (26.09.2002 11:08, 168 байт)
  • Ответ: Полностью согласен — AIRiLS   (26.09.2002 11:21, пустое)
• Вообще-то свойства (параметры) компонента порта надо задавать до его открытия — AIRiLS   (26.09.2002 11:01, пустое)