Borland

Indy를 이용한 파일 다운로드

leo21c 2009. 9. 16. 19:52 

void __fastcall TForm1::Button1Click(TObject *Sender)
{
  TFileStream *fileStream;
  AnsiString filename, URL;

  URL = Edit1->Text;

  filename = "c:\\test.txt";

  fileStream = new TFileStream(filename, fmCreate);
  IdHTTP1->Get(URL, fileStream);

  delete fileStream;
}


LIST