[asp] Binaire string omszetten naar bestand

[Verwijderd]

Ik wil graag een binaire string omzetten naar een bestand in asp. Welk component kan ik hier het beste voor gebruiken?

code:

For i = 1 to LenB(bstrSomeBinairyString)
        oFile.Write Chr(AscB(MidB(bstrSomeBinairyString, i, 1)))
    Next

dit duurt een eeuw dus liever een andere oplossing.

[whoami]

Kun je niet die binaire string in één keer wegschrijven?

[Verwijderd]

Op vrijdag 07 juni 2002 19:36 schreef whoami het volgende:
Kun je niet die binaire string in één keer wegschrijven?

nope

[zoepercavia]

het kan wel anders:
doe een Response.binaryWrite(binaryStr) (doch niet officieel supported)

Stel daarna conttent-type enzo anders in:

code:

response.contenttype="application/x-msdownload"
response.addheader "Content-Disposition","attachment; filename=bestand.bin"

direct opslaan moet ook kunnen, maar dat weet ik niet direct...

[Verwijderd]

Op vrijdag 07 juni 2002 19:52 schreef zoepercavia het volgende:
het kan wel anders:
doe een Response.binaryWrite(binaryStr) (doch niet officieel supported)

Stel daarna conttent-type enzo anders in:

code:

response.contenttype="application/x-msdownload"
response.addheader "Content-Disposition","attachment; filename=bestand.bin"

direct opslaan moet ook kunnen, maar dat weet ik niet direct...

het moet op de harddisk van de server komen te staan, niet van de client.

[gorgi_19]

Ik weet niet wat de omstandigheden zijn, maar misschien kan je er voor kiezen om de code als .vbs-bestand op de server op te slaan en deze iedere nacht om 12.00 bijvoorbeeld uit te laten voeren. Heb je geen probleem met lange wachttijden.

[Crazy D]

Je kan even kijken naar het ADODB.Stream object. Hiermee lees ik altijd binary files die ik wil uitspugen, volgens mij heeft dat ding ook een .Write methode waarmee je dacht ik naar file kan schrijven.

[zoepercavia]

code:

dim objStream = Server.createObject("ADODB.Stream")
objStream.Type = adTypeBinary 'of 1 als je de constanten niet gedefinieerd hebt
objStream.Write bstrSomeBinairyString
objStream.SaveToFile "myBinairyFile.bin"

dit zou het klusje moeten klaren als het goed is...

uitleg van alle functies van het Stream object staat op DevGuru (ideale site)

[Verwijderd]

Op zaterdag 08 juni 2002 11:06 schreef zoepercavia het volgende:

code:

dim objStream = Server.createObject("ADODB.Stream")
objStream.Type = adTypeBinary 'of 1 als je de constanten niet gedefinieerd hebt
objStream.Write bstrSomeBinairyString
objStream.SaveToFile "myBinairyFile.bin"

dit zou het klusje moeten klaren als het goed is...

uitleg van alle functies van het Stream object staat op DevGuru (ideale site)

helaas werkt dit niet.

ik heb het zo geprobeerd

code:

Set objStream = Server.createObject("ADODB.Stream")
objStream.Type = 1
objStream.Write (bstrSomeBinairyString)
objStream.SaveToFile "myBinairyFile.bin"
objStream.Close

maar dan werkt het ook niet

[Sjaaky]

Het FileSystemObject
staat in de vbscript reference. (en natuurlijk ook in de msdn)

edit:

Oeps waarschijnlijk gebruikte je die al, maar 1 byte per keer wegschrijven is gewoon heeeeel erg langzaam.

Je kan beter eerst de hele string (of stukken van 1024 bytes ofzo) maken in een loopje. En die dan in 1 keer aan file.write geven.

[zoepercavia]

code:

Set objStream = Server.createObject("ADODB.Stream")
objStream.Open
objStream.Type = 1
objStream.Write getBinaryFile(Server.MapPath("/favicon.ico"))
objStream.SaveToFile Server.MapPath("/public/myBinairyFile.bin"), 2 '2=overwriten mag
objStream.Close

function getBinaryFile(fileSpec)
Dim adTypeBinary
adTypeBinary = 1
Dim oStream
set oStream = server.createobject("ADODB.Stream")
oStream.Open
oStream.Type = adTypeBinary
oStream.LoadFromFile fileSpec
getBinaryFile= oStream.read
set oStream=nothing
end function

dit moet werken!
zorry.. ik was de .open vergeten, zorgt dat je alle rechten goed hebt staan, get BinaryFile trekt een file van de server en maakt er een mooie binary string van, kijk maar of je die nog nodig hebt...

