ClientSocket のイベントについて (ID:9152)

名前

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

本文 いろいろ教えていただいてありがとうございます。 以下の関数を作ってみました。 スレッドを使わない格好悪いやり方かもしれませんが、 テストしてみたところ、なんとか送信できるようです。 // ArBuf … 送信データ // ArBytes… 送信バイト数 // ArRetry… リトライ回数 function TcpSend(ArBuf: array of byte; ArBytes, ArRetry: Integer): Integer; var i,x,UsInt :Integer; begin i := 0; x := 0; repeat UsInt := TcpClient1.SendBuf(ArBuf[i], 1); // １バイトづつ地道に送信 if 1 = UsInt then begin Inc( i ); x := 0; end else begin Inc( x ); end; until (i = (ArBytes)) or (x > ArRetry ); if (i < (ArBytes)) or (x > ArRetry ) then Result := -1 else Result := 0; end; またお願いいたします。