New build of AfterGRASP is up for download:
http://www.aftergrasp.com/download/agsetup_20060321.exe
----------------------------------------------------------------------------
Tue, 21 Mar 2006
FILECLOSE FILEREAD* FILEWRITE* and FILESEEK commands now accept a
variable name for a handle, for example:
fs = fileopen("test.txt")
result = fileread(fs)
fileclose fs
WHEN NETSERVE, NETREADREADY and NETCLOSED partially done, not working yet.
FILEREADLINE now supported (previous did nothing at all).
RESULT = FILEREADLINE(HANDLE)
FILEREAD now supports reading all remaining bytes and returning the
result as a string, and reading N number of bytes, also returning
the result as a string:
FILEREAD HANDLE BUFFERADDRESS BYTECOUNT
RESULT = FILEREAD(HANDLE)
RESULT = FILEREAD(HANDLE, BYTECOUNT)
NET:FILENAME is in and working, here is a runable example
that uses fileappend with a net:filename and fileread
with just the handle to read whatever data is available:
drawclear white
color green
textln "making connection"
set file fileappend("net:www.aftergrasp.com:80")
; set file netopen("www.aftergrasp.com", 80) ; same thing
textln "sending GET string"
color black
filewriteline file "GET /test.htm HTTP/1.0"
filewriteline file "Host: www.aftergrasp.com"
filewriteline file ""
set textwrap off
timerset start
contentlength = 0
while @start<10000
s = filereadline(file)
textln @s
if strlen(@s)==0 break
cl = "Content-Length: "
if strleft(@s, strlen(@cl))[EMAIL PROTECTED]
contentlength = strleftright(@s, strlen(@cl))
endif
endloop
textln ""
color blue
text fileread(file, @contentlength)
color red
text "done"
fileclose file
wait
exitnow
FileOpen/FileAppend no longer check for GZIP compression when opening
FTP: HTTP: or NET: files (didn't make sense).
----------------------------------------------------------------------------
--~--~---------~--~----~------------~-------~--~----~
You received this message because you are subscribed to the Google Groups
"aftergrasp" group.
To post to this group, send email to [email protected]
To unsubscribe from this group, send email to [EMAIL PROTECTED]
For more options, visit this group at http://groups.google.com/group/aftergrasp
-~----------~----~----~----~------~----~------~--~---
