VERSION 5.00
Begin VB.Form frmTransferRequest 
   BorderStyle     =   3  'Fixed Dialog
   Caption         =   "Receiving a file transfer...."
   ClientHeight    =   975
   ClientLeft      =   45
   ClientTop       =   330
   ClientWidth     =   4680
   ControlBox      =   0   'False
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   975
   ScaleWidth      =   4680
   StartUpPosition =   3  'Windows Default
   Begin VB.CommandButton cmdReject 
      Cancel          =   -1  'True
      Caption         =   "Reject"
      Height          =   315
      Left            =   3420
      TabIndex        =   3
      Top             =   120
      Width           =   1155
   End
   Begin VB.CommandButton cmdAccept 
      Caption         =   "Accept"
      Default         =   -1  'True
      Height          =   315
      Left            =   3420
      TabIndex        =   2
      Top             =   540
      Width           =   1155
   End
   Begin VB.Label lblFriend 
      BackStyle       =   0  'Transparent
      Height          =   195
      Left            =   720
      TabIndex        =   1
      Top             =   420
      Width           =   2115
   End
   Begin VB.Label Label1 
      BackStyle       =   0  'Transparent
      Caption         =   "You are receiving a file transfer from"
      Height          =   195
      Left            =   720
      TabIndex        =   0
      Top             =   180
      Width           =   2115
   End
   Begin VB.Image Image1 
      Height          =   480
      Left            =   120
      Picture         =   "frmTransferReq.frx":0000
      Top             =   180
      Width           =   480
   End
End
Attribute VB_Name = "frmTransferRequest"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'
'  Copyright (C) 1999-2001 Microsoft Corporation.  All Rights Reserved.
'
'  File:       frmTransferReq.frm
'
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Private msFile As String
Private mlUnique As Long
Private mlPlayerID As Long

Private moForm As frmNetwork

Public Sub SetupRequest(oForm As frmNetwork, ByVal sPlayerName As String, ByVal sFileName As String, ByVal lUniqueID As Long, ByVal lPlayer As Long)
    Set moForm = oForm
    msFile = sFileName
    mlUnique = lUniqueID
    mlPlayerID = lPlayer
    lblFriend.Caption = sPlayerName & " (" & sFileName & ")"
End Sub

Private Sub cmdAccept_Click()
    Dim lMsg As Long, lOffset As Long
    Dim oBuf() As Byte
    
    'Accept this connection
    lMsg = MsgSendFileAccept
    lOffset = NewBuffer(oBuf)
    AddDataToBuffer oBuf, lMsg, LenB(lMsg), lOffset
    AddDataToBuffer oBuf, mlUnique, LenB(mlUnique), lOffset
    dpp.SendTo mlPlayerID, oBuf, 0, DPNSEND_NOLOOPBACK
    Unload Me
End Sub

Private Sub cmdReject_Click()
    Dim lMsg As Long, lOffset As Long
    Dim oBuf() As Byte
    
    'Reject this connection
    lMsg = MsgSendFileDeny
    lOffset = NewBuffer(oBuf)
    AddDataToBuffer oBuf, lMsg, LenB(lMsg), lOffset
    AddDataToBuffer oBuf, mlUnique, LenB(mlUnique), lOffset
    dpp.SendTo mlPlayerID, oBuf, 0, DPNSEND_NOLOOPBACK
    moForm.EraseReceiveFile mlUnique
    Unload Me
End Sub