|
ｿｽ@ｿｽｿｽｿｽtｿｽ@ｿｽCｿｽｿｽｿｽｿｽHttpｿｽ_ｿｽEｿｽｿｽｿｽｿｽｿｽ[ｿｽh
|
ｿｽgｿｽbｿｽvｿｽyｿｽ[ｿｽWｿｽｿｽ
ｿｽeｿｽｿｽｿｽｿｽﾌ過具ｿｽｿｽｿｽｿｽO
ｿｽEC/C++
ｿｽEDelphi
ｿｽEVisual BasicｿｽｿｽｿｽSｿｽｿｽ
ｿｽ@(VB2-VB6ｿｽｿｽ.NETｿｽｿｽｿｽp)
ｿｽEVisual Basic(VB2-VB6)
ｿｽEVisual Basic .NET
ｿｽEVisual C++
ｿｽﾖ連ｿｽTｿｽCｿｽg
ｿｽEpapy's softwarelibrary
Delphiｿｽgｿｽｿｽ@C4 2005/03/13(ｿｽｿｽ) 16:59:38
ｿｽｿｽｿｽｿｽﾉゑｿｽｿｽﾍ。
ｿｽﾜゑｿｽｿｽAｿｽｿｽｿｽｿｽﾅゑｿｽｿｽB
ｿｽｿｽｿｽﾜ、
ｿｽuButton1ｿｽvｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾆゑｿｽｿｽA
[http://hogehoge.com/j.txt]ｿｽｿｽ_ｿｽEｿｽｿｽｿｽｿｽｿｽ[ｿｽhｿｽｿｽｿｽｿｽ
ｿｽｿｽｿｽ黷ｾｿｽｿｽｿｽﾌプｿｽｿｽｿｽOｿｽｿｽｿｽｿｽｿｽｿｽｿｽ閧ｽｿｽｿｽｿｽﾌでゑｿｽｿｽｿｽｿｽA
ｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾄゑｿｽﾇゑｿｽｿｽﾉゑｿｽｿｽｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽｿｽB
ｿｽﾇなゑｿｽｿｽｿｽｿｽ答ゑｿｽｿｽｿｽ閧｢ｿｽｿｽｿｽﾜゑｿｽ
ｿｽｿｽｿｽｿｽｿｽﾝゑｿｽｿｽｿｽ 2005/03/13(ｿｽｿｽ) 17:43:55
ｿｽ@ｿｽﾖ連ｿｽﾌゑｿｽｿｽ閧ｻｿｽｿｽｿｽﾈキｿｽ[ｿｽｿｽｿｽ[ｿｽhｿｽﾅ鯉ｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽｿｽｿｽH
ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾌゑｿｽｿｽﾌままではまゑｿｽｿｽqｿｽbｿｽgｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽ
Mr.XRAY 2005/03/13(ｿｽｿｽ) 18:35:57
ｿｽｿｽｿｽﾌ趣ｿｽﾌゑｿｽﾌはネｿｽbｿｽgｿｽｿｽﾉゑｿｽｿｽｿｽｿｽﾂゑｿｽｿｽｿｽｿｽ閧ｷｿｽDｿｽｿｽｿｽｿｽｿｽLｿｽ[ｿｽﾌ工ｿｽvｿｽｿｽｿｽKｿｽvｿｽﾅゑｿｽｿｽD
ｿｽｿｽｿｽｿｽｿｽﾝゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾌ折角ｿｽﾌｿｽｿｽXｿｽｿｽeｿｽﾈのでゑｿｽｿｽｿｽ... (ｿｽSｿｽｿｽｿｽｿｽｿｽﾈゑｿｽｿｽｿｽｿｽｿｽ)
ｿｽｿｽｿｽｿｽｿｽﾝゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾌとゑｿｽｿｽｿｽﾉ WinInetｿｽgｿｽpHTTP_FTPｿｽRｿｽｿｽｿｽ|ｿｽ@ｿｽﾆゑｿｽｿｽｿｽｿｽﾌゑｿｽ
ｿｽｿｽｿｽｿｽﾜゑｿｽｿｽDｿｽｿｽxｿｽｿｽｿｽｿｽｿｽﾄみて会ｿｽｿｽｿｽｿｽｿｽｿｽD
ｿｽﾈ会ｿｽｿｽﾍ，ｿｽｿｽｿｽﾜはゑｿｽｿｽｿｽ(?)IndyｿｽｿｽgｿｽpｿｽｿｽｿｽｿｽｿｽｿｽﾅゑｿｽｿｽD
ｿｽｿｽｿｽｿｽｿｽﾌ掲ｿｽｿｽｿｽﾂゑｿｽｿｽｿｽｿｽﾌ掲ｿｽｿｽｿｽﾂの過具ｿｽｿｽｿｽｿｽOｿｽｿｽｿｽｿｽﾌ焼ゑｿｽｿｽｿｽｿｽｿｽｿｽﾅゑｿｽｿｽD
ｿｽVｿｽKｿｽvｿｽｿｽｿｽWｿｽFｿｽNｿｽgｿｽｿｽ TMemo,TButtonｿｽｿｽ2ｿｽﾂ，TIdHTTPｿｽｿｽ1ｿｽﾂ配ｿｽuｿｽｿｽｿｽﾜゑｿｽｿｽD
//======================================================
// ｿｽCｿｽｿｽｿｽ^ｿｽ[ｿｽlｿｽbｿｽgｿｽｿｽﾌフｿｽ@ｿｽCｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾉ表ｿｽｿｽ
//======================================================
procedure TForm1.Button1Click(Sender: TObject);
var
Adr,FileN:string;
begin
Adr:='http://homepage2.nifty.com/Mr_XRAY/LzhFiles/TEST.txt';
Memo1.Lines.Text:=IdHTTP1.Get(Adr);
end;
//======================================================
// ｿｽCｿｽｿｽｿｽ^ｿｽ[ｿｽlｿｽbｿｽgｿｽｿｽﾌフｿｽ@ｿｽCｿｽｿｽｿｽｿｽfｿｽBｿｽXｿｽNｿｽﾉダｿｽEｿｽｿｽｿｽｿｽｿｽ[ｿｽh
// ｿｽﾛ托ｿｽｿｽｿｽﾍゑｿｽｿｽﾌプｿｽｿｽｿｽWｿｽFｿｽNｿｽgｿｽﾌフｿｽHｿｽｿｽｿｽ_
//======================================================
procedure TForm1.Button2Click(Sender: TObject);
var
FS : TFileStream;
Adr : String;
FilePath : String;
begin
ｿｽ@Adr:='http://homepage2.nifty.com/Mr_XRAY/LzhFiles/TEST.txt';
ｿｽ@FilePath :=ExtractFilePath(Application.ExeName)
ｿｽ@ｿｽ@ｿｽ@ｿｽ@ｿｽ@ｿｽ@ｿｽ@ｿｽ@+'TESTDownLoad.txt';
ｿｽ@FS:=TFileStream.Create(FilePath,fmCreate);
try
IdHTTP1.Get(Adr,FS);
finally
FS.Free;
end;
end;
