김만성 wrote:

>

> 델 가족 여러분 안녕하세요...

> 짐 막 사이즈에 관련된 정보를 찾아봤는데요...

> 디스크 사이즈를 구하는건 있는데... 파일 사이즈를 구하는

> 거에 대한 설명은 없는것 같아서요... 질문을 올립니다..

> 말 그대로... 파일 사이즈를 구하는 겁니다..

> 제가 ftp(여기서 다운 받은걸로) 업로드는 하는데...

> 이 파일의 사이즈를 구하고 싶거든요...

> 혹시나 해서 헬프 찾아보니... sizeof()가 있는것 같더라구요...

> 그런데.. 이게 계속 4만 찍고 있잖아요.. 안 바뀌더라구요...

> 제가 잘못 써서 그런지 아님 다른 방법이 있는 건지..

> 고수 님들의 충고 부탁드립니다...

>

> 그럼 즐코하세요...

> ^^





두가지 방법이 있는데요. 암꺼나 쓰세요. 책보고 따라해본 것입니다.

궁금한점 있으시면 다시 질문해주세요. 그럼..도움이 되시기를...



//파일 size 구하기

procedure TForm1.Button3Click(Sender: TObject);

var

F : File of char;

iFilesize : integer;

begin

AssignFile(F,'d:winamp262.exe');

reset(F);

ifilesize:=filesize(F);

label1.caption:=inttostr(ifilesize);

closefile(F);

end;





//FileSeek(파일핸들, offset, Origin);

//Origin의 값이 --> 0 : 파일의 처음을 기준, 1:파일의 현재위치를 기준, 2:파일의 끝을 기준으로한다.

//offset --> Origin에서 지정한 위치에서 얼마나 떨어져있는가를 나타낸다.

//아래구문에서

//FileSeek(FH1, 0, 2) 는 FH1이 나타내는 파일의 마지막에서 0번째 즉 맨 마지막의 위치값을 리턴한다. 즉 파일의 크기를 리턴한다.



procedure TForm1.Button4Click(Sender: TObject);

var

FH1 : integer;

iFilesize : integer;

begin

FH1:=FileOpen('d:winamp262.exe',fmOpenRead);

iFileSize:=FileSeek(FH1,0,2);

label1.caption:=inttostr(iFileSize);

FileClose(FH1);

end;