Q&A
- ASP UPLOAD 컴포넌트?(화랑님)
제가 화랑님이 주신 내용을 보고
제가 뽑아낼려는 bite배열에 시작번지값과 마지막 번지값을 알아냈습니다.
그래서
포인터를 그 시작 번지와 마지막 번지사이를 움직여 가며 값을 얻어
올려구 하는데.
binary 형을 bitearrary에 집어넣어놔도 결국은 받아낼때는
string에 집어넣어서 리턴을 해주어야 하는데..
아래 함수는
binary형데이타를 pbitearray에 집어넣고 bite단위로 원하는 문자를 검색해서
원하는 문자의 시작 포인터(배열번지) 을 알아내고 마지막포인터(배열번지)을 알아
내서 그갑을 가지고 루프를 돌면서 그값을 string형에 넣는 것인데 ..
뭐가 잘못 된건가요..
function TFileUpLoad.GetValueByName(InputName: OleVariant): OleVariant;
var
buf : pointer;
bCheck,sCheck : Boolean;
i,j,k,s : integer;
VInputName: String;
first : integer;
second : integer;
BaseString : String;
// lastchr: array of char;
begin
bCheck := False;
sCheck := False;
buf := Pchar(gpDataArray);
VInputName:=InputName;
first:=0;
second:=0;
for i:=0 to (fTotalBytes-2) do
Begin
bCheck := CompareMem(buf,pChar(VInputName),Length(VInputName));
if bCheck then
begin
for k:=i to (fTotalBytes-2) do
begin
sCheck:=CompareMem(buf,pChar(#13#10#13#10),Length(#13#10#13#10));
if sCheck then
begin
first:=integer(buf)+2;
Break;
end
else
inc(integer(buf));
end;//for
for j:=k to (fTotalBytes-1) do
begin
sCheck:=CompareMem(buf,pChar(VarToStr(FBoundary)),Length(FBoundary));
if sCheck then
begin
second :=integer(buf)-2;
Break;
end
else
inc(integer(buf));
end;//for
Break;
end
Else
inc(integer(buf));
End;// for
i:=0;
if first<>0 then
begin
integer(buf):=first;
For s:=first to second do
begin
if integer(buf)=second then
Exit;
BaseString[i]:=char(buf);
Inc(integer(buf));
i:=i+1;
end;
end;
Result:=BaseString;
end;
이런식으로 basestrig이라는 곳에 담아서 리턴을 하는
코드 build하는데는 문제가 없는데..
막상 asp에서 이함수를 호출하면 치명적 오류가 생긴다고 나오네요..
제가 코드상에 뭐가 잘못
제가 뽑아낼려는 bite배열에 시작번지값과 마지막 번지값을 알아냈습니다.
그래서
포인터를 그 시작 번지와 마지막 번지사이를 움직여 가며 값을 얻어
올려구 하는데.
binary 형을 bitearrary에 집어넣어놔도 결국은 받아낼때는
string에 집어넣어서 리턴을 해주어야 하는데..
아래 함수는
binary형데이타를 pbitearray에 집어넣고 bite단위로 원하는 문자를 검색해서
원하는 문자의 시작 포인터(배열번지) 을 알아내고 마지막포인터(배열번지)을 알아
내서 그갑을 가지고 루프를 돌면서 그값을 string형에 넣는 것인데 ..
뭐가 잘못 된건가요..
function TFileUpLoad.GetValueByName(InputName: OleVariant): OleVariant;
var
buf : pointer;
bCheck,sCheck : Boolean;
i,j,k,s : integer;
VInputName: String;
first : integer;
second : integer;
BaseString : String;
// lastchr: array of char;
begin
bCheck := False;
sCheck := False;
buf := Pchar(gpDataArray);
VInputName:=InputName;
first:=0;
second:=0;
for i:=0 to (fTotalBytes-2) do
Begin
bCheck := CompareMem(buf,pChar(VInputName),Length(VInputName));
if bCheck then
begin
for k:=i to (fTotalBytes-2) do
begin
sCheck:=CompareMem(buf,pChar(#13#10#13#10),Length(#13#10#13#10));
if sCheck then
begin
first:=integer(buf)+2;
Break;
end
else
inc(integer(buf));
end;//for
for j:=k to (fTotalBytes-1) do
begin
sCheck:=CompareMem(buf,pChar(VarToStr(FBoundary)),Length(FBoundary));
if sCheck then
begin
second :=integer(buf)-2;
Break;
end
else
inc(integer(buf));
end;//for
Break;
end
Else
inc(integer(buf));
End;// for
i:=0;
if first<>0 then
begin
integer(buf):=first;
For s:=first to second do
begin
if integer(buf)=second then
Exit;
BaseString[i]:=char(buf);
Inc(integer(buf));
i:=i+1;
end;
end;
Result:=BaseString;
end;
이런식으로 basestrig이라는 곳에 담아서 리턴을 하는
코드 build하는데는 문제가 없는데..
막상 asp에서 이함수를 호출하면 치명적 오류가 생긴다고 나오네요..
제가 코드상에 뭐가 잘못
1
COMMENTS
(NOTICE) You must be logged in to comment on this post.
-
- 초보 DEL 100
- •
- 2000.06.10 02:47
- 2 COMMENTS
- /
- 0 LIKES
-
조규춘•2000.06.10 10:52초보 DEL 100 wrote: > * 팝업 메뉴를 만들었슴다... > 근데 애를 버튼을 눌러서 팝업되게 하고 싶었슴... -
초보 DEL 100•2000.06.16 01:29조규춘 wrote: > 초보 DEL 100 wrote: > > * 팝업 메뉴를 만들었슴다... > > 근데 애를 버튼을 눌러서...
-
- 어린왕자
- 2000.06.10 02:41
- 0 COMMENTS
- /
- 0 LIKES
-
- 류승훈
- 2000.06.10 02:10
- 0 COMMENTS
- /
- 0 LIKES
-
- 미치것다.
- •
- 2000.06.10 01:55
- 1 COMMENTS
- /
- 0 LIKES
-
김상호•2000.06.10 04:59미치것다. wrote: > 테이블에 필터 가한후.... > > 테이블 인서트나 포스트 가 안됩니다.. > > filt...
-
- 사발우성
- •
- 2000.06.10 01:39
- 1 COMMENTS
- /
- 0 LIKES
-
까마귀•2000.06.10 02:59사발우성 wrote: > 에러의 원인이 몰까요.....??? 에러의 원인이 궁금하기만 한 사발이가....^^ > wit...
-
- 엄정화
- 2000.06.10 01:27
- 0 COMMENTS
- /
- 0 LIKES
-
- 최영구
- 2000.06.10 01:09
- 0 COMMENTS
- /
- 0 LIKES
-
- 사발우성
- •
- 2000.06.10 00:33
- 2 COMMENTS
- /
- 0 LIKES
-
ACCESS•2000.06.10 21:17사발우성 wrote: > > > 버튼을 숏컷으로 지정할수 있나엽.... > > > 이상 황당한 질문...
-
까마귀•2000.06.10 02:53사발우성 wrote: > > > 버튼을 숏컷으로 지정할수 있나엽.... > > > 이상 황당한 질문...
-
- 왕초보
- •
- 2000.06.10 00:16
- 3 COMMENTS
- /
- 0 LIKES
-
사발우성•2000.06.10 01:46캬캬캬... 제가 해결 할 수 있는 문제군엽....^^ 음 먼저 Q/A 에서 찾아 보시와엽 제가 어제가 올린듯 ...
-
갱민이•2000.06.10 00:39왕초보 wrote: > 먼저.. > 두개의 질문이 있습니다. > > 첫째, > > 두개의 콤보박스와 쿼리를 이용...
-
왕초보•2000.06.10 01:00> > 먼저.. > > 두개의 질문이 있습니다. > > > > 첫째, > > > > 두개의 콤보박스와 쿼리를 이용...
-
- 이병윤
- •
- 2000.06.09 23:57
- 1 COMMENTS
- /
- 0 LIKES
-
타락천사•2000.06.10 00:41안녕하세여.. 타락임다..^^ 바쁜데 짬 내서 왔음다..^^;; 흠.. 거기서두 안되면 방법이 없음다... ...
-
- 이곤섭
- •
- •
- 2000.06.09 23:18
- 1 COMMENTS
- /
- 1 LIKES
제가 화랑님이 주신 내용을 보고 제가 뽑아낼려는 bite배열에 시작번지값과 마지막 번지값을 알아냈습니다. 그래서 포인터를 그 시작 번지와 마지막 번지사이를 움직여 가며 값을 얻어 올려구 하는데. binary 형을 bitearrary에 집어넣어...-
화랑•2000.06.13 01:26제가 말씀드릴데로.. 일단 처음과 끝 포인트를 아셨다면.. Copymemory를 쓰시면 간단히 가져오는데요.. ...
-
- 양동욱
- •
- 2000.06.09 23:12
- 1 COMMENTS
- /
- 0 LIKES
-
하얀까마귀•2000.06.09 23:26안녕하세요 하얀까마귀 입니다. 음.. 이상한 문자라.. 아마도 인식못하는 콤포넌트를 써서 그런거 아닌...
-
- 왕초보
- •
- 2000.06.09 23:08
- 2 COMMENTS
- /
- 0 LIKES
-
사발우성•2000.06.10 02:15흠냐....저하고 같은 상태에 처하신 분 같군엽....ㅠ.ㅠ 음 제질문을 보심 이하가 될듯....^^((맨위에 소...
-
사발우성•2000.06.10 02:21with query1 do begin close; sql.clear; sql.add('select 회원,구매상품 from 테이블명');...
-
- 최용일
- •
- 2000.06.09 22:51
- 1 COMMENTS
- /
- 0 LIKES
-
타락천사•2000.06.09 23:17안녕하세여.. 타락임다..^^ 감사합니다.. IDR_STOP_WAVE 는 MFC에서 정의한 상수입니다.. 그건 MFC ...
-
- 김진호
- •
- 2000.06.09 22:43
- 1 COMMENTS
- /
- 0 LIKES
-
하얀까마귀•2000.06.09 22:54안녕하세요 하얀까마귀 입니다.. SelStart를 이용하시면 되겠네요.. 이게 커서의 위치 값입니다... ...
-
- 이병윤
- •
- 2000.06.09 21:49
- 1 COMMENTS
- /
- 0 LIKES
-
타락천사•2000.06.09 22:30안녕하세여..타락임다..^^ Form.CloseQuery 에서 하세여.. 왕초보 타락천사..^_____^ 이병윤 wrot...
-
- 봉길천
- 2000.06.09 21:32
- 0 COMMENTS
- /
- 0 LIKES
-
- 델초보
- 2000.06.09 23:19
- 0 COMMENTS
- /
- 0 LIKES
-
- 조현일
- 2000.06.09 21:08
- 0 COMMENTS
- /
- 0 LIKES
-
- 어린왕자
- •
- 2000.06.09 21:05
- 1 COMMENTS
- /
- 0 LIKES
-
하얀까마귀•2000.06.09 22:46어떤 세미나를 말씀하시는지 잘 모르겠는데... 인프라이즈에서 10일날 한다고 들은것 같습니다.. 음....
Copymemory를 쓰시면 간단히 가져오는데요..
CopyMemory는 API입니다.
VOID CopyMemory (
PVOID Destination, // address of copy destination
CONST VOID *Source, // address of block to copy
DWORD Length // size, in bytes, of block to copy
);
3개의 인자가 있는데.. 처음의 Destination이 저장할 공간입니다..
이것을 보면 address라고 되어 있지요.. 그러니깐 포인터로 저장을 하셔야 합니다.
*Source부분은 Copy할 포인터 Length는 당연 길이가 되겠죠..
님께서 사용하신 코드를 보면 integer에서 다시 char로 변환하는등의 루틴이 보이는데
제가 보기에는 좀 어렵네요.. 그렇게 루프를 돌리시면.. 속도도 느려지니깐
포인터를 사용해서.. Copy 하시기 바랍니다.
이곤섭 wrote:
> 제가 화랑님이 주신 내용을 보고
> 제가 뽑아낼려는 bite배열에 시작번지값과 마지막 번지값을 알아냈습니다.
> 그래서
> 포인터를 그 시작 번지와 마지막 번지사이를 움직여 가며 값을 얻어
> 올려구 하는데.
> binary 형을 bitearrary에 집어넣어놔도 결국은 받아낼때는
> string에 집어넣어서 리턴을 해주어야 하는데..
> 아래 함수는
> binary형데이타를 pbitearray에 집어넣고 bite단위로 원하는 문자를 검색해서
> 원하는 문자의 시작 포인터(배열번지) 을 알아내고 마지막포인터(배열번지)을 알아
> 내서 그갑을 가지고 루프를 돌면서 그값을 string형에 넣는 것인데 ..
> 뭐가 잘못 된건가요..
>
> function TFileUpLoad.GetValueByName(InputName: OleVariant): OleVariant;
> var
> buf : pointer;
> bCheck,sCheck : Boolean;
> i,j,k,s : integer;
> VInputName: String;
> first : integer;
> second : integer;
> BaseString : String;
> // lastchr: array of char;
> begin
> bCheck := False;
> sCheck := False;
> buf := Pchar(gpDataArray);
> VInputName:=InputName;
> first:=0;
> second:=0;
>
> for i:=0 to (fTotalBytes-2) do
> Begin
> bCheck := CompareMem(buf,pChar(VInputName),Length(VInputName));
> if bCheck then
> begin
>
> for k:=i to (fTotalBytes-2) do
> begin
> sCheck:=CompareMem(buf,pChar(#13#10#13#10),Length(#13#10#13#10));
> if sCheck then
> begin
> first:=integer(buf)+2;
> Break;
> end
> else
> inc(integer(buf));
> end;//for
> for j:=k to (fTotalBytes-1) do
> begin
> sCheck:=CompareMem(buf,pChar(VarToStr(FBoundary)),Length(FBoundary));
> if sCheck then
> begin
> second :=integer(buf)-2;
> Break;
> end
> else
> inc(integer(buf));
> end;//for
>
> Break;
> end
> Else
> inc(integer(buf));
> End;// for
>
> i:=0;
>
> if first<>0 then
> begin
> integer(buf):=first;
> For s:=first to second do
> begin
> if integer(buf)=second then
> Exit;
>
> BaseString[i]:=char(buf);
> Inc(integer(buf));
> i:=i+1;
> end;
> end;
>
> Result:=BaseString;
> end;
>
> 이런식으로 basestrig이라는 곳에 담아서 리턴을 하는
> 코드 build하는데는 문제가 없는데..
> 막상 asp에서 이함수를 호출하면 치명적 오류가 생긴다고 나오네요..
> 제가 코드상에 뭐가 잘못