[xyzzy:01595] Re: jpeg/gif

[Masahito Henmi <henmi@xxxxxxxxxxxxx>]

亀井さん、こんにちは。逸見 です。

> (multiple-value-bind (width height)
>   (read-jpeg-header "foo.jpg")
> とかやると、幅と高さが返ってくる場合があります(^^;

ちょっとテストしてみました (^_^)/

(defun html-write-image-tag (file)
  (interactive "fJPEG or GIF : ")
  (multiple-value-bind (width height)
    (read-jpeg-header file)
    (insert (format nil "<IMG SRC=\"~a\" WIDTH=~d HEIGHT=~d>" file width height))))

ってやってファイル名を選択すると
<IMG SRC="C:/henmi/twins_bana1.jpg" WIDTH=480 HEIGHT=60>
ってコーディングしてくれますね。GOOD,GOOD!!

拡張子がjpegかgifか見分けるのと、あと相対パスにすれば使えますねコレ！
ありがとうございました。m(. .)m
------------------------------------------------------------
逸見雅人        Email   henmi@xxxxxxxxxxxxx
Masahito Henmi