yDelphiz IndyƒRƒ“ƒ ..
[2ch|₯Menu]
433:ƒfƒtƒHƒ‹ƒg‚Μ–Ό–³‚΅‚³‚ρ
05/11/21 19:50:44
procedure TForm1.Button1Click(Sender: TObject);
const
@FILE_URL = 'URLΨέΈ(www.indyproject.org)';
@FILE_PATH = 'Indy_9_00_17_src.zip';
var
@getsize: integer;
@filesize: integer;
@fs: TFileStream;
begin
@fs := TFileStream.Create(FILE_PATH, fmCreate);
@try
@@IdHTTP1.Head(FILE_URL);

@@getsize := 0;
@@filesize := IdHTTP1.Response.ContentLength;

@@Caption := IntToStr(getsize) + '/' + IntToStr(filesize);

@@IdHTTP1.Get(FILE_URL, fs);
@finally
@fs.Free;
@end;
end;

‚±‚ρ‚ΘŠ΄‚Ά‚ΕCaption‚ΙŒ»έ‚Μƒ_ƒEƒ“ƒ[ƒh—Κ‚π•\ަ‚·‚ι‚Ι‚Ν‚Η‚€‚·‚κ‚Ξ‚’‚’‚Ε‚·‚©H


ŽŸƒy[ƒW
ΕVƒŒƒX•\ަ
ƒXƒŒƒbƒh‚ΜŒŸυ
—ήŽ—ƒXƒŒˆκ——
˜b‘θ‚Μƒjƒ…[ƒX
‚¨‚ά‚©‚ΉƒŠƒXƒg
₯ƒIƒvƒVƒ‡ƒ“‚π•\ަ
‰Ι‚Β‚Τ‚΅2ch

4211“ϊ‘O‚ɍXV/200 KB
’S“–:undef