imageList

Question

  begin 
        J1 := Tbitmap.Create; 
        MS := TMemoryStream.Create; 
        try 
          TBlobField(AdoQuery1.FieldByName('PIC')).SaveToStream(MS);        //TableZPPIC 
          J1:=Tbitmap.Create; 
          MS.SaveToFile('c:\1.BMP'); 
          J1.TransparentMode  :=  tmAuto; 
          J1.Transparent  :=  True; 
          //J1.LoadFromStream(MS); 
          J1.LoadFromFile('c:\1.BMP'); 
        finally 
          Screen.Cursor := crDefault; 
        end; 
      end; 
我在 //J1.LoadFromStream(MS); 
          J1.LoadFromFile('c:\1.BMP'); 
的时候不行，但是图片能保存出来了，我重新对图片保存为BMp格式，imageList就能加载，否则，BitMap image is not valid;

Answer 1

MS.postion:=0;
J1.LoadFromStream(MS);