做了个人事管理的程序,其中有照片一项。
用的是SQL,将照片设为image.
在页面用IMAGE浏览照片.
照片是JPEG格式当有照片时浏览正常,但也有个别还没有照片的,
浏览时错误提示为jpeg error #42

解决方案 »

  1.   

    var   
     temp: TMemoryStream;   
    begin   
     //……   
     TBLOBFIELD(FeildByName('Img')).saveToStream(Temp);   
     temp.position:= 0;   
     image1.picture.loadFromSteam(temp);   
    end;
      

  2.   

    TBLOBFIELD(FeildByName('Img')).saveToStream(Temp);  if Temp.Size>0 then
        .......
      

  3.   

     var
     Jpg : TJPEGImage;    begin
           jpg := TJPEGImage.Create;
           try
             jpg.Assign(mast_qry1.FieldByName('f_Img'));
           if jpg <> nil then
             Image1.Picture.Assign(jpg)
           else Image1.Picture := nil;
           finally
             jpg.Free;
           end;
         end;
      

  4.   

    读取照片
     if  OpenPictureDialog1.Execute  then
        Image1.Picture.LoadFromFile(OpenPictureDialog1.FileName);
      

  5.   

    if   not   mast_qry1.FieldByName('f_img').IsNull   then
           begin
             Stream:=TMemoryStream.Create   ;
             Jpg:=TjpegImage.Create   ;
             TBlobField(mast_qry1.FieldByName('f_img')).SaveToStream(mStream);
             Stream.Position :=0;
             jpg.LoadFromStream(Stream);
             image1.Picture.Assign(Jpg);
           end
           else
           begin
             image1.Picture :=nil;
           end;解决了,谢谢大家