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 인지 구별하는 방법 아시는 분 부탁드립니다..