moduł sim800l jak wysłać zapytanie GET
: 28 gru 2024, 15:37
Witam, mój problem polega na tym iż za pomocą poniższego programu próbuję wysłać zapytanie GET do pewnego serwera.
niestety lecz z bascoma mi to nie wychodzi, a z przeglądarki jak najbardziej tak.
Wiem, że część waitów jest niepotrzebna, później je usunę.
w załączniku log z odpowiedzi modułu sim800l
niestety lecz z bascoma mi to nie wychodzi, a z przeglądarki jak najbardziej tak.
Wiem, że część waitów jest niepotrzebna, później je usunę.
Code: [Zaznacz cały] [Rozwiń/Zwiń]
- $regfile = "m88pdef.dat"
- $crystal = 1000000
- $hwstack = 40
- $swstack = 16
- $framesize = 32
- $baud = 9600
- ' wlasny numer karty to AT+CNUM
- ' napiecie baterii AT+CBC
- ' numer imei AT+CGSN
- ' AT+CUSD=1, "*100#"
- Config Pinc.5 = Input : Portc.5 = 1 : Pir_1 Alias Pinc.5 'czujka pir 1
- config submode=new
- Do
- If Pir_1 = 1 Then
- print "AT"
- Print "AT+CREG?" ; Chr(13) ;
- Waitms 3000
- Print "AT+SAPBR=3,1,";CHR(34);"Contype";CHR(34);",";CHR(34);"GPRS";CHR(34); Chr(13);
- Waitms 1000
- Print "AT+SAPBR=3,1,APN,INTERNET"; Chr(13)
- Waitms 1000
- Print "AT+SAPBR=1,1"; Chr(13)
- Waitms 3000
- Print "AT+SAPBR=2,1" ' Sprawdzenie statusu połączenia
- Waitms 1000
- Print "AT+HTTPINIT"; Chr(13)
- Waitms 1000
- Print "AT+HTTPPARA=CID,1"; Chr(13)
- Waitms 3000
- Print "AT+HTTPSSL =1"; Chr(13)
- Waitms 3000
- Print "AT+HTTPPARA=";CHR(34);"URL";chr(34);",";chr(34);"https://xxxxxxxx/cronDetect.php?klucz=sobota&wartosc=1520";CHR(34); Chr(13) ;
- Waitms 1000
- Print "AT+HTTPPARA =REDIR,1" ; ; Chr(13)
- Waitms 1000
- Print "AT+HTTPACTION =2" ; ; Chr(13)
- Waitms 1000
- Print "AT+HTTPTERM" ; ; Chr(13)
- Waitms 1000
- Print "AT+SAPBR =0,1" ; ; Chr(13)
- Waitms 1000
- Print "AT+HTTPPARA =REDIR,1" ; ; Chr(13)
- Waitms 1000
- ' Print "AT+CSCLK?" ; Chr(26) ;chr(13)
- 'Waitms 1000
- End If
- wait 57
- Loop
- End