1. °³¹ß/½ÇÇà Ç÷§Æû (1) OS : windows 10 (2) °³¹ßÅø : Delphi 7 + Indy 7 (3) »ç¿ë Database :
2. °³¹ß ÁßÀÎ ÇÁ·Î±×·¥ IdHttpServer¸¦ ÀÌ¿ëÇÏ¿© ÆÄÀϾ÷·Îµå ÈÄ ÀúÀåÇÏ´Â ÇÁ·Î±×·¥À» °³¹ßÁßÀÔ´Ï´Ù.
3. Áú¹® ³»¿ë <meta charset="euc-kr"> <form action="/sbas/upload.jsp" method=post enctype="multipart/form-data"> <input type="file" name=file> <input type="submit"> </form> ¿©±â¼ ÆÄÀÏÀ» ¼±ÅÃÇؼ ¾÷·Îµå¸¦ ÇÕ´Ï´Ù.
vsTemp := TStringList.Create; vsFilename := TStringList.Create; voFile:=TMemoryStream.Create; vsTemp.Delimiter := ' '; vsFilename.Delimiter := '"'; try try vsTemp.DelimitedText := TStringStream(ARequestInfo.PostStream).DataString; for vicount := 1 to vsTemp.Count do begin if Pos('filename', vsTemp.Strings[vicount - 1]) <> 0 then begin vsFilename.DelimitedText := vsTemp.Strings[vicount - 1]; vsfilename.Delete(0); end; end; voFile.LoadFromStream(ARequestInfo.PostStream); voFile.SaveToFile(vsfilename.Strings[0]); AResponseInfo.ContentText:=HtmlMessage('Upload Successful!'); AResponseInfo.WriteContent; except AResponseInfo.ContentText:=HTMLMessage('Upload Error!'); AResponseInfo.WriteContent; end; finally FreeAndNil(voFile); end;
Àú·¸°Ô Çؼ Æú´õ¿¡ »çÁøÀÌ »õ·Î ÀúÀåÀÌ µÇ±â´Â Çϴµ¥ ÀúÀåµÈ ÆÄÀÏÀ» ¿·Á°í Çϸé E\project\test\»çÁø1.jsp ÆÄÀÏÀ» ÀÐÀ» ¼ö ¾ø½À´Ï´Ù. ¿Ã¹Ù¸¥ ºñÆ®¸ÊÀÌ ¾Æ´Ï°Å³ª ÇöÀç Áö¿øµÇÁö ¾Ê´Â Æ÷¸ËÀÔ´Ï´Ù. ¶ó´Â °æ°íâÀÌ ¶å´Ï´Ù.
ÅؽºÆ® ÆÄÀÏ·Î Å×½ºÆ®¸¦ Çغ¸¸é Àß µÇ±â´Â Çϴµ¥ ------WebKitFormBoundarySBNLljXXu0OkH4hB Content-Disposition: form-data; name="file"; filename="DB.txt" Content-Type: text/plain
¿À¶óŬ ORACLE/1004
¿À¶óŬ ORACLE/1004
¿À¶óŬ ORACLE/1004
------WebKitFormBoundarySBNLljXXu0OkH4hB-- ÀÌ·± ÇüÅ·ΠÀúÀåÀÌ µÇ°í ÀÖ½À´Ï´Ù.
ÅؽºÆ®ÆÄÀÏÀº »ó°ú¾ø±ä ÇÏÁö¸¸ À̹ÌÁöÆÄÀÏÀº ¾î¶»°Ô ÇؾßÇÏ´ÂÁö Á¶¾ðºÎŹµå¸³´Ï´Ù.
|