창피함을 무릅쓰고 오류투성이의 소스를 올립니다.
저같은 초보가 아니신분에게는 웃음을 주는 소스입니다..^^:
이미지를 디비에다 집어넣을려구 하는데
함수에 대해 이해를 잘못해 이렇게 헤메고 있습니다,
오류투성이의 소스를 보시고 조언좀 부탁합니다.
디비가 무거워지는것을 알면서도 디비에 직접넣을려구 합니다.

* 이미지를 디비에 저장하고 저장된 이미지를 보는 것입니다.(bmp화일이죠^^) 디비는 mssql입니다.(image형입니다)
Stream read error오류가 무지 뜨네요^^:

procedure TForm1.Button1Click(Sender: TObject);//디비이미지저장^^;
begin
  if not Table1.Active then
         Table1.Open;
  try
  Table1.Insert;
  Table1.FieldByName('IMG').Value := ('IMG');
  Table1.Post;
  //Table1.Refresh;
  Except
  showmessage('데이터입력에러');
  end;
  end;

procedure TForm1.Button2Click(Sender: TObject);
begin
    if OpenPictureDialog1.Execute then
     Image1.Picture.LoadFromFile(OpenpictureDialog1.FileName);
end;

procedure TForm1.Button3Click(Sender: TObject);  //디비이미지보기^^;
begin
   Table1.Active := true;
   Table1IMG.SaveToFile('IMG');
   DbImage1.Picture.LoadFromFile('IMG');
end;



procedure TForm1.btnDeleteClickClick(Sender: TObject);
begin
     if Table1.RecordCount>0 then
     Table1.delete
     else Showmessage('데이터가 없습니다');
end;

end.