BinaryWrite af .txt filer til Mac

Prøv at se på denne stump kode!

<Script RunAt=Server Language=VBScript>
  WriteFileToClient \"c:\\images\\adv88.gif\" \':-))

  Sub WriteFileToClient(File)
    Dim ByteArray
    Set ByteArray = CreateObject(\"ScriptUtils.ByteArray\")\'Creates the ByteArray object
    ByteArray.ReadFrom(File)
    Response.AddHeader \"Content-Length\", ByteArray.Length
    Response.ContentType = \"image/GIF\"
    Response.BinaryWrite ByteArray.ByteArray\'Returns byte safearray (VT_UI1)
    ByteArray = Empty
  End Sub
</Script>

/senj

jeg forsøgte at gemme scriptet som script.asp og kørte det så - jeg fik fejlen

Der opstod en Microsoft VBScript-kørselsfejl fejl \'800a01ad\'

ActiveX-komponenten kan ikke oprette objektet: \'ScriptUtils.ByteArray\'

/script.asp, linje 6

Kan det skyldes, at jeg muligvis ;) mangler en .dll fil ??

Senj - forresten, når jeg benytter det andet script til at sende Gif/jpeg opstår der ingen fejl, det er kun i txt/nfo filer, at den \"fucker op\" ???

hæ hæ .. kan skyldes at du mangler muligvis w3Utils (ligner det ..)

Virker den kode jeg postede på gif/jpeg?
/senj

Nej, jeg mangler jo w3utils - hvor kan man skaffe sådan en kal\'

mvh
Brock

ahh Dimac komponenten

- undersøger lige

Jeg er villig til at sætte flere point på højkant for løsningen på mit første script... den benytter en .dll (active X) som ser sådan her ud i \"råkilde\"

  Function readBinFile(ByVal bfilename As String) As Variant
          Dim fl As Long
          Dim FileNum As Long
          Dim binbyte() As Byte
          Dim binfilestr As String

          On Error GoTo errHandler
         
          FileNum = FreeFile
          Open bfilename For Binary Access Read As #FileNum

          fl = FileLen(bfilename)
          ReDim binbyte(fl)

          Get #FileNum, , binbyte

          Close #FileNum

          readBinFile = binbyte
          Exit Function

      errHandler:
          Exit Function
      End Function

-

derudover var der ingen evalutions demo på W3 utils, så jeg kan ikke vide om den kan klare problemet - hvis jeg kunne checke den vil jeg selvfølgelig købe den, men nej - lige præcis den af alle deres komponenter findes ikke i demo udgave :(

men mit første script har højest prioritet - hvis det ikke kan komme til at fungere vil jeg selvfølgelig benytte en komponent, som kan ;)

- mvh
Brock

Jeg er villig til at sætte flere point på højkant for løsningen på mit første script... den benytter en .dll (active X) som ser sådan her ud i \"råkilde\"

  Function readBinFile(ByVal bfilename As String) As Variant
          Dim fl As Long
          Dim FileNum As Long
          Dim binbyte() As Byte
          Dim binfilestr As String

          On Error GoTo errHandler
         
          FileNum = FreeFile
          Open bfilename For Binary Access Read As #FileNum

          fl = FileLen(bfilename)
          ReDim binbyte(fl)

          Get #FileNum, , binbyte

          Close #FileNum

          readBinFile = binbyte
          Exit Function

      errHandler:
          Exit Function
      End Function

-

derudover var der ingen evalutions demo på W3 utils, så jeg kan ikke vide om den kan klare problemet - hvis jeg kunne checke den vil jeg selvfølgelig købe den, men nej - lige præcis den af alle deres komponenter findes ikke i demo udgave :(

men mit første script har højest prioritet - hvis det ikke kan komme til at fungere vil jeg selvfølgelig benytte en komponent, som kan ;)

- mvh
Brock

tadugaard - har du nogen erfaringer med W3 utils??

lukker