2015年9月2日水曜日

DELPHI で232CをWIFI化する。

みなさん

おひさしぶり、やましょうです。
気がつけば9月ですね。そろそろサンタ見習いをはじめないと。。と思いつつ過ごしているのですが、いきなりデルファイXE9でなく10ですか。。そうですか。。

でも私個人的に10はいいと思うのですが、Xってどうよ?で思っている今日この頃です。
いい意味で裏切ってくれることを期待するしています。

さて、中国より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の詳細の設定はやましょうの電子工作にて、

それでは、みなさん、また次回