Compartilhar via

Como: Fazer uma transferência arquivo infravermelho

  • Artigo

O .NET Compact Framework fornece classes para comunicação via infravermelho entre dispositivos.Este exemplo demonstra como enviar e receber arquivos entre dispositivos usando comunicações via infravermelho.Você precisa de dois PCs de bolso, um para enviar o arquivo e outro para recebê-lo.

Este exemplo cria uma instância de IrDAClient e usa seu DiscoverDevices método para descobrir dispositivos de infravermelho ao alcance. Esse método retorna uma matriz de IrDADeviceInfo objetos que fornecem informações sobre cada dispositivo.

Este exemplo fornece código para enviar e receber um arquivo, que pode ser demonstrado com um botão Enviar e Receber.No mínimo, será necessário criar um aplicativo de envio para um dispositivo, e um aplicativo de recepção para o outro dispositivo.

O botão Enviar envia um arquivo somente para um dispositivo que tenha atendido as solicitações para um arquivo ser enviado.Portanto, o botão Receber deve ser ligado no dispositivo receptor antes que o botão Enviar seja ligado no dispositivo de envio.As seguintes tarefas são executadas:

  • Obter um fluxo do arquivo para enviar.

  • criar an IrDAClient usando o nome de serviço determinado para este aplicativo de instância. Conexões de infravermelho são feitas, especificando um nome de serviço, que pode ser qualquer valor desde que os dispositivos participantes apliquem o mesmo nome.O nome de serviço é "IrDATest" neste exemplo.

  • Ler o fluxo do arquivo no IrDAClient fluxo que envia o arquivo.

O botão Receber cria uma IrDAListener instância para escutar o dispositivo com o mesmo nome do serviço a IrDAClient instância no dispositivo de envio.

As seguintes tarefas são executadas:

  • Crie um fluxo para gravar o conteúdo transferido para um arquivo de recepção na pasta My Documents.

  • Crie um IrDAEndPoint instância com a ID de dispositivo e serviço de nome para o dispositivo de envio.

  • criar an IrDAListener instância das IrDAEndPoint instância e iniciar o serviço de escutando.

  • Crie um IrDAClient instância das IrDAListener instância usando o AcceptIrDAClient método.

  • Leia o fluxo subjacente do IrDAClient ocorrência, que contém os dados do arquivo transferido.

  • Grave esse fluxo de dados no fluxo para o arquivo Receive.txt.

Para criar os aplicativos

  1. Crie um aplicativo Pocket PC para o dispositivo de envio e adicione um botão ao formulário.Nomeie o botão Enviar.

  2. Crie um arquivo chamado Send.txt na pasta My Documents.

  3. Adicione o seguinte código do botão Enviar Click evento.

    ' Align the infrared ports of the devices.
' Click the Receive button first, then click Send.
Private Sub SendButton_Click(sender As Object, e As System.EventArgs) _
    Handles SendButton.Click

    Dim irClient As New IrDAClient()
    Dim irServiceName As String = "IrDATest"
    Dim irDevices() As IrDADeviceInfo
    Dim buffersize As Integer = 256

    ' Create a collection of devices to discover.
    irDevices = irClient.DiscoverDevices(2)

    ' Show the name of the first device found.
    If irDevices.Length = 0 Then
        MessageBox.Show("No remote infrared devices found.")
        Return
    End If

    Try
        Dim irEndP As New IrDAEndPoint(irDevices(0).DeviceID, _
            irServiceName)
        Dim irListen As New IrDAListener(irEndP)
        irListen.Start()
        irClient = irListen.AcceptIrDAClient()
        MessageBox.Show("Connected!")

    Catch exSoc As SocketException
         MessageBox.Show("Couldn't listen on service " & irServiceName & ": " _
            & exSoc.ErrorCode)
    End Try

    ' Open a file to send and get its stream.
    Dim fs As Stream
    Try
        fs = New FileStream(".\My Documents\send.txt", FileMode.Open)
    Catch exFile As Exception
        MessageBox.Show("Cannot open " & exFile.ToString())
        Return
    End Try

    ' Get the underlying stream of the client.
    Dim baseStream As Stream = irClient.GetStream()

    ' Get the size of the file to send
    ' and write its size to the stream.
    Dim length As Byte() = BitConverter.GetBytes(fs.Length)
    baseStream.Write(length, 0, length.Length)

    ' Create a buffer for reading the file.
    Dim buffer(buffersize) As Byte

    Dim fileLength As Integer = CInt(fs.Length)

    Try
        ' Read the file stream into the base stream.
        While fileLength > 0
            Dim numRead As Int64 = fs.Read(buffer, 0, buffer.Length)
            baseStream.Write(buffer, 0, numRead)
            fileLength -= numRead
        End While
        MessageBox.Show("File sent")
    Catch exSend As Exception
        MessageBox.Show(exSend.Message)
    End Try

    fs.Close()
    baseStream.Close()
    irClient.Close()
