한국 델파이 개발자 모임 - 동적으로 생성한 Null을 포함한 문자열 처리

동적으로 생성한 Null을 포함한 문자열 처리

다음의 내용은

처음 10자리를 문자열로 쓰고

다음 4자리를 Integer

다음 8자리를 Double이 사용하는 문자열을 만들어

다른곳에 넘기는 프로그램입니다.

일단은 파일에 쓰는 예제로 만들었습니다.

그런데 동적으로 생성한 메모리는 파일에 다른값을 쓰네요.

디버그모드로 확인하면 제대로 들어가 있는데 파일엔 엉뚱한 값이 들어있네요.

//=======================================================

procedure AAA;

//=======================================================

var x, nPos, FileHandle : Integer;

sText : String;

nData : Integer; fData : Double;

Buff : PChar;

begin

FileHandle := FileCreate('C:jhj.log'); // log

GetMem(Buff,30);

FillMemory(Buff,30,0);

nPos := 0;

sText := '12345';

x := Length(sText);

CopyMemory(Buff + nPos,PChar(sText),x);

nPos := nPos + 10;

nData := 1;

x := 4;

CopyMemory(Buff + nPos,@nData,x);

nPos := nPos + x;

fData := 1.1;

x := 8;

CopyMemory(Buff + nPos,@fData,x);

nPos := nPos + x;

FileWrite(FileHandle,Buff,nPos); // log

FreeMem(Buff);

FileClose(FileHandle); // log

end;

//=======================================================

procedure BBB;

//=======================================================

var x, nPos, FileHandle : Integer;

sText : String;

nData : Integer; fData : Double;

aBuff : array [0..255] of Char;

begin

FileHandle := FileCreate('C:jhj.log'); // log

FillChar(aBuff,255,0);

nPos := 0;

sText := '12345';

x := Length(sText);

CopyMemory(aBuff + nPos,PChar(sText),x);

nPos := nPos + 10;

nData := 1;

x := 4;

CopyMemory(aBuff + nPos,@nData,x);

nPos := nPos + x;

fData := 1.1;

x := 8;

CopyMemory(aBuff + nPos,@fData,x);

nPos := nPos + x;

FileWrite(FileHandle,aBuff,nPos); // log

FileClose(FileHandle); // log

end;

AAA와 BBB의 결과가 다릅니다.

AAA가 이상하게 나옵니다.

BBB처럼 하면 동적으로 크기를 잡을 수 없기 때문에 안되고요.

좋은 해결책이 있을것 같은데...

이 게시물을

1 COMMENTS

정형준 • 2001.06.13 20:22

정형준 wrote:

> 다음의 내용은

>

> 처음 10자리를 문자열로 쓰고

> 다음 4자리를 Integer

> 다음 8자리를 Double이 사용하는 문자열을 만들어

> 다른곳에 넘기는 프로그램입니다.

>

> 일단은 파일에 쓰는 예제로 만들었습니다.

> 그런데 동적으로 생성한 메모리는 파일에 다른값을 쓰네요.

> 디버그모드로 확인하면 제대로 들어가 있는데 파일엔 엉뚱한 값이 들어있네요.

>

> //=======================================================

> procedure AAA;

> //=======================================================

> var x, nPos, FileHandle : Integer;

> sText : String;

> nData : Integer; fData : Double;

> Buff : PChar;

> begin

> FileHandle := FileCreate('C:jhj.log'); // log

>

> GetMem(Buff,30);

> FillMemory(Buff,30,0);

>

> nPos := 0;

> sText := '12345';

> x := Length(sText);

> CopyMemory(Buff + nPos,PChar(sText),x);

>

> nPos := nPos + 10;

> nData := 1;

> x := 4;

> CopyMemory(Buff + nPos,@nData,x);

>

> nPos := nPos + x;

> fData := 1.1;

> x := 8;

> CopyMemory(Buff + nPos,@fData,x);

>

> nPos := nPos + x;

> FileWrite(FileHandle,Buff,nPos); // log

> FreeMem(Buff);

> FileClose(FileHandle); // log

> end;

>

> //=======================================================

> procedure BBB;

> //=======================================================

> var x, nPos, FileHandle : Integer;

> sText : String;

> nData : Integer; fData : Double;

> aBuff : array [0..255] of Char;

> begin

> FileHandle := FileCreate('C:jhj.log'); // log

>

> FillChar(aBuff,255,0);

>

> nPos := 0;

> sText := '12345';

> x := Length(sText);

> CopyMemory(aBuff + nPos,PChar(sText),x);

