Q&A
- 급함! Upload Component 개발중 에러발생...
안녕하세요.. 부산의 화랑입니다..
이번에 Active Server Component로 upload를 할려고 하는데..
문자열에 관해서 에러가 납니다.. 여러 고수님의 지도 부탁드립니다.
어려운 것은 아니라고 생각이 드는데.. 전 델파이 기초가 부족해서...
소스를 보시고 ..... 꼭 해답을 주세요.. 2주간 잠도 제대로 못 잠...
부탁드립니다
/////////////////////////////////////////////////////
(소스1)
Function XXXX
Var
UploadFile :WideString;
TotalByte : Olevariant;
Data : String;
fsFile : TFileStream
Begin
TotalByte : Request.TotalByte;
UploadFile : Request.BinaryRead(TotalByte);
// 위는 화일을 전송하는 것을 Uploadfile에 저자
**질문1: //아래와 같이 그대로 저장을 하면 절반밖에 들어가지 않아요
fsFile := TFileStream.Create(XXX)
try
tsFile.Write(PChar(UploadFile)^,Length(UploadFile));
finally
tsFile.free;
End;
Response.Write(UploadFile);
Response.BinaryWrite(UploadFile);
End
소스2)
Function XXXX
Var
UploadFile :WideString;
TotalByte : Olevariant;
Data : String;
fsFile : TFileStream
Begin
TotalByte : Request.TotalByte;
UploadFile : Request.BinaryRead(TotalByte);
// 위는 화일을 전송하는 것을 Uploadfile에 저자
Data := UploadFile+AnsiLowCase(UploadFile)
// 이런식으로하면.. 아래에서 화일에 전부저장이 됩니다..
*질문2 여기서 AnsiLowCase는 소문자로 바꾸어지는 것이 아닌가요?
그런데.... 왜 Upload 된 데이터가 다 만들어지죠?
fsFile := TFileStream.Create(XXX)
try
tsFile.Write(PChar(Data)^,Length(Data));
finally
tsFile.free;
End;
질문3 // 여기서 Response에서 Write를 하면 깨져나옵니다.(화일은 정상으로 저장)
Response.Write(UploadFile);
질문4 // 여기서 Response에서 BinaryWrite를 하면 아주 정상적으로 나옵니다.
Response.BinaryWrite(UploadFile);
End
마지막으로 정리하면
1. WideString으로 받으면 왜 반밖에 저장이 안되나요?(2Byte때문?)
2. String으로 받으면 저장할때 완전히 깨어짐(WideString->String 으로 변환필요)
그런데 UniCode <-> AnsiCode 바꾸어 주어야 함
3. AnsiLowCase를 하면 왜 다 만들어 지죠?
4. 파일은 바로 저장이 되는데 브라우저에서 보여질때는 깨져나오나요?
5. 그리고 Pos라는 함수를 쓰면 문자열이 반드시 있는데. 찾지 못하죠?
6. 마지막에 binarywrite를 쓰면 바로 화면에 출력이되는데. 이 binary를
어떻게 String으로 변환을 하죠
넘 길었죠??? 한 2주간 이문제로 잠을 못 자고 있어요... 부탁드립니다
이번에 Active Server Component로 upload를 할려고 하는데..
문자열에 관해서 에러가 납니다.. 여러 고수님의 지도 부탁드립니다.
어려운 것은 아니라고 생각이 드는데.. 전 델파이 기초가 부족해서...
소스를 보시고 ..... 꼭 해답을 주세요.. 2주간 잠도 제대로 못 잠...
부탁드립니다
/////////////////////////////////////////////////////
(소스1)
Function XXXX
Var
UploadFile :WideString;
TotalByte : Olevariant;
Data : String;
fsFile : TFileStream
Begin
TotalByte : Request.TotalByte;
UploadFile : Request.BinaryRead(TotalByte);
// 위는 화일을 전송하는 것을 Uploadfile에 저자
**질문1: //아래와 같이 그대로 저장을 하면 절반밖에 들어가지 않아요
fsFile := TFileStream.Create(XXX)
try
tsFile.Write(PChar(UploadFile)^,Length(UploadFile));
finally
tsFile.free;
End;
Response.Write(UploadFile);
Response.BinaryWrite(UploadFile);
End
소스2)
Function XXXX
Var
UploadFile :WideString;
TotalByte : Olevariant;
Data : String;
fsFile : TFileStream
Begin
TotalByte : Request.TotalByte;
UploadFile : Request.BinaryRead(TotalByte);
// 위는 화일을 전송하는 것을 Uploadfile에 저자
Data := UploadFile+AnsiLowCase(UploadFile)
// 이런식으로하면.. 아래에서 화일에 전부저장이 됩니다..
*질문2 여기서 AnsiLowCase는 소문자로 바꾸어지는 것이 아닌가요?
그런데.... 왜 Upload 된 데이터가 다 만들어지죠?
fsFile := TFileStream.Create(XXX)
try
tsFile.Write(PChar(Data)^,Length(Data));
finally
tsFile.free;
End;
질문3 // 여기서 Response에서 Write를 하면 깨져나옵니다.(화일은 정상으로 저장)
Response.Write(UploadFile);
질문4 // 여기서 Response에서 BinaryWrite를 하면 아주 정상적으로 나옵니다.
Response.BinaryWrite(UploadFile);
End
마지막으로 정리하면
1. WideString으로 받으면 왜 반밖에 저장이 안되나요?(2Byte때문?)
2. String으로 받으면 저장할때 완전히 깨어짐(WideString->String 으로 변환필요)
그런데 UniCode <-> AnsiCode 바꾸어 주어야 함
3. AnsiLowCase를 하면 왜 다 만들어 지죠?
4. 파일은 바로 저장이 되는데 브라우저에서 보여질때는 깨져나오나요?
5. 그리고 Pos라는 함수를 쓰면 문자열이 반드시 있는데. 찾지 못하죠?
6. 마지막에 binarywrite를 쓰면 바로 화면에 출력이되는데. 이 binary를
어떻게 String으로 변환을 하죠
넘 길었죠??? 한 2주간 이문제로 잠을 못 자고 있어요... 부탁드립니다
1
COMMENTS
(NOTICE) You must be logged in to comment on this post.
-
- 최도석
- 1999.10.30 09:52
- 0 COMMENTS
- /
- 0 LIKES
-
- 최도석
- 1999.10.30 10:00
- 0 COMMENTS
- /
- 0 LIKES
-
- 임동욱
- 1999.10.30 05:29
- 0 COMMENTS
- /
- 0 LIKES
-
- 신 기종
- •
- 1999.10.30 04:27
- 4 COMMENTS
- /
- 0 LIKES
-
최도석•1999.10.30 10:05신 기종 wrote: > 퀵레포트에서 Grouping별로 레코드수를 summary 밴드에 > > 표시할려고 합니다. > ...
-
이재식•1999.10.30 19:23앞에 분이 좋은 방법을 가르쳐 주셨는데 저는 이 방법이 쉽겠네요. GroopFooter에서 QrExpression컴포넌...
-
이재식•1999.10.30 05:06신 기종 wrote: > 퀵레포트에서 Grouping별로 레코드수를 summary 밴드에 > > 표시할려고 합니다. > ...
-
신 기종•1999.10.30 05:15감사합니다.. 이재식님 좋은 하루 되세요..
-
- termy
- •
- 1999.10.30 04:26
- 2 COMMENTS
- /
- 0 LIKES
-
김영대•1999.10.30 18:51termy wrote: > 리스트뷰에 openpicturedialog에서 선택된(여러개) 화일을 > 리스트뷰에 멀티라인으로 넣...
-
termy•1999.10.31 04:27> procedure TForm1.Button1Click(Sender: TObject); > var > I: integer; > F: TextFile; > Fir...
-
- 화랑
- •
- •
- 1999.10.30 02:01
- 1 COMMENTS
- /
- 1 LIKES
안녕하세요.. 부산의 화랑입니다.. 이번에 Active Server Component로 upload를 할려고 하는데.. 문자열에 관해서 에러가 납니다.. 여러 고수님의 지도 부탁드립니다. 어려운 것은 아니라고 생각이 드는데.. 전 델파이 기초가 부족해서......-
디밥•1999.11.02 20:12화랑 wrote: > 안녕하세요.. 부산의 화랑입니다.. > > 이번에 Active Server Component로 upload를 할...
-
- 정계훈
- •
- 1999.10.30 01:29
- 1 COMMENTS
- /
- 0 LIKES
-
김영대•1999.10.30 18:37정계훈 wrote: > 안녕하세요... > > 제목 그대로 ShowMessage의 폰트 크기가 너무 작아서 조금 크게 하...
-
- 철
- •
- 1999.10.30 01:25
- 1 COMMENTS
- /
- 0 LIKES
-
정계훈•1999.10.30 01:38철 wrote: > 퀵레포트를 출력할때 한장에 세로로 두줄로 출력 할수 있나요.? > 그러니까.. > > 번호 ...
-
-
이재식•1999.10.30 04:40얼라 wrote: > 안녕하세염... 질문이 자꾸 생기네염... > 음.. 질문에 답변해주신 이재식님 감사드려염.^...
-
-
- 최석기
- 1999.10.30 00:21
- 0 COMMENTS
- /
- 0 LIKES
-
- 김은정
- •
- 1999.10.30 00:12
- 1 COMMENTS
- /
- 0 LIKES
-
김영대•1999.10.30 00:24김은정 wrote: > 안녕하세요. > 저는 임으로 .BAT화일을 실행 시키는 프로그램을 짰는데.. > 일정시간마...
-
- 정인복
- •
- 1999.10.30 00:07
- 1 COMMENTS
- /
- 0 LIKES
-
김영대•1999.10.30 00:31정인복 wrote: > 안녕하세여 .. > 델파이 응용프로그램에서 unix server (digital)에 있는 > C로 작성...
-
- 이두진
- 1999.10.29 23:46
- 0 COMMENTS
- /
- 0 LIKES
-
- 임동수
- •
- 1999.10.29 23:02
- 1 COMMENTS
- /
- 0 LIKES
-
이주흥•1999.10.30 21:54임동수 wrote: > 안녕하세요. > > 툴바의 버튼에서 그림과 글자를 동시에 나타내는 방법을 알고 싶습니...
-
- 박창대
- 1999.10.29 22:55
- 0 COMMENTS
- /
- 0 LIKES
-
- 남윤혁
- •
- 1999.10.29 22:43
- 1 COMMENTS
- /
- 0 LIKES
-
김영대•1999.10.30 01:14남윤혁 wrote: > 원하는 것은 최대 상태의 윈도우에서 > 오른쪽 상단의 보통 사이즈로 바꾸는 버튼을 누...
-
- cjw
- 1999.10.29 20:34
- 0 COMMENTS
- /
- 0 LIKES
-
- 이용호
- 1999.10.29 19:43
- 0 COMMENTS
- /
- 0 LIKES
-
- 문상무
- 1999.10.29 19:14
- 0 COMMENTS
- /
- 0 LIKES
-
- sun
- •
- 1999.10.29 18:25
- 1 COMMENTS
- /
- 0 LIKES
-
김장섭•1999.10.29 18:43sun wrote: > 요즘 질문을 많이 하는군요. > DBGrid에 나온 DATA들이 있는데.. 수량이랑 비용이 나옵니다...
> 안녕하세요.. 부산의 화랑입니다..
>
> 이번에 Active Server Component로 upload를 할려고 하는데..
>
> 문자열에 관해서 에러가 납니다.. 여러 고수님의 지도 부탁드립니다.
>
> 어려운 것은 아니라고 생각이 드는데.. 전 델파이 기초가 부족해서...
>
> 소스를 보시고 ..... 꼭 해답을 주세요.. 2주간 잠도 제대로 못 잠...
>
> 부탁드립니다
>
> /////////////////////////////////////////////////////
> (소스1)
>
> Function XXXX
> Var
> UploadFile :WideString;
> TotalByte : Olevariant;
> Data : String;
> fsFile : TFileStream
> Begin
> TotalByte : Request.TotalByte;
> UploadFile : Request.BinaryRead(TotalByte);
> // 위는 화일을 전송하는 것을 Uploadfile에 저자
>
> **질문1: //아래와 같이 그대로 저장을 하면 절반밖에 들어가지 않아요
>
> fsFile := TFileStream.Create(XXX)
> try
> tsFile.Write(PChar(UploadFile)^,Length(UploadFile));
> finally
> tsFile.free;
> End;
>
> Response.Write(UploadFile);
> Response.BinaryWrite(UploadFile);
>
> End
>
>
> 소스2)
>
> Function XXXX
> Var
> UploadFile :WideString;
> TotalByte : Olevariant;
> Data : String;
> fsFile : TFileStream
> Begin
> TotalByte : Request.TotalByte;
> UploadFile : Request.BinaryRead(TotalByte);
> // 위는 화일을 전송하는 것을 Uploadfile에 저자
>
> Data := UploadFile+AnsiLowCase(UploadFile)
> // 이런식으로하면.. 아래에서 화일에 전부저장이 됩니다..
>
> *질문2 여기서 AnsiLowCase는 소문자로 바꾸어지는 것이 아닌가요?
> 그런데.... 왜 Upload 된 데이터가 다 만들어지죠?
>
> fsFile := TFileStream.Create(XXX)
> try
> tsFile.Write(PChar(Data)^,Length(Data));
> finally
> tsFile.free;
> End;
>
> 질문3 // 여기서 Response에서 Write를 하면 깨져나옵니다.(화일은 정상으로 저장)
>
> Response.Write(UploadFile);
>
> 질문4 // 여기서 Response에서 BinaryWrite를 하면 아주 정상적으로 나옵니다.
>
> Response.BinaryWrite(UploadFile);
>
> End
>
> 마지막으로 정리하면
> 1. WideString으로 받으면 왜 반밖에 저장이 안되나요?(2Byte때문?)
>
> 2. String으로 받으면 저장할때 완전히 깨어짐(WideString->String 으로 변환필요)
> 그런데 UniCode <-> AnsiCode 바꾸어 주어야 함
>
> 3. AnsiLowCase를 하면 왜 다 만들어 지죠?
>
> 4. 파일은 바로 저장이 되는데 브라우저에서 보여질때는 깨져나오나요?
>
> 5. 그리고 Pos라는 함수를 쓰면 문자열이 반드시 있는데. 찾지 못하죠?
>
> 6. 마지막에 binarywrite를 쓰면 바로 화면에 출력이되는데. 이 binary를
>
> 어떻게 String으로 변환을 하죠
>
> 넘 길었죠??? 한 2주간 이문제로 잠을 못 자고 있어요... 부탁드립니다
역쉬.... Pos등 String 때문에 고생하고 계실 줄 알았습니다....
BinaryRead로 읽어온것을 String으로 변환하면 무조건 안됩니다.
모든것은 PByteArray 형태로 만든후에 Pos를 쓰지마시고 CompareMem를 사용하여 메모리 상에서 BYTE값을 가지고 비교해야 합니다. (File 부분 만이라도)...
참고로 Delphi의 TFileStream은 느리기 때문에 Win32API의 WriteFile을 사용하시길 바랍니다.