盒子论坛 v2.1

try
       bmp:=TBitMap.Create ;
       jpg:=TJPEGImage.Create ;
       frmprogress.Show ;
       frmprogress.Gauge1.MaxValue :=clb1.Items.Count*2;
       frmprogress.Gauge1.Progress :=0;
          for i:=0 to clb1.Items.Count -1 do
            begin//2
             if clb1.Checked [i] then
             begin//3
              s2:=clb1.Items[i];
              if  DirectoryExists(s2) then
              begin//4
              s4:=s2+s1+'.bmp';
              s3:=s2+s1+'.jpg';
              if FileExists(s4) then continue;
              image1.Picture.SaveToFile(s4);
              if RadioButton2.Checked then
              begin//1
               bmp.LoadFromFile (s4);
               jpg.Assign (bmp);
               jpg.CompressionQuality:=100 ;
               jpg.Compress ;
               jpg.JPEGNeeded ;
               if FileExists(s3) then continue;
               jpg.SaveToFile(s3);
               deletefile(s4);
               frmprogress.Gauge1.Progress := frmprogress.Gauge1.Progress +1;
               frmprogress.Label4.Caption :=IntToStr(i);
               frmprogress.Label4.Update ;
               frmprogress.Edit1.Text :=s4;
               frmprogress.Edit1.Update ;
               end;//1
              end;//4
             end;//3
            end;//2
     finally
       bmp.Free  ;
       jpg.Free  ;
       mymsgbox('保存完毕','^^',0);
       frmprogress.Hide ;
    end;

----------------------------------------------

作者：

whirlwind (旋风)	★☆☆☆☆	-
	盒子活跃会员

2003/10/30 15:50:37

5楼：

看看我的作品吧！

此帖子包含附件:whirlwind_20031030154540.rar 大小:210.3K

----------------------------------------------
我爱DELPHI！

作者：

ganbing (干冰)	★☆☆☆☆	-
	盒子活跃会员

2003/10/30 16:22:44

6楼：

先看看
----------------------------------------------
尽情舒展,是一种向往,想去的地方、想拥有的感受,尽管追求!

作者：

catanx (catanx)	★☆☆☆☆	-
	盒子活跃会员

2003/10/30 16:57:03

7楼：

有点意思
----------------------------------------------
我常逛的一个电影站，写写程序看看电影，不要太累了，会死人的：）
www.ddvan.com
很有特色哦，自己发觉吧。

信息

登陆以后才能回复