Hallo,
ich möchte einzelne Bytes in einem Array beschreiben, das funktioniert aber nicht wirklich. Er bricht ab und wirft dann folgende
Exception:
Zugriffsverletzung bei Adresse 008E357 in Modul......Schreiben von Adresse 00000000
Ich kann zwar in TBuffer ein bestimmtes Byte lesen.
Aber in TBuff nicht schreiben.....
Wer kann mir da weiterhelfen?
Delphi-Quellcode:
var
LLine : String;
b : Byte;
a, i, i1 : integer;
TBuffer, TBuff : TiDBytes;
Begin
if rdt_server.active then begin
try
AContext.Connection.IOHandler.ReadBytes(TBuffer, -1, False);
//i := AContext.Connection.IOHandler.RecvBufferSize;
i := SizeOf(TBuffer);
a := 0;
i1 := 0;
edit1.Text := inttostr(i);
while i > 1 do begin
b := TBuffer[i1];
edit2.Text := inttostr(b);
if b <> 3 then begin
edit3.Text := 'XXXXXXXXX';
TBuff[i1] := b; // HIER BRICHT ER AB!!
edit3.Text := 'AAAAAAAAA';
i1 := i1 + 1;
i := i - 1;
a:= a + 1;
end;
if b = 3 then begin
LLine := IdGlobal.BytesToString(TBuff, 0, a, nil);
mbo_rdt_rec.Lines.Add(LLine);
pnl_rdt_last_record.Caption := LLine;
end;
end;