[Verwijderd]

Op zaterdag 08 juni 2002 17:17 schreef zoepercavia het volgende:

code:

Set objStream = Server.createObject("ADODB.Stream")
objStream.Open
objStream.Type = 1
objStream.Write getBinaryFile(Server.MapPath("/favicon.ico"))
objStream.SaveToFile Server.MapPath("/public/myBinairyFile.bin"), 2 '2=overwriten mag
objStream.Close

function getBinaryFile(fileSpec)
Dim adTypeBinary
adTypeBinary = 1
Dim oStream
set oStream = server.createobject("ADODB.Stream")
oStream.Open
oStream.Type = adTypeBinary
oStream.LoadFromFile fileSpec
getBinaryFile= oStream.read
set oStream=nothing
end function

dit moet werken!
zorry.. ik was de .open vergeten, zorgt dat je alle rechten goed hebt staan, get BinaryFile trekt een file van de server en maakt er een mooie binary string van, kijk maar of je die nog nodig hebt...

maar het moet uit een string komen. Ik probeer het met een voorbeeld uit te leggen.

code:

...
binstring=xml.responsebody

hoe zet ik "binstring" nou in een bestand?

[zoepercavia]

ehm de parameter voor write is een binarystring,
dus

code:

objStream.write binaryStr

en de gehele code:

code:

Set objStream = Server.createObject("ADODB.Stream")
objStream.Open
objStream.Type = 1
objStream.Write binstring
objStream.SaveToFile "binairyFile.bin", 2 '2=overwriten mag
objStream.Close

[Verwijderd]

als ik dit

Op zaterdag 08 juni 2002 18:36 schreef zoepercavia het volgende:
ehm de parameter voor write is een binarystring,
dus

code:

objStream.write binaryStr

en de gehele code:

code:

Set objStream = Server.createObject("ADODB.Stream")
objStream.Open
objStream.Type = 1
objStream.Write binstring
objStream.SaveToFile "binairyFile.bin", 2 '2=overwriten mag
objStream.Close

doe krijg ik deze error:

code:

Error Type:
ADODB.Stream (0x800A0BB9)
Arguments are of the wrong type, are out of acceptable range, or are in conflict with one another.
/cnacks/admin/test.asp, line 4

[zoepercavia]

weet je zeker dat binstring binary is?
doe 's

code:

Response.Write(varType(binstring))

wat komt er dan uit?
probeer anders 's een .writeText...

misschien kan je ook vertellen hoe je je binarystring maakt, want dan kan er eventueel een andere oplossing zijn...

[Verwijderd]

met een binaire methode moet je ook met een asci string kunnen behandelen.

[zoepercavia]

dat zal wel moeten, maar ado.stream doet dat niet, heb je die vartype nog geprobeerd?

[Verwijderd]

dan staat er "8"

[Sjaaky]

Ik krijg het idee dat mijn vorige post totaal over het hoofd wordt gezien....

[Verwijderd]

Sjaaky: Dat kan niet. Je zoekt namelijk eerst het nummer van de te bescrijven byte op, dat kan niet in blokken groter dan 1.

Dit moet toch ergens mee kunnen of ben ik nou gek???

code:

<%
  Response.Buffer = True
  Dim objXMLHTTP, xml
  Set xml = Server.CreateObject("Microsoft.XMLHTTP")
    
  xml.Open "GET", _
    "http://www.4guysfromrolla.com/webtech/code/mitchell-pres.zip", _
    False

  xml.Send
    
  binstring=xml.responseBody

  Set xml = Nothing
%>

Hoe plaats ik binstring nou in een bestand. Dat is alles wat ik wil weten.

[Sjaaky]

Even uit het losse polsje, zonder te checken, er kunnen of-by-1 errors inzitten.
Dit is wat ik bedoel.

code:

len = lenB(bstrBinaryStr)
blockSize = 1024
counter = 0
while counter < len do
 buf = ""
 if counter+blockSize > len then blockSize = len - counter
 For i = 1 to blockSize
  buf = buf & Chr(AscB(MidB(bstrBinaryStr, counter+i, 1)))
 Next
 oFile.Write buf
 counter = counter + blockSize
wend

edit:
Vergeten de counter op te hogen

[zoepercavia]

als vartype 8 (subtype string) geeft dan kan je hem niet gebruiken in combinatie met .write, dan moet je .writetext gebruiken...
maar ik snap uberhaupt het nut niet van een binair bestand als je er een gewone string in stop?!

[Verwijderd]

dat is om het ff uit te testen. Zie voorbeeld voor de reden