从流中读出jpg，为什么不行，高手指点

var  
  stmrcv:tmemorystream;  
  jp:tjpegimage;  
   
   
  stmrcv.CopyFrom   (adata,adata.Size   )   ;  
  stmrcv.Position:=0;  
  jp.LoadFromStream(stmrcv);为什么最后这句不执行？  
   
 

adata中的数据可能不是TJPEGImage所支持的

另外adata也需要position   :=   0;

传输的时候是一个jpg   saveto的，  
  stmrcv.CopyFrom   (adata,adata.Size   )   ;这句之后看了下stmrcv的大小和传出的流大小一样，就是到了jp.LoadFromStream(stmrcv);不执行了

大小一样你确定数据也一样吗？  
  用SaveToFile保存到文件，然后分别比较一下传输前和传输后以及CopyFrom前后的文件内容

传输前的流SaveToFile都是jpg，但stmrcv.CopyFrom   (adata,adata.Size   )后stmrcv在SaveToFile后出现的是一个大小一样的jpg文件，但打不开，每一步都position   :=   0了，不知道问题出在哪一步上

stmrcv你有没初始化过？

mark  
 

多半是少了stmrcv.seek(0,   soFromBeginning)

stmrcv,   jp没看见建立对象语句  
 

你把流保存成文件，看看是不是正确的JPEG文件。

unit   Unit1;  
   
  interface  
   
  uses  
      Windows,   Messages,   SysUtils,   Variants,   Classes,   Graphics,   Controls,   Forms,  
      Dialogs,   jpeg,   StdCtrls;  
   
  type  
      TForm1   =   class(TForm)  
          Button1:   TButton;  
          procedure   Button1Click(Sender:   TObject);  
      private  
          {   Private   declarations   }  
      public  
          {   Public   declarations   }  
      end;  
   
  var  
      Form1:   TForm1;  
   
  implementation  
   
  {$R   *.dfm}  
   
  procedure   TForm1.Button1Click(Sender:   TObject);  
  var  
      bmp:   TBitmap;  
      j,   j2:   TJPEGImage;  
      ms,   ms2:   TMemoryStream;  
  begin  
      bmp   :=   TBitmap.Create;  
      bmp.Width   :=   ClientWidth;  
      bmp.Height   :=   ClientHeight;  
      PaintTo(bmp.Canvas,   0,   0);  
   
      j   :=   TJPEGImage.Create;  
      j.Assign(bmp);  
      FreeAndNil(bmp);  
   
   
      ms   :=   TMemoryStream.Create;  
      j.SaveToStream(ms);  
      FreeAndNil(j);  
      ///////////////////////////////////////////////////  
   
      ms2   :=   TMemoryStream.Create;  
      ms.Position   :=   0;  
      ms2.CopyFrom(ms,   ms.Size);  
      FreeAndNil(ms);  
   
   
      j2   :=   TJPEGImage.Create;  
      ms2.Position   :=   0;  
      j2.LoadFromStream(ms2);  
      FreeAndNil(ms2);  
      j2.SaveToFile('c:\1.jpg');  
   
      FreeAndNil(j2);  
   
   
   
  end;  
   
  end.  
   
 

--------------------------
新闻：中国移动将简化资费套餐至10套以内
导航：博客园首页  知识库  新闻  招聘  社区  小组  博问  网摘  找找看