[?]Cport 3.1 и COM порты в общем

[Zadovatel]

Сообщение от raxp

var
  ComPort: TComPort;
  Events: TComEvents;
 
begin
  ComPort := TComPort.Create(nil);
  try
    ComPort.Events := [];  // do not create monitoring thread
    ComPort.Open;  // open port
    Events := [evCTS, evDSR, evRLSD];  // define events to wait for
    ComPort.WaitForEvents(Events, nil, WaitInfinite);  // wait until at least one event happens
    if evCTS in Events then
 
      WriteLn('CTS Changed');  // CTS signal changed state
    ComPort.Close;  // close port
  finally
    ComPort.Free;
  end;
end;

Код взят из примера в help файле 2.63 и он не рабочий.Так как в версии 3.1 WaitForEvents отсутствует.Там есть толькоWaitForEvent,которая озвучена выше.Решил,забить на компонент пока.Да бы не плодить 135 никому,кроме меня,не нужных тем задам вопрос здесь.Решил потренироваться в консольном приложении.В итоге порт так и не был открыт.Все скомпелировалось,модуль Windows подключил.Вот часть кода:

program TestCom;

{$APPTYPE CONSOLE}

uses
  SysUtils, Windows;

var
 DCB   : TDCB;
 hPort : THandle;
begin
  // 1. Открываем порт
  hPort := CreateFile(PChar('COM15'),
                      GENERIC_READ + GENERIC_WRITE,
                      0, nil, 
                      OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL, 0);
  // 2. Контроль ошибок
  if hPort = INVALID_HANDLE_VALUE then begin
  Write('Error opening port');
  ReadLn;
   // Обнаружена ошибка,порт открыть не удалось
   exit;
  end;

Вот тут-то что не так?

[northener]

COM порты с номером больше 9 именуются так

\\.\COMn

, где n номер порта

[Zadovatel]

Сообщение от northener

COM порты с номером больше 9 именуются так

\\.\COMn

, где n номер порта

Большое спасибо за информацию.

[Zadovatel]

Реализовал все на WinAPI.Всем,кто помогал и просто участвовал в обсуждении большое спасибо.В итоге компонент оказался кривым,либо до меня в нем кто-то ковырялся.

[raxp]

Почему у вас кот невкусный? - Просто Вы не умеете готовить котов.

[I.V.Bunsha]

По порядку.
1). Во первых использовать System.Text - Not Delphy Way. Его для обратной совместимости оставили. И он с багом - иногда теряет концы файлов. Используйте TFileStream (кстати он отлично пишет/читает в COM-порт).
2). Метод Free есть всегда. Просто он объявлен в TObject и по гайду его трогать нельзя. Прямой вызов деструктора не рекомендуется: а вдруг у вас объект не создался?

[raxp]

...есть хорошая альтернатива - FreeAndNil().

Почему всегда нужно использовать FreeAndNil вместо Free