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;
|