1:
2:
3:
4:
5:
6:
7:
8:

procedure TForm1.Button6Click(Sender: TObject);
var
 FStream: TFileStream;
begin

FStream := TFileStream.Create('C:\Film.flv', fmOpenRead);
ClientSocket5.Socket.SendStream(FStream);
 end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:

procedure TForm1.ServerSocket5ClientRead(Sender: TObject;
  Socket: TCustomWinSocket);
var 
 FStream: TFileStream; 
 SizeOfFile: Integer; 
 pBuffer: Pointer; 
begin 


 if SaveDialog1.Execute then 
  begin 


  FStream := TFileStream.Create(SaveDialog1.FileName, fmCreate or fmOpenWrite); 
  SizeOfFile := Socket.ReceiveLength; 
  GetMem(pBuffer, SizeOfFile); 
  try 
   Socket.ReceiveBuf(pBuffer^, SizeOfFile); 
   FStream.Write(pBuffer^, SizeOfFile); 
  finally 
   FreeMem(pBuffer); 
   FStream.Free;
  end;
   end; 


end;