Отправка SMS через Com-порт

[lord24]

Добрый день.
Помогите разобраться.
Пишу программу для отправки СМС и не получается отправить. Сразу, первый раз после подключения телефона и отправки из программы, телефон пишет сообщение отправлено, но не приходит, и больше не отправляется.
Вот код
Открытие порта

hCom := CreateFile('COM7',GENERIC_READ or GENERIC_WRITE, 0, nil, OPEN_EXISTING, FILE_FLAG_OVERLAPPED,0);
if hCom=INVALID_HANDLE_VALUE then begin
   ShowMessage('не удалось открыть'); //не удалось открыть
    end
    else begin ShowMessage('удалось открыть');
    end;

SetupComm(hCom,1600,1600);   //  установкf размеров внутренних буферов приема и передачи

SetCommState(hCom,DCB);        //  чтение/запись структуры DCB порта
with DCB do begin              //  настроить нужным образом
    BaudRate := CBR_19200;               //  скорость порта, 115200 деленная на значение
    ByteSize := 8;               //  число информационных бит в передаваемых и принимаемых байтах
    Parity:=NoParity;          //  Бит чесности
    StopBits:=OneStopBit;      //  1 стоповый бит
end;
if not SetCommState(hCom,DCB) then ShowMessage('Не передали настройки порта');

SetCommTimeouts(hCom,Timeouts);    //установка таймаутов
 with TimeOuts do begin
  ReadIntervalTimeout := 1;
  ReadTotalTimeoutMultiplier := 0;
  ReadTotalTimeoutConstant := 1;
  WriteTotalTimeoutMultiplier := 2;
  WriteTotalTimeoutConstant := 2;
 end;

 if not PurgeComm(hCom, PURGE_TXCLEAR or PURGE_RXCLEAR) then   // очищает очередь приема\передачи
 raise Exception.Create('Error purging port');        // и завершает все находящиеся в ожидании запросы ввода/вывода.

 if not SetCommMask(hCom, EV_RXCHAR) then             //ожидаybt прием одного или нескольких символов (байт)
 raise Exception.Create('Error setting port mask');

и отправка

procedure TForm1.Button3Click(Sender: TObject);
var
lpModems : DWORD;
nomer, textsms : string;
begin
nomer := '+375291023638';
textsms := 'Hello, world';

 SendCom('AT+CMGF=0' + #13#10);
 Sleep(5000);
 ShowMessage('Прошло 1');

  SendCom('AT+CMGS="' + nomer + '" '+ #13#10);
  Sleep(5000);
  ShowMessage('Прошло 2');

    SendCom(textsms + #26);
    Sleep(5000);
    ShowMessage('Прошло 3') ;


ShowMessage('Наверно записалось');
end;


procedure SendCom(s: string);
var TempArray: array[1..255] of Byte;
    Count    : Integer;
    TX_Count : Cardinal;
    OverWrite: TOverlapped;
begin
 OverWrite.hEvent := CreateEvent(nil, True, False, nil);
 if OverWrite.hEvent = Null then
  raise Exception.Create('Error creating write event');

 for Count:= 1 to Length(S) do
   TempArray[Count]:= Ord(S[Count]);
   if (not WriteFile(hCom, TempArray, SizeOf(TempArray), TX_Count, @OverWrite)) // пишет строку в порт
   and (GetLastError <> ERROR_IO_PENDING) then
  raise Exception.Create('Error writing port');

end;

Подскажите, что не так.

[lord24]

Да, и по ходу вопрос, как вставлять код?

[BARNEY]

Я выкладывал ссылки по этой теме и код... поищите по форуму... если что пишите...
у меня организовано СМС уведомление и обзвон клиентов.

[lord24]

Кое что по форуму нашел, но разобраться сложно. Как-то навернуто получилось.

[BARNEY]

ну если работает то всё хорошо

[lord24]

Слишком мудрено, у меня нет такого опыта. Хоть и исходники есть, но куча всего там и непонятно что за чем. Мне бы только смс отправить. Но как?

[lord24]

Да, и прога та не работает у меня.

[lord24]

Народ помогите!

[Стертор]

Возможно, немного не в тему, но зачем же мучить телефон, когда существует столько сайтов для бесплатной отправки смс? Налагается, правда, лимит на количество сообщений с одного и того же IP - адреса, но ведь прокси не грех юзать?

[beegl]

можете воспользоваться компонентом nrComm - если надо компонент исходник, пишите в лс