Цитата(XVR @ Mar 18 2015, 17:01)
Тогда показывайте текст программы (ту часть, что читает данные с модуля)
Вкратце вот так:
Код
procedure TForm1.RxTimerTimer(Sender: TObject);
var
Errors : Dword;
LenReceive : DWord;
i : integer;
RxData, Log, NumStr : string;
begin
RxData := '';
ClearCommError(hCom, Errors ,@Stat);//?????????? ????
LenReceive := Stat.cbInQue;
If LenReceive>0 Then
Begin {1}
ReadFile(hCom,RXBUF,LenReceive,LenReceive,nil);
For i:=0 to LenReceive-1 Do
Begin
if (RXBUF[i]<>$A) and (RXBUF[i]<>$D) then
begin
RxData := RxData + Chr(RXBUF[i]);
end
else
begin
ListBox1.Items.Strings[ListBox1.ItemIndex] :=' '+RxData;
RxData := '';
ListBox1.TopIndex := ListBox1.Items.Count - 1;
end;
End;
End; {1}
end;
Данные он отправляет без приглашения, смски тоже. В прикреплённом файле только что дописанная программа для работы с SIM900. В инете не нашёл, поэтому сам сочинил. До этого ковырялся в программе от другова модуля.
Сообщение отредактировал ДЕЙЛ - Mar 24 2015, 22:01
Обмен данными между GSM-модулями
Mar 16 2015, 19:32
