델파이/Delphi] FTP에서 이미지 내려 받기

안녕하세요, 일마레입니다.

 

이전에 FTP에서 이미지 파일을 관리한다는 글을 올렸는데

실제 사용하는 예제를 알려드리겠습니다.

procedure TForm.IMAGE_DOWNLOAD(aFileNanme : string);
var
 URL: string;
 TempFolder: String;
 DownLoadURL : TDownLoadURL;
begin
    TempFolder := Format('%s', [ExtractFilePath(Application.ExeName)+'\itemimage']);

    if not DirectoryExists(TempFolder) then
         ForceDirectories(TempFolder);
    DeleteFile(PChar(ExtractFilePath(Application.ExeName)+'\itemimage\'+aFileNanme));
    
    URL := 'FTP 이미지 경로';

    DeleteUrlCacheEntry(PChar(URL));
    DownloadURL:=TDownloadURL.Create(nil);

    try
        try
            DownloadURL.URL:=URL;
            DownloadURL.FileName:=ExtractFilePath(Application.ExeName)+'\itemimage\' + aFileNanme;
            DownloadURL.ExecuteTarget(nil);
        except on E:Exception do
          begin
            ShowMessage('E.Message);
          end;
        end;
    finally
        if Assigned(DownloadURL) then FreeAndNil(DownloadURL);
    end;
end;

 

개발하시는데 도움이 되었기를 바랍니다.