06/09/08 17:54:51
procedure TForm1.Button1Click(Sender: TObject);
const
FILE_URL = 'URLﾘﾝｸ(203.131.199.131:8060)';
FILE_PATH = 'test.mp3';
var
fs: TFileStream;
begin
fs := TFileStream.Create(FILE_PATH, fmCreate);
try
with IdHTTP1 do begin
Get(FILE_URL, fs);
end;
finally
fs.Free;
end;
end;