Web photo viewer

Lic. Edgar J. De Cleene edgardec2001 at yahoo.com.ar
Sun Nov 27 11:45:58 UTC 2005

I wish have a Web photo viewer using HttpView

HVTransientView subclass: #HVRandomPhoto
    instanceVariableNames: ''
    classVariableNames: ''
    poolDictionaries: ''
    category: 'HV-examples'

    | listaArchivos  image myStream choose dirName |
dirName := 'Discovery:Users:admin:Pictures: Rosario:'. "here I select my
starting photo folder"
listaArchivos := (FileDirectory on: dirName) entries select: [:ea| ea
isDirectory not]. " I wish files, not directories "
listaArchivos := listaArchivos copyWithout: (listaArchivos at: 1). "this is
OS X , not a photo "

choose :=  (listaArchivos atRandom) name.
myStream := (FileStream readOnlyFileNamed: dirName,choose) binary.
image := Form fromBinaryStream: myStream.
myStream close.
image :=image scaledToSize: 360 @ 270.
image borderWidth: 2 fillColor: Color red.

Copy of old Comanche


    | aStream |
    aStream _ RWBinaryOrTextStream on: ''.
        putForm: (self asFormOfDepth: 8)
        onStream: aStream.
    aStream reset.
    ^ MIMEDocument contentType: MIMEDocument contentTypeGif content: aStream

This works , but dithered.
Changing form depth don't help.

Changing mtethod to:
    | aStream  writer  |
    aStream := RWBinaryOrTextStream on: ''.

    writer := PNGReadWriter on: aStream.
    [ writer nextPutImage: self ]
        ensure: [writer close].
    ^ MIMEDocument contentType: MIMEDocument contentTypeGif content: aStream

Don't work

I wish if any have advices as how I could do this.

The service is running at http://200-122-104-133.cab.prima.net.ar:8084/ and
you could see Rosario city photos.

Thanks in advance.



1GB gratis, Antivirus y Antispam 
Correo Yahoo!, el mejor correo web del mundo 

More information about the Squeak-dev mailing list