Q&A

  • IEDownload 컴포넌트 사용에서 질문이 있습니다.
IEDownload 컴포넌트를 사용해서 파일 다운로드를 하는데요..
다운로드 받은 파일명을 변경하고 싶어서..
파일 다운로드를 완료하는 프로시저에서 파일명을 변경시켰는데..
적용이 안되어서. 그냥..복사하려구 했는데..
복사도 안됩니다..
밑에..
변수 source, dest를 출력시켜 보면..
C:document and settingsadministrator바탕 화면abcde.gif
이런식으로 나오구요..
dest 도
C:document and settingadministrator바탕 화면save.gif
이렇게 나와요..
그래서 다운로드 파일이 존재하는지 체크했는데..
존재는 한다구 나오구요..
그런데 복사나 파일명 변경을 했더니 안됩니다.
왜그런지 이유를 잘 모르겠습니다..
고수님들의 도움 부탁드립니다..

procedure TDownLoadForm.IEDownload1Complete(Sender: TBSCB; Stream: TStream;
Result: HRESULT);
var
  source , dest : string;
begin
  If Result = S_OK Then
  Begin
     // 다운로드가 완료되었으므로...
     // 파일명 변경..
     source := Trim(st5.Caption + '' + download_file_save_name[download_file_count-1]);
     dest := Trim(st5.Caption + '' + download_file_name[download_file_count-1]);
     CopyFile(PChar(source), PChar(dest), false);
     download_file_count := download_file_count - 1;
     If download_file_count = 0 Then
     Begin
        // 더이상 다운로드 할 파일이 없으므로.

        Button2.Enabled := false;
        download_file_count := 0;
        label1.Caption := '다운로드 완료';
        //FILERENAME;
     End
     Else
     Begin
        //MoveFile( PChar(source_name), PChar(dest_name));
        IEDownload1.Go(DOWNURL+download_file_dir[download_file_count-1]+'/'+download_file_save_name[download_file_count-1], st5.Caption+'/'+download_file_save_name[download_file_count-1]);
        st2.Caption := download_file_name[download_file_count-1];
     End;
  End  
0  COMMENTS