delphi使用ServerSocket做服务端
procedure TForm1.ServerSocket1ClientRead(Sender: TObject;
  Socket: TCustomWinSocket);
var
  receiveText : string;
  i: Integer;
    s : TWinSocketStream;
  f : TFileStream;
begin
  receiveText := Socket.ReceiveText;
  Memo1.Lines.Add(receiveText);
  for i:=0 to ServerSocket1.Socket.ActiveConnections-1 do
  begin    s := TWinSocketStream.Create(ServerSocket1.Socket.Connections[i], 60000);
  f := TFileStream.Create('D:\s4.png', fmShareDenyWrite);
  Try
    s.CopyFrom(f, 0);
  Finally
    s.Free;
    f.Free;
      ServerSocket1.Socket.Connections[i].SendText('hello');
    ServerSocket1.Socket.Connections[i].Close;
  End;
  end;
end;客户端是java