База ответов ИНТУИТ

Практикум прикладного программирования на C# в среде VS.NET 2008

<<- Назад к вопросам

Фрагмента кода: 
using System.Runtime.Serialization.Formatters.Binary;...BinaryFormatter formatter = new BinaryFormatter();"MyBinaryOrderEntity.dat"FileStream stream = File.Create("MyBinaryOrderEntity.dat");formatter.Serialize(stream, order);stream.Close();
демонстрирует:

(Ответ считается верным, если отмечены все правильные варианты ответов.)
Варианты ответа
неявное выполнение двоичной сериализации при использовании канала удаленного взаимодействия по протоколу TCP для приема или передачи объекта сервером Remoting(Верный ответ)
применение класса BinaryFormatter для сериализации объекта OrderEntity в двоичный формат(Верный ответ)
явное выполнение двоичной сериализации при использовании канала удаленного взаимодействия по протоколу TCP для приема или передачи объекта сервером Remoting
Похожие вопросы
В следующем примере кода:using System.Runtime.Serialization.Formatters.Soap; SoapFormatter formatter = new SoapFormatter();FileStream stream = File.Create("MySoapOrderEntity.xml");formatter.Serialize(stream, order);stream.Close();демонстрируется:
В следующем примере кода: using System.Runtime.Serialization.Formatters.Soap; ...FileStream stream = File.Create("MySoapOrderEntity.xml");formatter.Serialize(stream, order);stream.Close();демонстрируется:
Фрагмент кода: 
using System;  using System.IO;  using System.IO.Compression; namespace Recipe05_23  {  class Recipe05_23  {  static void Main(string[] args)  {   GZipStream zipout = new GZipStream(  File.OpenWrite("compressed_data.gzip"),  CompressionMode.Compress);  StreamWriter writer = new StreamWriter(zipout);  writer.WriteLine("the quick brown fox");   writer.Close();  GZipStream zipin = new GZipStream(  File.OpenRead("compressed_data.gzip"),  CompressionMode.Decompress);  StreamReader reader = new StreamReader(zipin);  a line from the stream and print it out.  Console.WriteLine(reader.ReadLine());  Console.WriteLine(Environment.NewLine);  Console.WriteLine("Main method complete. Press Enter."); Console.ReadLine(); } } }
демонстрирует пример:
В следующем фрагменте кода: using System.Xml.Serialization;...XmlSerializer serializer = new XmlSerializer(typeof(OrderEntity));TextWriter writer = new StreamWriter("MyXmlOrderEntity.xml");serializer.Serialize(writer, order);writer.Close();показывается:
Следующий пример:
Imports SystemImports System.IOModule VBDemoSub Main()    Dim Bytes As Byte()    Dim Reader As BinaryReader    Dim Writer As BinaryWriter    Reader = New BinaryReader(File.OpenRead (“c:\demo.exe”))    Writer = New BinaryWriter(File.Create (“c:\demo_copy.exe”))    While Reader.PeekChar() > -1        Bytes = Reader.ReadBytes(1024)        Writer.Write(Bytes)    End While    Reader.Close()    Writer.Flush()    Writer.Close()End SubEnd Module
демонстрирует:
Код: 
FileStream sourceFile = File.OpenRead(@"C:\zip.xml"); FileStream destFile = File.Create(@"C:\zip.zip");  GZipStream compStream = new GZipStream(destFile, CompressionMode.Compress);  try {     int value = sourceFile.ReadByte();         while (value!= -1)         {             compStream.WriteByte((byte)value);                 value = sourceFile.ReadByte();         } } finally {     compStream.Dispose(); }
демонстрирует
Следующий код:Imports SystemImports System.IOModule VBDemo Sub Main() Dim Bytes() As Byte = New Byte(10) {} Dim I As Integer Dim MemStr As New MemoryStream()Dim FileStr As New FileStream(“c:\temp\bytes.bin”, _ FileMode.CreateNew) Dim Rand As System.Random = New System.Random() For I = 0 To 9 Bytes(I) = Rand.Next(0, 100) Next MemStr.Write(Bytes, 0, I) MemStr.WriteTo(FileStr) MemStr.Close() FileStr.Close() End SubEnd Moduleдемонстрирует:
Фрагмент кода: 
using System.Runtime.Serialization;...[Serializable]public class OrderEntity : ISerializable{  void ISerializable.GetObjectData(SerializationInfo info, StreamingContextctxt)  {    info.AddValue("OrderID", orderID);  }deserialization  public OrderEntity(SerializationInfo info, StreamingContext ctxt)  {        orderID = (int)info.GetValue("OrderID", typeof(int));  }}
демонстрирует пример:
Рассмотрим следующий фрагмент кода:private void button1_Click(object sender, System.EventArgs e){ string path = @"C:\a.txt";using(FileStream filestream=File.Open(path, FileMode.OpenOrCreate)) { BinaryWriter binarywriter = new BinaryWriter(filestream); decimal dNum=20.3m; binarywriter.Write(dNum); dNum=723.05m; binarywriter.Write(dNum); dNum=3000.105m; binarywriter.Write(dNum); }using(FileStream filestream=File.Open(path, FileMode.Open)) { BinaryReader binaryreader = new BinaryReader(filestream); decimal dNum; filestream.Seek(16,SeekOrigin.Begin); textBox1.Text+=binaryreader.ReadDecimal().ToString()+" "; filestream.Seek(32,SeekOrigin.Begin); textBox1.Text+=binaryreader.ReadDecimal().ToString()+" "; filestream.Seek(0,SeekOrigin.Begin); textBox1.Text+=binaryreader.ReadDecimal().ToString()+" "; }}Результат в TextBox:
Фрагмент кода:
Imports System Imports System.IO Imports System.Security.Cryptography Module VBDemo Sub Main()     Dim Bytes() As Byte = {65, 66, 67, 68, 69, 70, 71, 72, 73, 74}     Dim EncBytes() As Byte = New Byte(15) {}     Dim DecBytes() As Byte = New Byte(10) {}     Dim FileName As String = "c:\temp\text.enc"     Dim EncFile As New FileStream(FileName, FileMode.Create, _         FileAccess.Write)     Dim DES As New DESCryptoServiceProvider()     Dim DESEncrypt As ICryptoTransform = DES.CreateEncryptor()     Dim CryptoStreamEnc As New CryptoStream(EncFile, DESEncrypt, _         CryptoStreamMode.Write)     Console.WriteLine("Original Data")     ToHexArray(Bytes)     CryptoStreamEnc.Write(Bytes, 0, Bytes.Length)     CryptoStreamEnc.Close()     EncFile.Close()     EncFile = New FileStream(FileName, FileMode.Open, FileAccess.Read)     EncFile.Read(EncBytes, 0, EncFile.Length)     EncFile.Close()     Console.WriteLine("Encrypted Data")     ToHexArray(EncBytes)     Console.WriteLine()     Dim DecFile As New FileStream(FileName, FileMode.Open, _         FileAccess.Read)     Dim DESDecrypt As ICryptoTransform = DES.CreateDecryptor()     Dim CryptoStreamDec As New CryptoStream(DecFile, DESDecrypt, _         CryptoStreamMode.Read)     Dim Reader As New BinaryReader(CryptoStreamDec)     Console.WriteLine("Decrypted Data")     DecBytes = Reader.ReadBytes(10)     ToHexArray(DecBytes) End Sub Sub ToHexArray(ByVal A As Byte())     Dim I As Integer     For I = 0 To A.GetUpperBound(0)         Console.Write("0x{0:x2} ", A(I))         If I = 7 Then             Console.WriteLine()         End If     Next End Sub End Module
показано: