nrComm Lib - Frequently Asked Questions

//=======================================================
//Solution for first case (receiving fixed length string)
//-------------------------------------------------------

Var ReceiveString:string='';       // global buffer    
Const FixedLengthOfStr:integer=10; // length of incoming string

procedure TForm1.nrComm1AfterReceive(Com: TnrCustomComm; Buffer: Pointer;
  Received: Cardinal);
var i:integer;
begin
  for i:=0 to Received-1 do begin
    //accumulating string ...
    ReceiveString:=ReceiveString+PChar(Buffer)[i];
    if Length(ReceiveString)=FixedLengthOfStr then begin
       DoSomething(ReceiveString);
       ReceiveString:='';
    end;
  end;
end;

//============================================================
//Solution for second case (with fixed bytes sequence in end):
//------------------------------------------------------------

Var ReceiveString:string='';
    EndIndex:integer=1;
Const EndOfString:string='/end/';

procedure TForm1.nrComm1AfterReceive(Com: TnrCustomComm; Buffer: Pointer;
  Received: Cardinal);
var i:integer;
begin
  for i:=0 to Received-1 do begin
    //accumulating string ...
    ReceiveString:=ReceiveString+PChar(Buffer)[i];
    if PChar(Buffer)[i]=EndOfString[EndIndex] then begin
       if EndIndex=Length(EndOfString) then begin
         DoSomething(ReceiveString);
         ReceiveString:='';
         EndIndex:=1;
       end;
    end else EndIndex:=1;
  end;
end;


//===================================================
//Solution for third case (detecting by timeout):
//---------------------------------------------------
//You should use TTimer component Timer1.

procedure TForm1.nrComm1AfterReceive(Com: TnrCustomComm; Buffer: Pointer;
  Received: Cardinal);
var i:integer;
begin
  if not  Timer1.Enabled then Timer1.Enabled:=True;
  for i:=0 to Received-1  //accumulating string ...
    do ReceiveString:=ReceiveString+PChar(Buffer)[i];
end;
//handling OnTimer event ...
procedure TForm1.Timer1Timer(Sender: TObject);
begin
  DoSomething(ReceiveString); //processing string
  ReceiveString:='';     //reset string
  Timer1.Enabled:=False; //stop timer
end;