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