20%
:oops: oops!yo2lio wrote:You can connect NOW the PIC to the INTERNET !!!mando wrote:This means we can connect the PIC directly to internet? :o
Code: Select all
Str2Ip("xxx.xxx.xxx.xxx",user_ip_addr) ' PIC_RECEIVER IP address
eth_port = 10001
dest_port = xxxxx ' PIC_RECEIVER port number
Code: Select all
WOW Sub Procedure Eth_SetParameters ' set your parameters here
Str2Ip("192.168.0.110",eth_ip_addr)
Str2Ip("192.168.0.2",eth_gateway)
Str2Ip("85.120.220.254",eth_ntp_addr) '
Str2Ip("255.255.255.0",eth_mask)
Str2Mac("0004A3008080",eth_mac)
Str2Ip("192.168.0.14",user_ip_addr)
eth_port = 10001
dest_port = 10001
end sub
Code: Select all
main:
ADCON1 = ADCON1 or 0x07 ' turn off analog inputs
ADCON1.3 = 0
TRISD = %00000000
PORTD = 0
TRISB.0 = 1
PORTB.0 = 0
GreenLed = false
Btn = false
Init
Spi_Init_Advanced(MASTER_OSC_DIV4, DATA_SAMPLE_MIDDLE, CLK_IDLE_LOW, LOW_2_HIGH)
Eth_SetParameters
Eth_Init_(PORTB, 3, PORTB, 5)'(ENC_Port_CS, CS, ENC_Port_Reset, Reset)
Wait_For_Lan
if NTP_Sync = false then Ntp_query end if
counter1 = 0
while true
Eth_DoPacket ' process incoming packets
if counter1 > 5000 then ' repeat at 5000 ms
counter1 = 0
if NTP_Sync = false then Ntp_query end if
Get_Time
Success = Send_UDP(user_ip_addr, dest_port,
eth_port,
Str_Len(TTime.Str),
TTime.Str)
end if
wend
end.
Code: Select all
if dest_port_T = 110 then
begin
i := 0;
while i < 32 do
begin
getRequest[i] := Eth_GetByte;
inc(i);
end;
txt31 := '+OK Hello there.';
if Mem_Cmp(@getRequest, @txt31, Str_Len(txt31)) = 0 then
begin
len_tcp_resp := CopyRamStringToEthMem_CP('USER office@yahoo.com);
Eth_PutByte($0D);
Eth_PutByte($0A);
result := len_tcp_resp + 2;
exit;
end;
txt31 := '+OK Password required.';
if Mem_Cmp(@getRequest, @txt31, Str_Len(txt31)) = 0 then
begin
len_tcp_resp := CopyRamStringToEthMem_CP('PASS 7654TRGarT');
Eth_PutByte($0D);
Eth_PutByte($0A);
result := len_tcp_resp + 2;
exit;
end;
txt31 := '+OK logged in.';
if Mem_Cmp(@getRequest, @txt31, Str_Len(txt31)) = 0 then
begin
len_tcp_resp := CopyRamStringToEthMem_CP('STAT');
Eth_PutByte($0D);
Eth_PutByte($0A);
result := len_tcp_resp + 2;
exit;
end;
txt31 := '+OK Bye-bye.';
if Mem_Cmp(@getRequest, @txt31, Str_Len(txt31)) = 0 then
begin
result := 0;
exit;
end;
txt31 := '+OK ';
if Mem_Cmp(@getRequest, @txt31, Str_Len(txt31)) = 0 then
begin
i := 4;
while getRequest[i] <> ' ' do
begin
messages_nb[i-4] := getRequest[i];
inc(i);
end;
messages_nb[i-4] := 0;
len_tcp_resp := CopyRamStringToEthMem_CP('QUIT');
Eth_PutByte($0D);
Eth_PutByte($0A);
result := len_tcp_resp + 2;
exit;
end;
exit;
end;Code: Select all
begin
Eth_DoPacket;
if NTP_Sync = false then Ntp_query;
if TickCounter2 > 999 then
begin
TickCounter2 := 0;
Get_Time;
RemoveFirstNChr(TTime.Str, 10);
text_ := ' Time ';
Str_Cat(text_, TTime.Str);
LcdOut(2,1,text_);
end;
if count_mess > 600 then
begin
messages_nb := '-1';
if inc(TCP_opened_port) > 65000 then TCP_opened_port := 5000;
TCP_Open_Port(TCP_opened_port);
Open_TCP_Connection(user_ip_addr, dest_port, TCP_opened_port);
count_mess := 0;
while count_mess < 40 do
begin
Eth_DoPacket;
if messages_nb[0] <> '-' then break;
end;
text_ := 'You have ';
Str_Cat(text_, messages_nb);
Str_Cat(text_, ' new messages');
Str_Cat(text_, EOL);
Send_UDP(user_ip_addr1, 10003, eth_port, Str_Len(text_), text_);
TCP_Close_Port(TCP_opened_port);
TickCounter2 := 0;
if Str_Len(messages_nb) < 2 then Str_AppendPre(messages_nb, ' ');
LcdOut(1,1,messages_nb);
end;