>

> nPos := nPos + 10;

> nData := 1;

> x := 4;

> CopyMemory(aBuff + nPos,@nData,x);

>

> nPos := nPos + x;

> fData := 1.1;

> x := 8;

> CopyMemory(aBuff + nPos,@fData,x);

>

> nPos := nPos + x;

> FileWrite(FileHandle,aBuff,nPos); // log

> FileClose(FileHandle); // log

> end;

>

> AAA와 BBB의 결과가 다릅니다.

> AAA가 이상하게 나옵니다.

> BBB처럼 하면 동적으로 크기를 잡을 수 없기 때문에 안되고요.

> 좋은 해결책이 있을것 같은데...

>

>

맨 마지막 파일에 쓸때 Buff 대신 Buff[0]을 넘겨주면 됩니다.

혹은 Pointer(Buff)^를 넘겨줘도 된다는군요.

서용혁씨 고맙습니다.

//=======================================================

procedure AAA;

//=======================================================

var x, nPos, FileHandle : Integer;

sText : String;

nData : Integer; fData : Double;

Buff : PChar;

begin

FileHandle := FileCreate('C:jhj.log'); // log

GetMem(Buff,30);

FillMemory(Buff,30,0);

nPos := 0;

sText := '12345';

x := Length(sText);

CopyMemory(Buff + nPos,PChar(sText),x);

nPos := nPos + 10;

nData := 1;

x := 4;

CopyMemory(Buff + nPos,@nData,x);

nPos := nPos + x;

fData := 1.1;

x := 8;

CopyMemory(Buff + nPos,@fData,x);

nPos := nPos + x;

FileWrite(FileHandle,Buff[0],nPos); // log

FreeMem(Buff);

FileClose(FileHandle); // log

end;
- 0
- 0
- 삭제
- 수정
- 댓글

(NOTICE) You must be logged in to comment on this post.

- 정형준
- •
- 2001.06.13 18:46
- 1 COMMENTS
- /
- 0 LIKES
동적으로 생성한 Null을 포함한 문자열 처리

다음의 내용은 처음 10자리를 문자열로 쓰고 다음 4자리를 Integer 다음 8자리를 Double이 사용하는 문자열을 만들어 다른곳에 넘기는 프로그램입니다. 일단은 파일에 쓰는 예제로 만들었습니다. 그런데 동적으로 생성한 메모리는 파일에 ...
- 정형준
  
  •
  
  2001.06.13 20:22
  
  정형준 wrote: > 다음의 내용은 > > 처음 10자리를 문자열로 쓰고 > 다음 4자리를 Integer > ...
- peritus
- •
- 2001.06.13 19:42
- 1 COMMENTS
- /
- 0 LIKES
stream으로 파일전송시 파일명까지 보내는 방법?
- Ziker
  
  •
  
  2001.06.15 00:08
  
  Ziker입니다. 일단 프로토콜을 정의 하시는게 좋을것 같습니다. 가령 첫번재 패킷에는 파일이름, 파...
- isul
- •
- 2001.06.13 10:59
- 1 COMMENTS
- /
- 0 LIKES
dos.pas or dos.dcu 가지고 계신 분??
- 최용일
  
  •
  
  2001.06.13 14:12
  
  안녕하세요. 최용일입니다. 저기 혹시 그 소스가 델파이 소스가 아니라 파스칼 소스가 아닐까요? 델...
