Delphi初心者のための寺子屋

Delphi初心者のための寺子屋 at TECH

146:デフォルトの名無しさん
06/09/13 03:30:32
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;

次ページ

続きを表示

1を表示