掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
Indy9のUDPの送受信がうまくいかない (ID:18923)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
返信ありがとうございます 以下のようにソースを直しましたがやはり値が変動してしまいます たまに正しい値になりますが・・ まだ何か問題があるのでしょうか？ ちなみにバイナリデータを送受信できれば TMemoryStreamを使わなくてもいいのですが 他によい方法があれば教えていただきたいです procedure TForm1.Button1Click(Sender: TObject); var data: TMemoryStream; i: Integer; begin i:=StrToInt(Edit1.Text); data:=TMemoryStream.Create; data.WriteBuffer(i,1); data.Position := 0; IdUDPClient1.SendBuffer(data.Memory^,1); data.Free; end; procedure TForm1.IdUDPServer1UDPRead(Sender: TObject; AData: TStream; ABinding: TIdSocketHandle); var i: Integer; begin AData.Position := 0; AData.ReadBuffer(i, 1); Label1.Caption:=IntToStr(i); end;
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.