CommXでメモリエラーを解決するには？ (ID:44204)

名前

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

本文 書き込み違反ならともかく読み込み違反が起きそうな要因はないですね。 >処理をし続けて4回目だったり、10回目だったり。。。 メモリ確保したらfinallyなどで必ず解放したほうがよいですね。 var Buf : PChar; receive : String; i : Integer; f : Boolean; // <-追加 begin f := False; Buf := AllocMem(ReceiveSize); try CommX.ReceiveBlock(Buf,ReceiveSize); for i := 0 to ReceiveSize - 1 do begin if Buf[i] = 終了コード($04) then begin //結果設定 略 f := True; end else begin receive := receive + Buf[i]; end; end; finally FreeMem(Buf); end; if f then begin Close; exit; end;