Q&A

  • 파일 업로드 ??? (갱수님...~!! 아님 다른 고수님들..)
파일 업로드를 어떻게 해야 하는지.. 모르겠어요~~

강의실에 있는 내용은 봐도 모르겠구...

좀더... 자세히 알려줄수 있으세요?

알려주시면.. 정말 감사하구요~~



어떠한 파일이라도 크기 관계없이 올리고 싶은데...



또~ 크기를 제한 하려면.. 어떠케...



정말 정말 부탁입니다...

자세히 설명해주세요~~ (소스를 주시면.. 제가 분석해 보겠습니다...)

소스를 주시려면.. 주석도 달아 주세요~~



정말 죄송합니다... 잘 몰라서...

꼭~~ 꼭~~ 부탁드립니다.... 알려주세요~~ ( 제발~~~ )



3  COMMENTS
  • Profile
    화랑 2000.03.21 00:32
    소스를 보내달라는 것은 좀 이해가 되지 않습니다. 특히 주석까지 달아서...음



    소스를 보내드리진 못하고.. 팁에서 나온 파일업로드를 간단히 분석을 하면 이렇습니다.



    다음의 함수가 실제 화일을 저장하는 부분입니다.. 이미지를 기준으로 되어 있지만..





    procedure TWebModule1.WebModule1rootAction(Sender: TObject;

    Request: TWebRequest; Response: TWebResponse; var Handled: Boolean);



    var

    strSaveAs, strSaveFrom, strSep, strReceived, strAdd: String ;

    iTmp, iTotal: integer ;

    F: File of char ;

    Ticks: dword ;



    begin

    iTotal := Request.ContentLength ;

    -- 현재 넘어올 파일의 크기를 가져 옵니다. 아마 바이트 단위일겁니다..

    만일 파일의 크기를 제한하고 싶으시면.. 이 값을 이용하면 되겠죠



    strReceived := Request.Content ;



    Ticks := GetTickCount ;



    if Length (strReceived) < iTotal then

    repeat

    strAdd := Request.ReadString (iTotal - Length trReceived)) ;

    iTmp := Length (strAdd) ;

    if iTmp > 0 then

    begin

    ticks := GetTickCount ;

    strReceived := strReceived + strAdd ;

    end ;

    until (Length (strReceived) >= iTotal) or (GetTickCount - Ticks > 3000) ;



    -- 이부분은 네트워크상 1메가의 파일이 한꺼번에 1메가가 다 넘어오는것은 아닙니다.

    그래서 나누어진 부분을 합치는 루틴...



    위의 두부분을 이해 하시면.. 다음은 실제 넘어온 데이터를 입맛에 맞게 파싱을 해야



    합니다.. 넘어온 strReceived는 폼의 내용+파일입니다..



    그럼 폼의 내용(제목, 올린이 내용)을 파싱해서 디비에 저장하고



    파일을 파싱해서 파일을 특정 디렉 토리에 저장을 하면 됩니다...









    왕초보 wrote:

    > 파일 업로드를 어떻게 해야 하는지.. 모르겠어요~~

    > 강의실에 있는 내용은 봐도 모르겠구...

    > 좀더... 자세히 알려줄수 있으세요?

    > 알려주시면.. 정말 감사하구요~~

    >

    > 어떠한 파일이라도 크기 관계없이 올리고 싶은데...

    >

    > 또~ 크기를 제한 하려면.. 어떠케...

    >

    > 정말 정말 부탁입니다...

    > 자세히 설명해주세요~~ (소스를 주시면.. 제가 분석해 보겠습니다...)

    > 소스를 주시려면.. 주석도 달아 주세요~~

    >

    > 정말 죄송합니다... 잘 몰라서...

    > 꼭~~ 꼭~~ 부탁드립니다.... 알려주세요~~ ( 제발~~~ )

    >

  • Profile
    갱수 2000.03.20 15:38
    왕초보 wrote:

    > 파일 업로드를 어떻게 해야 하는지.. 모르겠어요~~

    > 강의실에 있는 내용은 봐도 모르겠구...

    > 좀더... 자세히 알려줄수 있으세요?

    > 알려주시면.. 정말 감사하구요~~

    >

    > 어떠한 파일이라도 크기 관계없이 올리고 싶은데...

    >

    > 또~ 크기를 제한 하려면.. 어떠케...

    >

    > 정말 정말 부탁입니다...

    > 자세히 설명해주세요~~ (소스를 주시면.. 제가 분석해 보겠습니다...)

    > 소스를 주시려면.. 주석도 달아 주세요~~

    >

    > 정말 죄송합니다... 잘 몰라서...

    > 꼭~~ 꼭~~ 부탁드립니다.... 알려주세요~~ ( 제발~~~ )

    >

    안녕하세요..

    저번에 올린건 웹에서 파일업로드 내용이구요...

    그 소스에서 보면 헤더부분을 짜르는 게 있을거구요. http 프로토콜을 사용하다보면 원래의 데이타 외에 뭐 잡다한 내용들이 붙어서 가다보니 서버쪽에서는 그 잡다한(?) 내용을 제거해주거야하구요...



    저도 초보라서.. 일단 볼랜드 뉴스그룹에 인터넷관련 그룹에 보시면 많은 내용들이 있을겁니다. 도움이 못되드려서 죄송하네요..^^



    즐거운 생활하세요..^^



  • Profile
    송인표 2000.03.23 09:44
    팁모아-나이렉스(한델)에 가면 김경수님이 올려놓으신 업로드 소스가 있습니다.



    그러나 그 소스는 클라이언트쪽 사용자가 보는 폼에 대해서는 나와 있지 않으니



    그 부분은 스스로 만드셔야 하며



    그 소스중 이미지로 변환하는 부분을 빼고 차근 차근 주석을 상세히 달아가며



    살펴보면 분명히 됩니다. 본인이 해봤음...



    너무나 잘 정리된 소스이니 자세히 살펴보세요....



    수정할 곳도 없습니다. 그대로 됩니다. 단 CGI에 대해 어느정도 델파이로



    프로그램을 해봤다는 가정하에 가능할 듯 그럼이만....











    갱수 wrote:

    > 왕초보 wrote:

    > > 파일 업로드를 어떻게 해야 하는지.. 모르겠어요~~

    > > 강의실에 있는 내용은 봐도 모르겠구...

    > > 좀더... 자세히 알려줄수 있으세요?

    > > 알려주시면.. 정말 감사하구요~~

    > >

    > > 어떠한 파일이라도 크기 관계없이 올리고 싶은데...

    > >

    > > 또~ 크기를 제한 하려면.. 어떠케...

    > >

    > > 정말 정말 부탁입니다...

    > > 자세히 설명해주세요~~ (소스를 주시면.. 제가 분석해 보겠습니다...)

    > > 소스를 주시려면.. 주석도 달아 주세요~~

    > >

    > > 정말 죄송합니다... 잘 몰라서...

    > > 꼭~~ 꼭~~ 부탁드립니다.... 알려주세요~~ ( 제발~~~ )

    > >

    > 안녕하세요..

    > 저번에 올린건 웹에서 파일업로드 내용이구요...

    > 그 소스에서 보면 헤더부분을 짜르는 게 있을거구요. http 프로토콜을 사용하다보면 원래의 데이타 외에 뭐 잡다한 내용들이 붙어서 가다보니 서버쪽에서는 그 잡다한(?) 내용을 제거해주거야하구요...

    >

    > 저도 초보라서.. 일단 볼랜드 뉴스그룹에 인터넷관련 그룹에 보시면 많은 내용들이 있을겁니다. 도움이 못되드려서 죄송하네요..^^

    >

    > 즐거운 생활하세요..^^

    >