- 황정선
- 2001.06.13 10:13
- 0 COMMENTS
- /
- 0 LIKES
ADOQuery로 조인한 테이블의 수정 방법은?
- 왕초보
- •
- 2001.06.13 08:58
- 1 COMMENTS
- /
- 0 LIKES
★ 델파이로... CGI 가 가능해요?
- ^-_-^
  
  •
  
  2001.06.13 23:50
  
  yo` 안녕하세여!! 흠...CGI 는 용어일뿐입니다. 확장자가 .pl 이던.... .cgi 던 .py던 .exe간에 ...
- 왕초보
- 2001.06.13 08:51
- 0 COMMENTS
- /
- 0 LIKES
★ ISAPI 또는 ASP 컴포넌트 제작시 용량크기 조절법???
- 초짜
- 2001.06.13 07:10
- 0 COMMENTS
- /
- 0 LIKES
[급 질문]익스플로러의 history file삭제
- 올랭이
- 2001.06.13 07:06
- 0 COMMENTS
- /
- 0 LIKES
[소켓] 10061에러인데여.. 서버컴퓨터에서는 돼거든여..
- 김성주
- •
- 2001.06.13 06:18
- 1 COMMENTS
- /
- 0 LIKES
실수형 변수에서 비트연산 하는 방법
- 최용일
  
  •
  
  2001.06.13 14:40
  
  안녕하세요. 최용일입니다. 형변환해서 비트연산하세요... function ConvertWordToSingle(LoBits, Hi...
- 초보
- 2001.06.13 06:08
- 0 COMMENTS
- /
- 0 LIKES
파라독스7 디비에 jpg,gif이미지 넣기여....
- 초보맨
- 2001.06.13 04:06
- 0 COMMENTS
- /
- 0 LIKES
익스플로러 질문 입니다.
- 질문자
- •
- 2001.06.13 03:55
- 1 COMMENTS
- /
- 0 LIKES
fractal
- 최용일
  
  •
  
  2001.06.13 14:22
  
  안녕하세요. 최용일입니다. 캔버스에 직접 그리면 될텐데.... 아래 사이트 한번 구경해보세요... ...
- 아줌마
- •
- 2001.06.13 03:17
- 1 COMMENTS
- /
- 0 LIKES
그래픽에 대한 질문..고수님들 부탁...
- 최용일
  
  •
  
  2001.06.13 14:23
  
  안녕하세요. 최용일입니다. 그냥 캔버스의 MoveTo, LineTo메소드를 이용하시면 될거 같네요... ^^ 항...
- ^-_-^
- 2001.06.13 02:37
- 0 COMMENTS
- /
- 0 LIKES
쿼리한시간??
- 김현
- •
- 2001.06.13 02:27
- 3 COMMENTS
- /
- 0 LIKES
select문에서 error발생 해결해 주세요
- cell
  
  •
  
  2001.06.13 19:15
  
  김현 wrote: > select substring(field1 from 1 for 6) fl, sum(field2) npay from table1 > group by fl...
- 김현
  
  •
  
  2001.06.13 21:00
  
  capability not support라는 메세지가 나옵니다. 아마 이런 기능을 제공하지 않는거 같은데 내가 코딩한 ...
- cell
  
  •
  
  2001.06.13 21:11
  
  파라독스는 group by절에 substring이 지원되지 않는거 같네요...
- 왕초보
- •
- 2001.06.13 02:24
- 1 COMMENTS
- /
- 0 LIKES
진짜 부탁합니다..
- 이선경
  
  •
  
  2001.06.13 02:29
  
  select 문이 아닐경우에는(또는 어려운 말로 커서를 불러오지 않을경우에는) open이 아니라 execsql문을 ...
- 건
- •
- 2001.06.13 02:22
- 1 COMMENTS
- /
- 0 LIKES
툴버튼 메뉴와 연결 사용시 문제점
- 최용일
  
  •
  
  2001.06.13 14:27
  
  안녕하세요. 최용일입니다... IE에 있는 툴바처럼 구현하시면 될거 같은데요... IE의 "뒤로"나 "앞으로"...
- chobo
- •
- 2001.06.13 01:50
- 2 COMMENTS
- /
- 0 LIKES
alias의 경로 알아내기
- 김말동
  
  •
  
  2001.06.13 02:28
  
  SESSION 컴포넌트를 참고 하시면 될껍니다. 지금 pc방이라 더이상의 도움이 ㄷ안되네여.. 도움 되시길..
- chobo
  
  •
  
  2001.06.13 22:24
  
  김말동 wrote: > SESSION 컴포넌트를 참고 하시면 될껍니다. > 지금 pc방이라 더이상의 도움이 ㄷ안되네...
- 왕초보
- •
- 2001.06.13 01:48
- 1 COMMENTS
- /
- 0 LIKES
{긴급}왕초보 질문...
- loke
  
  •
  
  2001.06.13 06:00
  
  뭐가 문젠지??? 잘 모르겠지만... query 문을 발행할때... delete 문장을 쓰실려구 하는것 같은데... ...
- XXX
- •
- 2001.06.13 01:42
- 1 COMMENTS
- /
- 0 LIKES
Query1 : Field ' mast_item ' not found
- cell
  
  •
  
  2001.06.13 19:21
  
  XXX wrote: > [Query1 : Field ' mast_item ' not found]라는 에러가 발생합니다 > 그 이유좀 알카줘유....

정형준
2001/06/13 18:46
Views232

Likes0

Comments1

Reports0
Tag List
수정
삭제
목록으로

←First Page

1732 1733 1734 1735 1736 1737 1738 1739 1740 1741

Last Page→