HTTP SendBitmap (stream,image)

-=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- (c) WidthPadding Industries 1987 0\|82\|0 -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=-
SoCoder -> Snippet Home -> Networking

flying_cucco	Created : 10 December 2007 Edited : 05 February 2008 Language : Blitz HTTP SendBitmap (stream,image) Send an image or buffer as a bitmap with your Blitz HTTP server.
Function HTTPSendBitmap(stream,image) WriteLine stream,"HTTP/1.1 200 OK" WriteLine stream,"Content-Type: image/bmp" WriteLine stream,"" ;padding width = ImageWidth(image) p_width = 4 * Floor# ((width * 3) / 4.0) If p_width < width * 3 Then p_width = p_width + 4 pad = p_width - width * 3 ;filesize size=((ImageWidth(image)+pad)ImageHeight(image)3) ;bitmap header size header=40 ;combined header size offset=54 ;pixels per metre pixpm=3780 ;bits per pixel bits=24 ;FILE HEADER WriteByte stream,Asc("B") WriteByte stream,Asc("M") WriteInt stream,(size+offset) WriteShort stream,0 WriteShort stream,0 WriteInt stream,offset ;BITMAP HEADER WriteInt stream,header WriteInt stream,ImageWidth(image) WriteInt stream,ImageHeight(image) WriteShort stream,1 WriteShort stream,bits WriteInt stream,0 WriteInt stream,size WriteInt stream,pixpm WriteInt stream,pixpm WriteInt stream,0 WriteInt stream,0 ;PIXEL DATA LockBuffer For y=ImageHeight(image)-1 To 0 Step -1 For x=0 To ImageWidth(image)-1 pixel = ReadPixelFast(x,y) WriteByte stream,(pixel And $000000FF) ;blue WriteByte stream,(pixel And $0000FF00)/256 ;green WriteByte stream,(pixel And $00FF0000)/65536 ;red Next For p=0 To pad-1 WriteByte file,0 Next Next UnlockBuffer End Function --v

Comments

HTTP SendBitmap (stream,image)

Comments