uses절에 JPeg를 추가하시면 에러가 안날겁니다.



별 도움이...쩝...^^

uses문에는 추가가 되었구여.

jpg file을 저장하려면 이런 에러가 뜨는군여.

"bitmap image is not valid"

감사합니다.





이경배 wrote:

> uses절에 JPeg를 추가하시면 에러가 안날겁니다.

>

> 별 도움이...쩝...^^

전 아래와 같은 방법으로 그림을 넣었는데요.



FileName은 open dialog를 통해 파일이름을 받은거고요.

jpg 일 경우 그냥 저장하고

bmp 일 경우 jpg로 변환해서 저장합니다.



If LowerCase(ExtractFileExt(FileName)) = '.jpg' Then Begin

With Table1 Do Begin

Insert;

FieldByName('AssyCode').AsString := fe_AssyCode.Text;

FieldByName('AssyName').AsString := fe_AssyName.Text;

FieldbyName('RecDate').AsString := fm_RecDate.Text;

FieldByName('AssySize').AsString := Copy(fc_SizeCode.Text, 1, Pos('/', fc_SizeCode.Text) - 2);

FieldByName('AssyPack').AsString := Copy(fc_PackCode.Text, 1, Pos('/', fc_PackCode.Text) - 2);

if Image1.Picture <> Nil Then

(FieldByName('AssyDrawing') As TBlobField).LoadFromFile(FileName);

Try

Post;

Except

fMain.Database1.Rollback;

MessageDlg('자료등록중 에러 발생 !', mtWarning, [mbOk], 0);

Exit;

end;

end;

end

// bmp이면

else If LowerCase(ExtractFileExt(FileName)) = '.bmp' Then Begin

bmp := TBitmap.Create;

jpg := TJPEGImage.Create;

Mem := TMemoryStream.Create;

Try

bmp.LoadFromFile(FileName);

jpg.Assign(bmp);

jpg.SaveToStream(mem);

Mem.Position := 0;

With Table1 Do Begin

Insert;

FieldByName('AssyCode').AsString := fe_AssyCode.Text;

FieldByName('AssyName').AsString := fe_AssyName.Text;

FieldbyName('RecDate').AsString := fm_RecDate.Text;

FieldByName('AssySize').AsString := Copy(fc_SizeCode.Text, 1, Pos('/', fc_SizeCode.Text) - 2);

FieldByName('AssyPack').AsString := Copy(fc_PackCode.Text, 1, Pos('/', fc_PackCode.Text) - 2);

if Image1.Picture <> Nil Then

(FieldByName('AssyDrawing') As TBlobField).LoadFromStream(mem);

Try

Post;

Except

fMain.Database1.Rollback;

MessageDlg('자료등록중 에러 발생 !', mtWarning, [mbOk], 0);

Exit;

end;

end;

Finally

mem.Free;

jpg.Free;

bmp.Free;

end;

end

답변감사합니다.근데여~~ db를 뭘로 만드신거에여?

전 oracle에서 만들고 이미지들어가는 필드type를 long raw로 잡았거든요.

근데 보내주신 메일에선 이미지들어가는 필드type이 tblob type인가여?

db를 어디서 만든신것인지??

그 db의 field type중에 tblob이 있는건가요??

답변부탁드립니다. 빨리요~~~