Q&A

  • mdb 에 저장된 jpg 이미지를 불러올 때 에러
mdb 에 ole객체 로  image 필드를 하나 만들고
jpg 이미지를 저장했습니다..
저장된 jpg 이미지를 불러올 때 jpeg #50 이란 에러가 납니다..

소스는 다음과 같습니다..

  //이미지를 불러올때
   JPEGLoadFromDB(TBlobField(query1.fieldbyname('image')), image1);

//이미지 화일을 해당 이미지에 보여줄때...
procedure TForm1.JPEGLoadFromDB(BlobField: TBlobField; Image: TImage);
var
    jpg : TJPEGImage;
    mem : TMemoryStream;
begin
    jpg := TJPEGImage.Create;
    mem := TMemoryStream.Create;
    try
        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;

====================================================
ps. 디비에 저장된 이미지가 bmp 인지 jpg 인지 구별하는 방법 아시는 분 부탁드립니다..
0  COMMENTS