copy MemoryStream to StringStream

[hosune7845]

Thanks for all answers.

I tried with

Maybe what you want is

Code: Pascal  [Select][+][-]

1.   repeat
2.     sValue := comReceive.ReadData;
3.     AMemStream.Write(sValue[1], Length(sValue));
4.   until (sValue = '');

But same issue (file does't match).

I think TLazserial makes the problem.

Any idea?

[Handoko]

What are the differences? What are the size before and after the process? Can you use HexEdit, GHex or other similar program to examine the content and tell us the differences between the file before and after process?

Also, try to send/receive file with smaller size, maybe text file with 20 characters. I ever had problem sending files over network, the results didn't match if the file size is over hundred KB, but ok for small files. After inspection, the problem was hardware issue - the network cable.

[hosune7845]

What are the differences? What are the size before and after the process? Can you use HexEdit, GHex or other similar program to examine the content and tell us the differences between the file before and after process?

Also, try to send/receive file with smaller size, maybe text file with 20 characters. I ever had problem sending files over network, the results didn't match if the file size is over hundred KB, but ok for small files. After inspection, the problem was hardware issue - the network cable.

Thanks for answer.

I solved by converting the byte to string format like :

Code: Pascal  [Select][+][-]

1. for I := 0 to memstrSend.Size - 1 do s := s + formatfloat('000', memstrSend.ReadByte);
2.  

[Thaddy]

Better would be to use setstring for read and cast to pchar on write or if you want slightly less inefficient code, do it like this:

Code: Pascal  [Select][+][-]

1. for I := 0 to memstrSend.Size - 1 do s := s + ansichar(memstrSend.ReadByte));
2.  

Better would be:

Code: Pascal  [Select][+][-]

1. SetString(s,PAnsiChar(MemstrSend.Memory),MemStrSend.Size);
2.  

That's all in one go.

Note that it is good practise to specify a char or string more exact. So use AnsiChar instead of Char etc, because otherwise it is not always obvious what kind of char or string you mean.