User manual

mikroPascal PRO for PIC32
MikroElektronika
423
result := SPI_Ethernet_putConstString(@httpHeader); // HTTP header
result := result + SPI_Ethernet_putConstString(@httpMimeTypeScript); // with
text MIME type
// add AN2 value to reply
WordToStr(ADC1_Get_Sample(0), dyna);
tmp := ‘var AN0=’;
result := result + SPI_Ethernet_putString(@tmp);
result := result + SPI_Ethernet_putString(@dyna);
tmp := ‘;’;
result := result + SPI_Ethernet_putString(@tmp);
// add AN3 value to reply
WordToStr(ADC1_Get_Sample(1), dyna);
tmp := ‘var AN1=’;
result := result + SPI_Ethernet_putString(@tmp);
result := result + SPI_Ethernet_putString(@dyna);
tmp := ‘;’;
result := result + SPI_Ethernet_putString(@tmp);
// add PORTB value (buttons) to reply
tmp := ‘var PORTB= ‘;
result := result + SPI_Ethernet_putString(@tmp);
WordToStr(PORTB, dyna);
result := result + SPI_Ethernet_putString(@dyna);
tmp := ‘;’;
result := result + SPI_Ethernet_putString(@tmp);
// add PORTD value (LEDs) to reply
tmp := ‘var PORTD= ‘;
result := result + SPI_Ethernet_putString(@tmp);
WordToStr(PORTD, dyna);
result := result + SPI_Ethernet_putString(@dyna);
tmp := ‘;’;
result := result + SPI_Ethernet_putString(@tmp);
// add HTTP requests counter to reply
WordToStr(httpCounter, dyna);
tmp := ‘var REQ= ‘;
result := result + SPI_Ethernet_putString(@tmp);
result := result + SPI_Ethernet_putString(@dyna);
tmp := ‘;’;
result := result + SPI_Ethernet_putString(@tmp);
end
else
if(getRequest[5] = ‘t’) then // if request path name starts
with t, toggle PORTD (LED) bit number that comes after
begin
bitMask := 0;
if(isdigit(getRequest[6]) <> 0) then // if 0 <= bit number <= 9,
bits 8 & 9 does not exist but does not matter
begin
bitMask := getRequest[6] - ‘0’; // convert ASCII to integer