이수정 wrote:

> 안녕하세요..

>

> 버튼클릭시, 서버에 있는 파일을 자신의 컴퓨터의 특정 디렉토리 (c:temp) 에

> 파일을 다운받게 할려면 어떻게 해야 하나요??



procedure TfrmSCR004.btnDocViewClick(Sender: TObject);

var

sFilePath : string;

sFileName : string;

sP_SourcePath : string;

sP_TargetPath : string;

begin

sFilePath :=dbqryMain.FieldByname'FilePath').AsString;

// '//NT/D/DOCUMENT/'

sFileName := dbqryMain.FieldByname('FileName').AsString;

// 'Test.Jpg'

sP_SourcePath := sFilePath + sFileName;

// '//NT/D/DOCUMENT/Test.Jpg'

if not FileExists(sP_SourcePath) then // 서버에 파일 확인

MessageBox(Handle,'서버에 원본파일이 없습니다.',

cM_Error, MB_OK or MB_ICONERROR )

else

begin

sP_TargetPath := 'C:Windows바탕 화면' + sFileName;

if not(CopyFile(PChar(sP_SourcePath),

PChar(sP_TargetPath),

FALSE)) // 무조건 overwrite 옵션

then

MessageBox(Handle,'파일복사에 실패하였습니다.',

cM_Error, MB_OK or MB_ICONERROR )

else

begin

if ShellExecute(Handle,

'open',

PChar(sP_TargetPath),

'','',

SW_SHOWNORMAL) = 0

then

MessageBox(Handle,'파일열기에 실패하였습니다.',

cM_Error, MB_OK or MB_ICONERROR );

end;

end;

end;