홈페이지 wrote:

> my.netian.com/~aaaa/

>

> 에 있는 모든 파일목록을 알고 싶은데..

>

> 어떤 컴포넌트를 사용해야하죠?

>

> 그리고 그파일을 다운로드 받을때는 어떤 컴포넌트를 사용해야 하는지..

>nmhttp콤보넌트를 이용하시면 됩니다.

자세한것은 제가 여기서 한번 그 내용에 대한 답변을 한게 있을겁니다.

다운받을때는 이렇해 사용하시면 됩니다

Function TForm1.GetHTTP(URL:String):String;

Begin

With TNMHTTP.Create(Nil) do

Try

InputFileMode:= False;

OutputFileMode:= False;

ReportLevel:= Status_Basic;

TimeOut:= 10000;

Get(URL);

Result:= Body;

Free;

Except

Free;

Result:= '';

End;

End;



Procedure TForm1.SaveBinaryFile(ToFileName,Binary:String);

Var

Loop, iSize, iPos : Integer;

fUpload : File;

Buffer : Packed Array [1..1024] of Char;

Begin

Try

AssignFile(fUpload, ToFileName);

Rewrite(fUpload, 1);



iPos:= 0;

iSize:= Length(Binary);

While iSize >= 1024 do

Begin

For Loop:= 1 to 1024 do

Buffer[Loop]:= Binary[iPos+Loop];

BlockWrite(fUpload, Buffer, 1024);

iPos:= iPos + 1024;

iSize:= iSize - 1024;

End;



If iSize > 0 then

Begin

For Loop:= 1 to iSize do

Buffer[Loop]:= Binary[iPos+Loop];

BlockWrite(fUpload, Buffer, iSize);

End;



CloseFile(fUpload);

Except

End;

End;



Peocedure TForm1.SpeedButton1Click(Sender: TObject);

Begin

If SaveDialog1.Excute then

Begin

SaveBinaryFile(FileName, GetHTTP(http://www.shinhae.com/down.zip));

End;

End;

이런식으로하면 다운로드가 되죠...

그럼 즐코딩하세요