Q&A

  • [급질문] 이미지 파일을 db화...
안녕하세요...



또 왔슴다...



다름이 아니라...



이미지 파일을 db에 저장했다가 필요할 때 마다 불러 오게 할려면 어떻게 해야 하나요..



제가 하다가 자꾸 .jpg 에러가 나고 그렇다고 .bmp 도 안되고...



제가 소스를 보여 드릴께요...



procedure TForm1.ButtonClick(Sender: TObject);

var

i, lcode: Integer;

begin

SetEditingMode; //편집모드

if OpenPictureDialog.Execute then

begin

Table1.DisableControls;

Table2.Last;

lcode := Table2.FieldByName('FDICODE').AsInteger;

for i := 0 to OpenPictureDialog.Files.Count - 1 do

begin

Table1.Append;

lcode := lcode + 1;

Table1FDICODE.AsInteger := lcode;

Table1FDSDATA.LoadFromFile(OpenPictureDialog.Files[i]);

Table1.Post;

end;

Table1.EnableControls;

end;

end;



procedure TForm1.DataSourceDataChange(Sender: TObject; Field: TField);

begin

Table1FDSDATA.SaveToFile('c:temp.jpg');

Image1.Picture.LoadFromFile('c:temp.jpg');

DeleteFile('c:temp.jpg');

end;



요렇게 했는데...



자꾸 에러가 나네요...



뭐가 잘못 됐는지...가르쳐 주세요...



고수님들의 조언 부탁드립니다...



0  COMMENTS