bin das jetzt mal angegangen.
Aber er wirft eine
Exception wenn ich versuche ein gelesenes byte in ein anders array zu schreiben
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;