안녕하세요
저도 델파이초보입니다
근데 제가 알기론
이미지를 디비에 저장 하는방법은 좋지 않다고 들었습니다.
용량이 장난 아니게 늘어나니까요
특히 bmp경우는 더 하지요

차라리 경로로 저장 하시는게 좋을꺼 같습니다.
var  bmp : String;
begin

if OpenPictureDialog1.Execute then  //오픈픽쳐다이얼러그가 실행되면...
begin
    Image1.Picture.LoadFromFile(OpenPictureDialog1.Filename); //이미지에 해당 파일을 붙인다
  
  //Query1Sajin.LoadFromFile(OpenPictureDialog1.Filename); db이미지를 할 경우   사진필드에 바로 이미지를 저장 한다.
  
    일반 이미지일경우 임시변수에 경로저장
    bmp := OpenPictureDialog1.Filename;

    저장할때 저장한다.
    Query1.FieldByName('S_SaJin').AsString := Bmp;
end;

   //불러올떄........

    Bmp := Qry_GridS_SaJin.AsString;
    if  Trim(Bmp) = '' then
      Image1.Picture := nil
    else
    begin
     try
       Image1.Picture.LoadFromFile(Bmp);
     except
       showMessage('경로에 사진이없습니다.');
       Image1.Picture := nil;
     end;

    end;

   db이미지를 사용할경우에는 불러오는 작업은 안 하셔도 db에서 지원함
end;

//경로일 경우 ↑



이미지전체를 잡을때는 이미지필드를 만들어야 하겠지만
그냥 경로로 사용 하신다면 그냥 char(200) 일케 해도 될꺼 같은데요


허접한 답변입니다
도움이 되시징...
즐코 하세요

var  bmp : String;
begin

if OpenPictureDialog1.Execute then  //오픈픽쳐다이얼러그가 실행되면...
begin
    Image1.Picture.LoadFromFile(OpenPictureDialog1.Filename); //이미지에 해당 파일을 붙인다
  
  //Query1Sajin.LoadFromFile(OpenPictureDialog1.Filename); db이미지를 할 경우   사진필드에 바로 이미지를 저장 한다.
  
    일반 이미지일경우 임시변수에 경로저장
    bmp := OpenPictureDialog1.Filename;

    저장할때 저장한다.
    Query1.FieldByName('S_SaJin').AsString := Bmp;
end;

   //불러올떄........

    Bmp := Qry_GridS_SaJin.AsString;
    if  Trim(Bmp) = '' then
      Image1.Picture := nil
    else
    begin
     try
       Image1.Picture.LoadFromFile(Bmp);
     except
       showMessage('경로에 사진이없습니다.');
       Image1.Picture := nil;
     end;

    end;

   db이미지를 사용할경우에는 불러오는 작업은 안 하셔도 db에서 지원함
end;

//경로일 경우 ↑



이미지전체를 잡을때는 이미지필드를 만들어야 하겠지만
그냥 경로로 사용 하신다면 그냥 char(200) 일케 해도 될꺼 같은데요


허접한 답변입니다
도움이 되시징...
즐코 하세요


님의 답변 정말 고마워요..
님의 소스를 조금 더 보충한거에요 다른사람에게 혹시 도움이 될까봐..^^;

procedure TForm1.Button1Click(Sender: TObject);
var  bmp : String;
begin
    table1.open; //테이블오픈이 빠져있더라고요..^^;
    table1.insert; //테이블에 삽입할수잇도록
    if OpenPictureDialog1.Execute then  //오픈픽쳐다이얼러그가 실행되면...
    begin
    Image1.Picture.LoadFromFile(OpenPictureDialog1.Filename); //이미지에 해당 파일을 붙인다

  //Query1.FieldByName.LoadFromFile(OpenPictureDialog1.Filename); db이미지를 할 경우   사진필드에 바로 이미지를 저장 한다.

  //  일반 이미지일경우 임시변수에 경로저장
    bmp := OpenPictureDialog1.Filename;

   // 저장할때 저장한다.
    table1.FieldByName('sajin').AsString := Bmp;
    table1.post;  //테이블 저장
    table1.close; //닫기
    end;

// db이미지를 사용할경우에는 불러오는 작업은 안 하셔도 db에서 지원함
end;



procedure TForm1.Button2Click(Sender: TObject);
var
bmp:string;
begin
   //불러올떄........
    table1.open; //테이블 오픈
    Bmp := table1.fieldbyname('sajin').AsString;
    if  Trim(Bmp) = '' then
    begin
      Image1.Picture := nil
    end
    else
    begin
     try
       Image1.Picture.LoadFromFile(Bmp);
     except
       showMessage('경로에 사진이없습니다.');
       Image1.Picture := nil;
    end;
   end;
   table1.close;  //테이블닫기
end;

똑같은 거지만 테이블이나 쿼리 오픈이 없어서 첨에 당황했거든요..^^;;
그냥 다들 아시겠지만 저처럼 초보에게 도움이 되었으면 해서 주재넘께 써보았어요^^;;
다들 즐델하세요^^;

저두 여기서 도움을 많이 받았거든요
아까 그 내용들도 여기 저기서 찾은거에요

그래도 도움이 되셨다니 다행입니다
항상 즐건운 하루 되시고
좋은 주말 보내세요 ^ㅡ^