안녕하세요...
또 왔슴다...
다름이 아니라...
이미지 파일을 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;
요렇게 했는데...
자꾸 에러가 나네요...
뭐가 잘못 됐는지...가르쳐 주세요...
고수님들의 조언 부탁드립니다...