ActiveX fil med progressbar som ikke kan vises

eksempel, kode, ... vi kan ikke hjælpe uden at se hvad du har lavet! :-)

-peter

Her er koden fra activeX functionen, de problemer jeg har er i øjeblikket, at hvis jeg sætter me.visible = true få jeg en fejl ude på asp siden. Nonmodal...,

set ..... er udmarkeret fordi det også har give problemer, med variabl or object.. not set. det fungere nu ved at set object... er lagt ud i et clientside script, hvilket dog ikke er holdbart i længden )0:


Public Sub SendFile(ByVal DocumentID, ByVal ProjectID, ByVal FileName, ByVal DocumentType, ByVal FileDate, objFileControl)
\'-------------------------------------------------------------------------------------------
\'  Metode:        SendFile
\'  Beskrivelse:    Sender en fil til serveren
\'-------------------------------------------------------------------------------------------
\'    Dim objFileControl As Object
    Dim hdlFileNo As Long
    Dim bytData() As Byte
    Dim strFilePath As String
    Dim lngBytesSent As Long
    Dim lngFileSize As Long
    Dim lngChunkSize As Long
    Dim lngDataSize As Long
    Dim lngPackSize As Long
    Dim packbuf() As Byte
    Dim strErrMsg As String
    Dim lngProjectID As Long
    Dim lngDocumentType As Long
    Dim dtmFileDate As Date
    Dim lngIDDocument As Long


    On Error GoTo SF_ErrorHandler
   
\'    Me.Visible = True

\'    Set objFileControl = CreateObject(\"PRSProjectUnivers.clsPRSProjectUnivers\", strServerName)
   
    hdlFileNo = FreeFile
    Open FileName For Binary Access Read As #hdlFileNo

    strFilePath = objFSO.GetFileName(FileName)
    lngFileSize = FileLen(FileName)
    lngProjectID = ProjectID
    lngDocumentType = DocumentType
    dtmFileDate = FileDate
    lngIDDocument = DocumentID
    objFileControl.StartReceiving strFilePath, lngIDDocument, lngProjectID, lngDocumentType, lngFileSize, dtmFileDate, strErrMsg
    If Len(strErrMsg) > 0 Then
        MsgBox strErrMsg, vbExclamation + vbOKOnly, \"Indsend fil\"
        GoTo SF_Cancel
    End If

    lngBytesSent = 0
    lngChunkSize = &H10000
   
    lblStatus.Caption = \"Gemmer Fil\"
    pgbProgress.Min = 0
    pgbProgress.Max = (lngFileSize \\ lngChunkSize) + 1
    pgbProgress.Value = 0
    Cancel = False
    Me.Refresh
    DoEvents

    While lngBytesSent < lngFileSize
        lngChunkSize = IIf((lngFileSize - lngBytesSent) > lngChunkSize, &H10000, lngFileSize - lngBytesSent)
        ReDim bytData(lngChunkSize - 1)
        Get #hdlFileNo, , bytData()

        lngDataSize = UBound(bytData) + 1
        lngPackSize = lngDataSize + &H10C

        ReDim packbuf(lngPackSize - 1)

        compress2 packbuf(0), lngPackSize, bytData(0), lngDataSize, 4
        ReDim Preserve packbuf(lngPackSize - 1)
        objFileControl.Receive packbuf(), lngDataSize
        lngBytesSent = lngBytesSent + lngChunkSize
        Debug.Print lngBytesSent
        pgbProgress.Value = IIf((lngBytesSent \\ lngChunkSize) < pgbProgress.Max, lngBytesSent \\ lngChunkSize, pgbProgress.Max)
        DoEvents
        If Cancel Then
            objFileControl.EndReceive True
            GoTo SF_Cancel
        End If
    Wend
    objFileControl.EndReceive
SF_Cancel:
\'    Set objFileControl = Nothing
    Me.Hide

    Exit Sub

SF_ErrorHandler:
    objFileControl.EndReceive True
\'    Set objFileControl = Nothing
    Err.Raise Err.Number, Err.Source, Err.Description, Err.HelpFile, Err.HelpContext
End Sub

ovenstående kode er fra en form som ligger i activeX filen, så det er på formen progresbaren er lavet, og den kan altså ikke vises i browseren.

lukket