Hi,
I am writing to a file using this code:
dim writetofile as binarystream
Dim f as FolderItem
Dim stream as BinaryStream
f = PreferencesFolder.child("NovaWeb Skin")
if f.exists=false then
stream = f.createBinaryFile()
stream.writeByte 255
stream.writeByte 204
stream.writeByte 102
stream.close
end if
I am trying to read it with this code:
dim colorstream as textinputstream
dim f as folderItem
dim f1 as folderitem
dim readstream as textinputstream
dim stream1 as textoutputStream
dim stream3 as binarystream
redValue = readstream.readByte()
greenValue = readstream.readByte()
blueValue = readstream.readByte()
browser.backColor = RGB(redValue, greenValue, blueValue)
Now I get this method or property does not exist.
Also it highlights this:
redValue = readstream.readByte()
greenValue = readstream.readByte()
blueValue = readstream.readByte()
browser.backColor = RGB(redValue, greenValue, blueValue)
Brian
_______________________________________________
Unsubscribe or switch delivery mode:
<http://www.realsoftware.com/support/listmanager/>
Search the archives of this list here:
<http://www.realsoftware.com/listarchives/lists.html>
|