db에 exe를 binary로 저장은 되는데 저장된 실행파일을 읽어와서는
실행이 안되요.
dos 창이 뜨고 메모리 부족이라는 명령이 나오는데
아무래도 저장Method 또는 Load Method 가 틀린가 봅니다.
아래 소스올리니 살펴보시고 조언 부탁드립니다.
항상 미리 감사합니다. 꾸뻑.
아참. db는 오라클이구요, 4.0 씁니다.
// db에 실행파일 저장루틴.
if trim(edi_flongname.text) <> '' then
begin
Quy_MailFile.Insert;
Quy_MailFileAgency_no.AsString := Quy_MasterAgency_no.AsString;
Quy_MailFileMail_dt.AsString := Quy_MasterMail_dt.AsString;
Quy_MailFileMail_Seq.Value := Quy_MasterMail_Seq.Value;
// blob필드
Quy_MailFileMail_File.LoadFromFile(edi_flongname.Text);
Quy_MailFile.Post;
end;
// db에 저장된 실행파일을 window file로 저장하는 루틴.
if trim(edi_fname.text) <> '' then
begin
SaveDialog1.FileName := edi_flongname.Text;
if SaveDialog1.Execute then
begin
Quy_MailFile.Close;
Quy_MailFile.Open;
// 아마 이 부분이 틀리지 않았을까 합니다.
Quy_MailFileMail_File.SaveToFile(SaveDialog1.FileName);
end;
end;