quote:

---

Originally posted by tks
p.s. do you know a good/free one?

---

quote:

---

Originally posted by tks
sow even if you program the SDK to output data..you need to ask the display for the send buffer...

---

quote:

---

Originally posted by tks
The only thing i don't know is how can i set the display to ASCII mode because it much easier for me to send #MG etc.
instead of $11 etc..
Tks

---

code:
 

procedure sendStr( 

    str  : string; 

    xPos : byte; 

    yPos : byte); 

var 

    Buffer : array[0..66] of byte; 

    i : integer; 

    chk : integer; 

begin 

    try 

        Buffer[0] := $11;           // DC1 

        inc(chk, Buffer[0]);        // increment the checksum 

 

        Buffer[1] := Length(str);   // len 

        inc(chk, Buffer[1]); 

 

        Buffer[2] := chr('#' ;      // escape 

        inc(chk, Buffer[2]); 

 

        Buffer[3] := chr('Z' ;      // Text ouput command 

        inc(chk, Buffer[3]) ; 

 

        Buffer[4] := xPos ;          // X postion 

        inc(chk, Buffer[4]) ; 

 

        Buffer[5] := yPos ;          // y postion 

        inc(chk, Buffer[5]) ; 

 

        // 

        //  strip each letter and put it into the send buffer 

        // 

        for i := 0 to Length(str) -1 do 

        begin 

            Buffer[6 + (i)] := chr(str[(i+1)]) ; 

            inc(chk, chr(str)) ; 

        end; 

        Buffer[6 + i] := 0;     // append the end of string byte 

        inc(chk, Buffer[6+i]) ; 

 

        Buffer[7 + i] := chk mod 256; 

 

        // 

        //  send the buffer using your preferred serial comm method 

        //  and check for ACK/NAK 

        // 

 

    except 

        // do something with the exception 

    end; 

end;

code:
 

> 11 00 11          // psudo text command  

< 06                // response OK 

> 12 01 53 66       // get buffer command 

< 06                // response ok 

< 11 00 11          // response of the get buffer 

> 06                // keep it happy by sending ACK