掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
Socket通信の書き換え(pythonより) (ID：149876)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
以下にTcpClientのユニット（クラス）を公開しました。 https://mam-mam.net/delphi/winsock.html このユニットを使って Uses MamTcpClient; procedure TForm1.Button4Click(Sender: TObject); var TcpClient:TMamTcpClient; RecvData:TBytes; SendData: TBytes; begin SendData := [$AB,$01,$16,$52,$0b,$00,$01,$33, $00,$04,$00,$00,$00,$00,$00,$38,$00]; TcpClient:=TMamTcpClient.Create(); TcpClient.Port:=57172; TcpClient.Host:='192.168.111.52'; if TcpClient.Open then begin TcpClient.SendBytes(SendData); //送信(バイト型配列) sleep(100); //とりあえずちょっと待つ RecvData:=TcpClient.RecvBytes; //受信(バイト型配列) Memo1.Lines.Add( format('%f',[ (RecvData[6]*256+RecvData[5]-1000)/10 ]) ); Memo1.Lines.Add( format('%f',[ (RecvData[8]*256+RecvData[7]-1000)/10 ]) ); TcpClient.Close; end; TcpClient.free; end; では如何でしょうか。
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.