±ÍÇÏ´Â ¼Õ´Ô À̽ʴϴÙ
·Î±×ÀÎ
ȸ¿ø°¡ÀÔ
  
  µ¨¸¶´ç °ø½Ä ÀºÇà°èÁÂ
  ÇϳªÀºÇà 227-910235-83607
  ¿¹±ÝÁÖ ÀÌ»ó±¹(¿î¿µÁø)
ÇÁ·ÎÁ§Æ® °Ô½ÃÆÇ
ÅõÇ¥°Ô½ÃÆÇ
µ¨¸¶´ç¼Ò°³
±âÃʺÎÅÍ È°¿ë±îÁö! µ¨ÆÄÀÌ ±³À° - µ¥ºê±â¾î
Áú¹®°ú ´äº¯ Áú¹®°ú ´äº¯ ÀÔ´Ï´Ù.
±Û³»¿ë - Áú¹®°ú ´äº¯
 [Áú¹®]idhttpserver ¾÷·ÎµåµÈ À̹ÌÁöÆÄÀÏ ¿À·ù
JSP8676
(Á¤¼ºÇÊ)
2017-02-23 ¿ÀÈÄ 3:40:21
993ȸ Á¶È¸


÷ºÎÆÄÀÏ ´Ù¿î·Îµå
À̹ÌÁöÆÄÀÏ¿À·ù.jpg
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--
ÀÌ·± ÇüÅ·ΠÀúÀåÀÌ µÇ°í ÀÖ½À´Ï´Ù.

ÅؽºÆ®ÆÄÀÏÀº »ó°ú¾ø±ä ÇÏÁö¸¸ À̹ÌÁöÆÄÀÏÀº ¾î¶»°Ô ÇؾßÇÏ´ÂÁö Á¶¾ðºÎŹµå¸³´Ï´Ù.