아래 소스처럼 화일을 Board테이블의 AddFile이라는 필드에 OpenDialog를 이용해서 선택한
화일을 폴더를 Edit1.Text에 보여주고 저장을 누르면 Edit1.Text에 있는 화일이 저장되게
하려고 하는데 잘 되질 않네요...
16진수의 지정이 잘못됐다고 나오네요. 어떻게 된건지?
참고로 지금것은 ActveX방식이고 DB는 Oracle를 사용하고 있습니다.
테이블 생성은 아래와 같이 했고요...
---------------------------------------------
DT VARCHAR2(14) NOT NULL,
SEQ_NO NUMBER,
ADDFILE LONG RAW,
---------------------------------------------
------- 소스 ------------------------------------------------------
Sql_Str_02 := '';
Sql_Str_02 := ' INSERT INTO BOARD '
+' (DT, SEQ_NO, ADDFILE) '
+' VALUES '
+' (:S_DT, :S_SEQ_NO, :S_ADDFILE) ';
CBMS_DM001_F.ClientTemp02.Close;
CBMS_DM001_F.ClientTemp02.CommandText := Sql_Str_02;
CBMS_DM001_F.ClientTemp02.Params.ParamByName('S_DT').Value := '20050122';
CBMS_DM001_F.ClientTemp02.Params.ParamByName('S_SEQ_NO').Value := 1;
CBMS_DM001_F.ClientTemp02.Params.ParamByName('S_ADDFILE').LoadFromFile(Edit1.Text, ftBlob);
Try
CBMS_DM001_F.ClientTemp02.Execute;
Except
MessageDlg('파일저장 중 DB Error ! 관리자에게 문의하십시오 !',mtwarning,[mbok],0);
Exit;
raise;
end;
------- 소스 ------------------------------------------------------