Socket通信の書き換え(pythonより) (ID:149882)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

不要かもしれませんが、念の為の記録として・・・そして、自身のメモとしても・・・
Indyだと以下で動作しました。

※例外処理が圧倒的に不足しております。

----------------------------------------------------------------------------------
uses    IdBaseComponent,  IdComponent, IdTCPConnection, IdTCPClient, IdGlobal;    //←追加
----------------------------------------------------------------------------------

procedure TForm1.Button2Click(Sender: TObject);
var
  MyIdTCPClient : TIdTCPClient;
  RecvData      : TIdBytes;
  SendData      : TIdBytes;

begin
  MyIdTCPClient := TIdTCPClient.Create(nil);
  try
    MyIdTCPClient.Port := 57172;
    MyIdTCPClient.Host := '192.168.111.52';

MyIdTCPClient.Connect;
    if MyIdTCPClient.Connected then
    begin
      SendData :=
        [$AB,$01,$16,$52,$0b,$00,$01,$33,
         $00,$04,$00,$00,$00,$00,$00,$38,$00];

MyIdTCPClient.IOHandler.Write(SendData,Length(SendData),0);

MyIdTCPClient.IOHandler.ReadBytes(RecvData,10);

Memo1.Lines.Add( format('%f',[ (RecvData[6]*256+RecvData[5]-1000)/10 ]) );
      Memo1.Lines.Add( format('%f',[ (RecvData[8]*256+RecvData[7]-1000)/10 ]) );
    
      MyIdTCPClient.Disconnect;
    end;
  finally
    FreeAndNil(MyIdTCPClient);
  end;
end;

←解決時は質問者本人がここをチェックしてください。

戻る