송성준 wrote:

> 팁에서 갱수님의 자세한 파일업로드 부분 잘보았습니다.

>

> 그런데 48k바이트 이상이 되니까 다음과 같은 에러가 나는 군요

>

> --서버를 찾을 수 없거나 DNS 오류입니다.--

>

> 정말 치명적인 에러인데(요즘은 48k로 할수 있는게 없어서 ^^;)

>

> 소스부분중에 어느것을 수정하면 되는지요??

>

> 참고로 NT4.0에서 델파이 cgi가 돌아가고 있습니다.

>

> 수고스럽겠지만 이부분이 막혀서 아무것도 못하고 있네요

>

> 빠른 답변을 부탁 드립니다.

>

> 좋은 주말 보네세요...



안녕하세요^^



지금 테스트 해봤는뎅 3Mb가도 한 12초 정도걸리지만(-.-) 업로드가 되네요...^^



소스보면 제가 오타가 난게 있구요

unit main;



interface



uses

Windows, Messages, SysUtils, Classes, HTTPApp, Db, DBTables,Graphics, Jpeg;





type

TWebModule1 = class(TWebModule)

procedure WebModule1WebActionItem1Action(Sender: TObject;

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

private

{ Private declarations }

public

{ Public declarations }

end;



var

WebModule1: TWebModule1;



implementation



{$R *.DFM}



procedure TWebModule1.WebModule1WebActionItem1Action(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(strReceived)); <= 오타가 났었네요,,,-.-

iTmp := Length (strAdd) ;

if iTmp > 0 then

begin

ticks := GetTickCount ;

strReceived := strReceived + strAdd ;

end ;

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



iTmp := pos (#13#10, strReceived) ;



if iTmp <= 1 then

raise Exception.Create ('파일형태전송안됨') ;

StrSep := Copy (strReceived,1, iTmp - 1) ;

delete (strReceived, 1, iTmp + 1) ;

iTmp := pos ('name="', strReceived) ;



if iTmp = 0 then

raise Exception.Create ('Could not find name to save file as') ;

delete (strReceived, 1, iTmp + 5) ;

iTmp := pos ('"', strReceived) ;



if iTmp <= 1 then

raise Exception.Create ('저장파일이름 못찾음') ;

strSaveAs := Copy (strReceived, 1, iTmp - 1) ;

iTmp := pos ('filename="', strReceived) ;



if iTmp = 0 then

raise Exception.Create ('업로드 파일 못찾음') ;

delete (strReceived, 1, iTmp + 9) ;

iTmp := pos ('"', strReceived) ;



if iTmp <= 1 then

raise Exception.Create ('업로드파일이름 못찾음') ;



strSaveFrom := Copy (strReceived, 1, iTmp - 1) ;

delete (strReceived, 1, iTmp + 1) ;

for iTmp := Length (strSaveFrom) downto 1 do

case strSaveFrom[iTmp] of

'.': begin

strSaveAs := StrSaveAs + Copy (strSaveFrom, iTmp, Length (strSaveFrom)) ;

break ;

end ;

'', '/', ':': break ;

end ;



iTmp := pos (#13#10#13#10, strReceived) ;



if iTmp = 0 then

raise Exception.Create ('Could not find start of file to save') ;

delete (strReceived, 1, iTmp + 3) ;

iTmp := pos (#13#10+strSep+ '--', strReceived) ;



if iTmp <= 1 then

raise Exception.Create ('Could not find end of file to save') ;

SetLength (strReceived, iTmp - 1) ;



AssignFile (F, strSaveAs) ;

Rewrite (F) ;



for iTmp := 1 to Length (strReceived) do

Write (f, strReceived[iTmp]) ;

CloseFile (F) ;



response.content := '저장되었습니다.';





end;



end.

--------------------------------------------------------------------------------

저장된 파일은 c:winntsystem32 폴더에 $$UPLOAD.전송한 확장자명..

으로 저장이 됩니다.

저도 NT IIS 서버를 사용했구요 ISAPI방식으로 테스트 해봤구요. 일단 로컬해서 해봤구요.



> --서버를 찾을 수 없거나 DNS 오류입니다.-- 오류는 일단 500번에러가 발생하면 서버프로그램에서 에러가 발생한건데 위와 같은 에러는 글쎄요.. 웹서버가 죽었거나 컴퓨터가 죽어있는데 에러가 발생할텐데....



그럼 서버가 부하가 걸려서 죽는건가요? 이 허름한 소스 상에서는 저장이 되니 제가 어떻게 수정해야할지에 대해서는 뭐라 말씀드릴수가 없겠네요..



에궁 초보라성....-.-

꼭 해결하세요^^