Jeg er så tæt på have den her, men mangler lige lidt hjælp.
Jeg har en masse binær data gemt i en sql server i et felt af typen "text". Jeg gør følgende:
' String to byte array conversion function: Function StringToBinary(S) Dim i, ByteArray For i=1 To Len(S) ByteArray = ByteArray & ChrB(Asc(Mid(S,i,1))) Next StringToBinary = ByteArray End Function
arne_v > Indholdet kommer fra en database jeg ikke har lavet. Personen siger at det er binær data gemt i feltet "indhold" som er af typen text i databasen. Han siger at jeg blot skal gemme indholdet som binær data og så vil jeg få filen frem igen. Det er imidlertid nemmere sagt end gjort :(
Jeg ved dog at indholdet kommer fra et delphi program, hvor han ligeledes også henter det op som jeg ønsker.
arne_v > Helt enig med feltet i databasen, men det er som sagt ikke noget jeg står bag eller bruger i det daglige. Jeg skal bare få det her enkelt udtræk til at fungere.
Hvis jeg benytter: Response.BinaryWrite ys("indhold")
Nu er jeg rigtig tæt på at have den.. Jeg får ingen fejl og den gemmer dokumentet som ønsket. Dog når jeg åbner dokumentet er det bare fyldt med de tegn som vist ovenover. Min kode:
'Create Stream object Dim BinaryStream 'As New Stream Set BinaryStream = CreateObject("ADODB.Stream")
'Specify stream type - we want To save text/string data. BinaryStream.Type = adTypeText
'Specify charset For the source text (unicode) data. BinaryStream.CharSet = "us-ascii"
'Open the stream And write text/string data To the object BinaryStream.Open BinaryStream.WriteText ys("indhold")
'Change stream type To binary BinaryStream.Position = 0 BinaryStream.Type = adTypeBinary
'Ignore first two bytes - sign of BinaryStream.Position = 0
'Open the stream And get binary data from the object Stream_StringToBinary = BinaryStream.Read
'Create a stream object Dim objStream Set objStream = Server.CreateObject("ADODB.Stream")
'Working save to file MyFile2 = Server.MapPath("pdf/tester2.htm") objStream.SaveToFile MyFile2, adSaveCreateOverWrite
'Clean up.... objStream.Close Set objStream = Nothing
Kan i hjælpe?
Synes godt om
Ny brugerNybegynder
Din løsning...
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.