idhttpserver를 이용하여 개발을 하고 있습니다.
<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--
이런 형태로 저장이 되고 있습니다.
텍스트파일은 상과없긴 하지만 이미지파일은 어떻게 해야하는지 조언부탁드립니다.
해결하였습니다.