Image 컴포넌트를 이용해서 디비의 이미지를 불러오는데, 조회 해 보면
이미지가 깨져보입니다.
크기가 작은 것은 괜찮은데 좀 큰것 들은 윗부분은 괜찮게 나오고 밑에 부분 화면이 아예 회색으로 나온다던가..색깔이 이상하게 나옵니다..
이미지 불러오는 소스입니다.
with DmSch.QrySearch1 do
begin
Close;
SQL.Clear;
SQL.Add(' SELECT WORK_IMG ');
SQL.Add(' FROM RESEARCH_IMG ');
SQL.Add(' WHERE WORK_DATE = :WORK_DATE ');
ParamByName('WORK_DATE').AsString := ADate;
Open;
if RecordCount <> 0 then
begin
try
vJPG := TJPEGImage.Create;
vMemStream := TMemoryStream.Create;
if (LoadFromBlob(DmSch.QrySearch1.FieldByName('WORK_IMG'), vMemStream)) then
vJPG.LoadFromStream(vMemStream);
Image1.Picture.Assign(vJPG);
finally
vJPG.Free;
vMemStream.Free;
end;
end else Image1.Picture.Bitmap.Canvas.Brush.Style := bsClear;
end;
이 방법 말고 다른 방법을 알고 계신다거나.. 이미지 관리에 더 좋은 방법이 있으시면 조언 부탁 드립니다..
BDE에서 BLOB SIZE를 늘려보시지요...(BDE를 사용할경우겠지요)