Q&A

  • TBlobField로 DB의 이미지화일을 읽어오려는데 32Kb이상은 안되네요....
TBlobField로 DB의 이미지화일을 읽어오려는데 32Kb이상은 안되네요....
방법이 없을까요?
지금 현업에서 결재를 하려하는데 첨부파일을 확인할 수 없어
결재처리를 못한다고 난리예요.

아래소스중 다음부분에서 Client PC로 제대로 Save가 안되네요.
TBlobField(FieldByName('파일')).SaveToFile(FileNa);


<문제의소스>
var Hand   : HWND;
    FileNa : String;

With Query1 Do
Begin
   Close;
   Sql.Clear;
   Sql.Add(' Select 파일 ,파일명 From 파일첨부 ');
   Sql.Add(' Where 파일명 = :파일명            ');
   ParamByName('파일명').AsString := TE_File.Text;
   Open;
   If RecordCount > 0 Then
   Begin
      FileNa :='c:' + FieldByName('파일명').AsString;
      TBlobField(FieldByName('파일')).SaveToFile(FileNa);
      ShellExecute(hand,'open',pchar(FileNa), '','', SW_SHOWNORMAL);
      ShowMessage('확인!');
      if FileExists(FileNa) then
         DeleteFile(FileNa);
   End;
End;
1  COMMENTS
  • Profile
    KDDG_ZZOM 2003.02.20 00:00
    BDE Administrator의 Configuration텝의 Drivers의 Native의 해당 데이터베이스의 Blob Size를 늘려보세요...

    즐프하세요...