준비물: TIdHTTP, TMemoryStream

 

procedure 이미지파일_저장(웹경로, 로컬경로: String);
var
  IdHTTP1: TIdHTTP;
  mStream: TMemoryStream;


begin
  mStream:=TMemoryStream.Create;
  IdHTTP1:=TIdHTTP.Create;
  try
    // 1. 스트림으로 받아
    IdHTTP1.Get(웹경로, mStream);
    // 2. 로컬디스크에 저장
    mStream.SaveToFile(로컬경로);
  finally
    FreeAndNil(IdHTTP1);
    FreeAndNil(mStream);
  end;
end;

 





Posted by bloodguy
,