おひさしぶり、やましょうです。
気がつけば９月ですね。そろそろサンタ見習いをはじめないと。。と思いつつ過ごしているのですが、いきなりデルファイXE9でなく10ですか。。そうですか。。
でも私個人的に１０はいいと思うのですが、Ｘってどうよ？で思っている今日この頃です。
いい意味で裏切ってくれることを期待するしています。
さて、中国より1000円以下で232CをWIFI化できるチップがでました。
動作の動画はこんな感じ
実は、WIFI化するとコードがこんなに簡単に、ソースは以下だけでOK
procedure TForm1.Button1Click(Sender: TObject);
begin
/// esp8266へ送信
IdUDPServer1.Send('192.168.11.90', 1112, Edit1.Text+sLineBreak);
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
IdUDPServer1.DefaultPort := 12345; //適当なポートを使用
IdUDPServer1.Active := True;
end;
procedure TForm1.IdUDPServer1UDPRead(AThread: TIdUDPListenerThread;
const AData: TIdBytes; ABinding: TIdSocketHandle);
var
Str : String;
begin
Str := BytesToString(AData);
Memo1.Lines.Add(str);
end;
ソースはここです。
ESP8266の詳細の設定はやましょうの電子工作にて、
それでは、みなさん、また次回
