掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
Indy9のUDPの送受信がうまくいかない (ID:18921)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
Indy9のTIdUDPClient,TIdUDPServerで送受信を したいのですがうまくいきません SendBufferでクライアントからデータを送って サーバーで受け取ったときに値がいつも変化してしまいます 原因がさっぱり分かりません 以下にソースを書きますが間違っているのでしょうか？ (クライアントのHostはLocalHostにしています) procedure TForm1.Button1Click(Sender: TObject); var data: TMemoryStream; i: Integer; begin data:=TMemoryStream.Create; i:=1; data.WriteBuffer(i,1); IdUDPClient1.SendBuffer(data,1); data.Free; end; procedure TForm1.IdUDPServer1UDPRead(Sender: TObject; AData: TStream; ABinding: TIdSocketHandle); var Data: TMemoryStream; i: Integer; begin Data:=TMemoryStream.Create; Data.CopyFrom(AData,AData.Size); Data.Position:=0; Data.ReadBuffer(i,1); Label1.Caption:=IntToStr(i); Data.Free; end;
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.