Как программно установить конфигурацию COM-порта в Windows 95?

procedure TForm1.Button1Click(Sender: TObject); 
var 
  CommPort : string; 
  hCommFile : THandle; 
  Buffer : PCommConfig; 
  size : DWORD; 
begin 
  CommPort := 'COM1'; 


{Открываем Com-порт} 
  hCommFile := CreateFile(PChar(CommPort), 
                          GENERIC_WRITE, 
                          0, 
                          nil, 
                          OPEN_EXISTING, 
                          FILE_ATTRIBUTE_NORMAL, 
                          0); 
  if hCommFile=INVALID_HANDLE_VALUE then 
  begin 
    ShowMessage('Unable to open '+ CommPort); 
    exit; 
  end; 
{Выделяем временный буфер} 
  GetMem(Buffer, sizeof(TCommConfig)); 

{Получаем размер структуры CommConfig}
  size := 0; 
  GetCommConfig(hCommFile, Buffer^, size); 

{Освобождаем временный буфер} 
  FreeMem(Buffer, sizeof(TCommConfig)); 

{Выделяем память для структуры CommConfig} 
  GetMem(Buffer, size); 
  GetCommConfig(hCommFile, Buffer^, size); 

{Изменяем скорость передачи} 
  Buffer^.dcb.BaudRate := 1200; 

{Устанавливаем новую конфигурацию для COM-порта} 
  SetCommConfig(hCommFile, Buffer^, size); 

{Освобождаем буфер} 
  FreeMem(Buffer, size); 

{Закрываем COM-порт}
  CloseHandle(hCommFile); 
end;

Взято с Исходников.ru



Содержание раздела

---