Delphi Отправка Смс Через Модем

Delphi – мощная интегрированная среда разработки для создания высокопроизводительных приложений под Windows. Один из способов использования Delphi – разработка программ, взаимодействующих с внешними устройствами, такими как модемы, на основе последовательной передачи данных. В данной статье представлен пример кода для отправки SMS-сообщения через модем в Delphi.

var  ComHandle: THandle;  ModemConfig: TDCB;  ModemTimeouts: TCommTimeouts;  Data: AnsiString;begin  ComHandle := CreateFile('\\.\COM3', GENERIC_READ or GENERIC_WRITE, 0, nil, OPEN_EXISTING, 0, 0);  if ComHandle = INVALID_HANDLE_VALUE then    raise Exception.Create('Unable to open serial port');  try    FillChar(ModemConfig, SizeOf(ModemConfig), 0);    with ModemConfig do    begin      DCBlength := SizeOf(ModemConfig);      BaudRate := CBR_9600;      ByteSize := 8;      Parity := NOPARITY;      StopBits := ONESTOPBIT;    end;    SetCommState(ComHandle, ModemConfig);    FillChar(ModemTimeouts, SizeOf(ModemTimeouts), 0);    with ModemTimeouts do    begin      ReadIntervalTimeout := 100;      ReadTotalTimeoutConstant := 100;      ReadTotalTimeoutMultiplier := 10;      WriteTotalTimeoutConstant := 100;      WriteTotalTimeoutMultiplier := 10;    end;    SetCommTimeouts(ComHandle, ModemTimeouts);    Data := 'AT+CMGF=1' + #$0D#$0A; // Set SMS message format to text mode    WriteFile(ComHandle, Data[1], Length(Data), Cardinal(nil)^, nil);    Data := 'AT+CMGS="79991234567"' + #$0D#$0A; // Set destination phone number    WriteFile(ComHandle, Data[1], Length(Data), Cardinal(nil)^, nil);    Data := 'Test SMS message' + #$1A; // Set SMS message text and send it    WriteFile(ComHandle, Data[1], Length(Data), Cardinal(nil)^, nil);  finally    CloseHandle(ComHandle);  end;end;

Данный код инициализирует COM-порт, на котором подключен модем, устанавливает соответствующие настройки, формирует текст сообщения и отправляет его на указанный номер телефона.