Ｆ橋私的メモ

38：ロプロス：2005/02/28(月) 00:36:58: ありがとうございます。ネットカメラをかえて、FTPで
サーバにデータを送ることにしました。テストプログラム
で画像をみようと下のものを作ったのですが、BMPを
繰り返し見ることができません。
BITMAP1.DELETEOBJECT　　で、デリートしたから次
読んでいいような気がするのですが。
どなたかおわかりになる方、ご教授よろしくおねがいします。

#include "windows.bi"
#include "internet.bi"
#include "image.bi"

N=0:N=val(mid$(time$,7,2))

*START
HTTPOPEN 1, "221.242.235.154"
A1$=mid$(str$(N),2):if N<10 then A1$="0"+A1$
A0$="rio"+A1$+"."
A1$=A0$+"jpg"
A2$=A0$+"bmp"
HTTPGET 1,A1$, A1$
HTTPCLOSE 1
? A1$,A2$
rem gosub 2000
JPEG2BMP A1$, A2$

var BITMAP1 as object
BITMAPOBJECT BITMAP1
BITMAP1.LOADFILE A2$
DRAWBITMAP BITMAP1, 0, 0
BITMAP1.DELETEOBJECT

gosub 3000
N=N+1

新着レスの表示

※書き込む際の注意事項はこちら

※画像アップローダーはこちら

（画像を表示できるのは「画像リンクのサムネイル表示」がオンの掲示板に限ります）

掲示板管理者へ連絡無料レンタル掲示板