إنشاء كاتب
يقوم مثال التعليمة البرمجية التالية بإنشاء كاتب، و هي فئة يمكنها أخذ البيانات من نوع ما وتحويلها إلى صفيف بايت يمكن تمريره إلى دفق.
Option Explicit On
Option Strict On
Imports System
Imports System.IO
Public Class MyWriter
Private s As Stream
Public Sub New(ByVal stream As Stream)
s = stream
End Sub
Public Sub WriteDouble(ByVal myData As Double)
Dim b As Byte() = BitConverter.GetBytes(myData)
' GetBytes is a binary representation of a double data type.
s.Write(b, 0, b.Length)
End Sub
Public Sub Close()
s.Close()
End Sub
End Class
using System;
using System.IO;
public class MyWriter
{
private Stream s;
public MyWriter(Stream stream)
{
s = stream;
}
public void WriteDouble(double myData)
{
byte[] b = BitConverter.GetBytes(myData);
// GetBytes is a binary representation of a double data type.
s.Write(b, 0, b.Length);
}
public void Close()
{
s.Close();
}
}
في هذا المثال، تقوم بإنشاء فئة تحتوي على مُنشئ و وسيطة دفق. من هنا، يمكنك كشف أي أساليب Write ضرورية. يجب عليك تحويل كل ما تقوم بكتابته إلي [] بايت. بعد الحصول على البايت[]، فسيقوم الأسلوب Write بكتابته إلي الدفق s.