Web photo viewer
Lic. Edgar J. De Cleene
edgardec2001 at yahoo.com.ar
Tue Nov 29 10:40:32 UTC 2005
Finally I solve my own questions.
Here I share the interin solution.
asWebImage
| aStream writerClass imgType|
aStream := RWBinaryOrTextStream on: ''.
writerClass := ((Smalltalk includesKey: #JPEGReadWriter2)
and: [(Smalltalk at: #JPEGReadWriter2) new isPluginPresent])
ifTrue: ['jpg']
ifFalse: ['gif'].
(writerClass = 'jpg') ifTrue: [writerClass := JPEGReadWriter2.
imgType := 'image/jpg']
ifFalse:[writerClass := GIFReadWriter.
imgType := 'image/gif'].
Thanks to who answer and who view Rosario images.
Now I share Argentina views on :
http://200-122-104-133.cab.prima.net.ar:8084/
___________________________________________________________
1GB gratis, Antivirus y Antispam
Correo Yahoo!, el mejor correo web del mundo
http://correo.yahoo.com.ar
More information about the Squeak-dev
mailing list
|