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;
즐프하세요...