End Sub

    // Align the infrared ports of the devices.
// Click the Receive button first, then click Send.
private void SendButton_Click(object sender, System.EventArgs e)
{
    IrDAClient irClient = new IrDAClient();
    string irServiceName = "IrDATest";
    IrDADeviceInfo[] irDevices;
    int buffersize = 256;

    // Create a collection of devices to discover.
    irDevices = irClient.DiscoverDevices(2);

    // Show the name of the first device found.
    if ((irDevices.Length == 0)) 
    {
        MessageBox.Show("No remote infrared devices found.");
        return;
    }
    try 
    {
        IrDAEndPoint irEndP = 
            new IrDAEndPoint(irDevices[0].DeviceID, irServiceName);
        IrDAListener irListen = new IrDAListener(irEndP);
        irListen.Start();
        irClient = irListen.AcceptIrDAClient();
        MessageBox.Show("Connected!");
    }
    catch (SocketException exSoc) 
    {
        MessageBox.Show(("Couldn\'t listen on service "
                        + (irServiceName + (": " + exSoc.ErrorCode))));
    }

    // Open a file to send and get its stream.
    Stream fs;
    try 
    {
        fs = new FileStream(".\\My Documents\\send.txt", FileMode.Open);
    }
    catch (Exception exFile) 
    {
        MessageBox.Show(("Cannot open " + exFile.ToString()));
        return;
    }

    // Get the underlying stream of the client.
    Stream baseStream = irClient.GetStream();

    // Get the size of the file to send
    // and write its size to the stream.
    byte[] length = BitConverter.GetBytes(fs.Length);
    baseStream.Write(length, 0, length.Length);

    // Create a buffer for reading the file.
    byte[] buffer = new byte[buffersize];
    int fileLength = (int) fs.Length;
    try 
    {
        // Read the file stream into the base stream.
        while ((fileLength > 0)) 
        {
            Int64 numRead = fs.Read(buffer, 0, buffer.Length);
            baseStream.Write(buffer, 0, Convert.ToInt32(numRead));
            fileLength = (fileLength - Convert.ToInt32(numRead));
        }
        MessageBox.Show("File sent");
    }
    catch (Exception exSend) 
    {
        MessageBox.Show(exSend.Message);
    }
    fs.Close();
    baseStream.Close();
    irClient.Close();
}

  4. Crie um aplicativo Pocket PC para o dispositivo receptor e adicione um botão ao formulário.Nomeie o botão Receber.

  5. Adicione o seguinte código do botão receber Click evento.

    ' Align the infrared ports of the devices.
