Hi!
i fixed the problem.. fyi the new code is below..
var
aBuffer:TMemoryStream;
aTemp:array[0..8000] of Byte;
const
cNoData=-1;
begin
aBuffer:=FtvdList.tvdBuffer(Socket);
repeat
aActual:=socket.ReceiveBuf(aTemp,SizeOf(aTemp)-1);
aBuffer.Position:=aBuffer.Size;
aBuffer.write(aTemp,aActual);
until (aActual=cNoData);
__________________________________________________
Do You Yahoo!?
Bid and sell for free at http://auctions.yahoo.com
---------------------------------------------------------------------------
New Zealand Delphi Users group - Delphi List - [EMAIL PROTECTED]
Website: http://www.delphi.org.nz
