named pipes

[suganthi87]

Hi
I am using named pipes to transfer text between vc++ and delphi.
The delphi code is shown below:

procedure TForm1.OnServerPipeMessage(Sender: TObject; Pipe: Cardinal; Stream: TStream);
var
S : String;

begin
        SetLength(S, Stream.Size);
  Stream.Read(S[1], Length(S));
  Memo1.Lines.Add(S);

end;

The problem i face is that I am able to receive only one character at delphi end. For example if i send "abcdefg" from vc++ then I receive the starting character i.e 'a' at Delphi end. I am using 'rllibby' pipes.pas unit.

It would be great, if anyone could help me with the code.
Thank you.

[FlamingClaw]

what do you want exactly?
if you send 'abcdef' then recieve the whole string?

Stream.Read(S,Length(S));

[suganthi87]

If i read it like below...then i get 0 displayed in the memo

Stream.Read(S[1], Length(S));
Memo1.Lines.Add(S);

i think there is some incompatibility between delphi and vc++.. which i am not able to figure out

[FlamingClaw]

procedure TForm1.Button1Click(Sender: TObject);
Var count: Integer;
begin
 count := Memo1.Lines.Count-1;

 If Memo1.Lines.Count = 0 then
  Memo1.Text := Edit1.Text
 Else
  Memo1.Lines[count] := Memo1.Lines[count] + S;
end;