- 667 名前：デフォルトの名無しさん mailto:sage [2014/04/27(日) 19:31:33.96 ID:Q+0O3D4/]
- TIdTCPClient を使ってデータの受信をしています。
受信したデータをTIdBytesに保存して、実際に使う変数等に移していますが、access violationが出てしまいます。
var
mybuff: TIdBytes;
mypos: TIdBytes;
begin
SetLength(mybuff,128);
mypos := @mybuff[60];
mypos := @mybuff[64]; // <- エラー
実際のコードは
procedure SetData(var dat:WORD,buf:TIdBytes,var size:WORD);
pos := 0;
SetData(dat1,@mybuff[pos],size);
pos := pos + size;
SetData(dat2,@mybuff[pos],size);
pos := pos + size;
としており、posが64前後でエラーが発生します。
エラーの回避法は無いでしょうか。そもそものやり方がまずいのでしょうか。
アドバイスお願いします。
|
 |
