Как программно установить конфигурацию COM-порта в Windows 95?
Материал из DRKB
Как программно установить конфигурацию 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;
Source: Взято из http://forum.sources.ru
ID: 01342