🚀 go-pugleaf

Using C3 out of  bds 2006 and Delphi7, I am having difficulty with receiving 
intelliable data in the Delphi 7 app.  (Sending the other way is 
intelliable).

    if (outStream.CanWrite)
    {
      string sendMsg = "Good Day";
       Byte[] data = System.Text.Encoding.ASCII.GetBytes(sendMsg);
       this.outStream.Write(data, 0, data.Length);
    }

From the above, the receive event contains this

procedure TForm1.TcpClient1Receive(Sender: TObject; Buf: PAnsiChar;
  var DataLen: Integer);
var
  P: PChar;
 recvdString: String;
begin
    if (Sender is TCustomIpClient) then
    begin
         P := @Buf;
        recvdString := PChar(P);
        memRecv.Lines.Add('Recd: ' + recvdString);
    end;
....
end;


The following in an onConnect event produces similar problems
var
  A: array[0..79] of Char;
  P: PChar;
  bufsize: Integer;
begin
      TCustomIpClient(Sender).ReceiveBuf(A, bufsize, 0);
      if not (bufsize = 0) then
      begin
        P := @A[0];
        recvdString := string(P);
      end;
 .....
end;

I apologize if there is a more suitable newsgroup.

Nigel Scott, MVS