' Click the Receive button first, then click Send.
Private Sub ReceiveButton_Click(sender As Object, e As System.EventArgs) _
    Handles ReceiveButton.Click

    Dim irDevices() As IrDADeviceInfo
    Dim irClient As New IrDAClient()
    Dim irServiceName As String = "IrDATest"

    Dim buffersize As Integer = 256

    ' Create a collection for discovering up to
    ' three devices, although only one is needed.
    irDevices = irClient.DiscoverDevices(2)

    ' Cancel if no devices are found.
    If irDevices.Length = 0 Then
        MessageBox.Show("No remote infrared devices found.")
        Return
    End If

    ' Connect to the first IrDA device
    Dim irEndP As New IrDAEndPoint(irDevices(0).DeviceID, irServiceName)
    irClient.Connect(irEndP)

    ' Create a stream for writing a Pocket Word file.
    Dim writeStream As Stream
    Try
        writeStream = New FileStream(".\My Documents\receive.txt", _
            FileMode.OpenOrCreate)
    Catch
        MessageBox.Show("Cannot open file for writing.")
        Return
    End Try

    ' Get the underlying stream of the client.
    Dim baseStream As Stream = irClient.GetStream()

    ' Create a buffer for reading the file.
    Dim buffer(buffersize) As Byte

    Dim numToRead, numRead As Int64

    ' Read the file into a stream 8 bytes at a time.
    ' Because the stream does not support seek operations,
    ' its length cannot be determined.
    numToRead = 8

    Try    
        While numToRead > 0
            numRead = baseStream.Read(buffer, 0, numToRead)
            numToRead -= numRead
        End While
    Catch exReadIn As Exception
        MessageBox.Show("Read in: " & exReadIn.Message)
    End Try

    ' Get the size of the buffer to show
    ' the number of bytes to write to the file.
    numToRead = BitConverter.ToInt64(buffer, 0)

    Try
        ' Write the stream to the file until
        ' there are no more bytes to read.
        While numToRead > 0
            numRead = baseStream.Read(buffer, 0, buffer.Length)
            numToRead -= numRead
            writeStream.Write(buffer, 0, numRead)
        End While
        writeStream.Close()
        MessageBox.Show("File received.")
    Catch exWriteOut As Exception
        MessageBox.Show("Write out: " & exWriteOut.Message)
    End Try

     baseStream.Close()
     irClient.Close()
End Sub

    // Align the infrared ports of the devices.
// Click the Receive button first, then click Send.
private void ReceiveButton_Click(object sender, System.EventArgs e)
{
    IrDADeviceInfo[] irDevices;
    IrDAClient irClient = new IrDAClient();
    string irServiceName = "IrDATest";
    int buffersize = 256;

    // Create a collection for discovering up to
    // three devices, although only one is needed.
    irDevices = irClient.DiscoverDevices(2);

    // Cancel if no devices are found.
    if ((irDevices.Length == 0)) 
    {
        MessageBox.Show("No remote infrared devices found.");
        return;
    }

    // Connect to the first IrDA device
    IrDAEndPoint irEndP = 
        new IrDAEndPoint(irDevices[0].DeviceID, irServiceName);
    irClient.Connect(irEndP);

    // Create a stream for writing a Pocket Word file.
    Stream writeStream;
    try 
    {
        writeStream = new FileStream(".\\My Documents\\receive.txt", 
            FileMode.OpenOrCreate);
    }
    catch (Exception Ex)
    {
        MessageBox.Show("Cannot open file for writing. " + Ex.Message);
        return;
    }

    // Get the underlying stream of the client.
    Stream baseStream = irClient.GetStream();

    // Create a buffer for reading the file.
    byte[] buffer = new byte[buffersize];
    Int64 numToRead;
    Int64 numRead;

    // Read the file into a stream 8 bytes at a time.
    // Because the stream does not support seek operations, its
    // length cannot be determined.
    numToRead = 8;
    try 
    {
        while ((numToRead > 0)) 
        {
            numRead = baseStream.Read(buffer, 0, 
                Convert.ToInt32(numToRead));
            numToRead = (numToRead - numRead);
        }
    }
    catch (Exception exReadIn) {
        MessageBox.Show(("Read in: " + exReadIn.Message));
    }

    // Get the size of the buffer to show
    // the number of bytes to write to the file.
    numToRead = BitConverter.ToInt64(buffer, 0);
    try 
    {
        // Write the stream to the file until
        // there are no more bytes to read.
        while ((numToRead > 0)) {
            numRead = baseStream.Read(buffer, 0, buffer.Length);
            numToRead = (numToRead - numRead);
            writeStream.Write(buffer, 0, Convert.ToInt32(numRead));
        }
        writeStream.Close();
        MessageBox.Show("File received.");
    }
    catch (Exception exWriteOut) 
    {
        MessageBox.Show(("Write out: " + exWriteOut.Message));
    }
    baseStream.Close();
    irClient.Close();
}

Para executar os aplicativos

  1. Implemente os aplicativos para os dispositivos e inicie-os.

  2. Alinhe as portas de infravermelho dos dispositivos.

  3. Ligue o botão Receber no dispositivo receptor.

  4. Ligue o botão Enviar no dispositivo de envio.

  5. Verifique para ver se o Receive.txt foi criado na pasta My Documents.

Compilando o código

Este exemplo requer referências aos seguintes namespaces:

Consulte também

Conceitos

Conexões de infravermelho

Tópicos "como" do .NET compact estrutura