메인폼에서 호출되어진 서브폼이 시작되면서 JPG 이미지를 DB에서 불러와 Image Component에 보여주는 기능입니다.
그런데 서브폼이 시작되면서 JPEG Error #53 이 계속 나옵니다
컴퓨터에 따라 에러가 않나타나기도 하지만, 정상적인 작동상황이 아니죠.
BDE 에서 BLOB Size를 조정해 보아도 마찬가지 입니다.
답변을 부탁 드립니다



// 호출되어진 서브폼의 Event-----
procedure TSub_Form.FormShow(Sender: TObject);
Begin
   .
   .
   .
   JPEGLoadFromDB(TBlobField(qr_Show.fieldbyname('CM_SHOP_PIC1')), image_1);
   JPEGLoadFromDB(TBlobField(qr_Show.fieldbyname('CM_SHOP_PIC1')), image_2);
   JPEGLoadFromDB(TBlobField(qr_Show.fieldbyname('CM_SHOP_PIC1')), image_3);
   .
   .
End;



//이미지를 불러오는 함수입니다-----
procedure JPEGLoadFromDB(BlobField: TBlobField; Image: TImage);
var
    jpg : TJPEGImage;
    mem : TMemoryStream;
begin
    jpg := TJPEGImage.Create;
    mem := TMemoryStream.Create;
    try
        if BlobField.BlobSize = 0 Then
            Image.Picture := nil
        else if BlobField.IsNull then
            Image.Picture := nil
        else begin
            BlobField.SaveToStream(mem);
            mem.Position := 0;
            jpg.LoadFromStream(mem);
            Image.Picture.Graphic := jpg;
        end;
    finally
        mem.Free;
        jpg.Free;
    end;
end;