한국 델파이 개발자 모임 - 버퍼에 저장하기[소스포함]

버퍼에 저장하기[소스포함]

안녕하세여..헤임달입니다..

text로입력받은 6개의 데이터를 버퍼에 저장할려고합니다..

여기서 4개는 한번 입력하면 20번째까지 똑같고 두가지만 1에서 20까지, A,B,C 이렇게 변하게됩니다..

그래서 한번 입력했을때 그 데이터들을 버퍼에 저장하는데여..

확인해보니까 이상한값들이 찍힙니다..

에러는 안나는데..어디가 어떻게 잘못된건지 모르겠네여..

흑흑..알려주세여..

procedure TForm1.Button1Click(Sender: TObject);

var

j, k:integer;

Buf1, buf2, buf3, buf4, buf5, buf6 : pChar;

BufSize1, bufsize2, bufsize3, bufsize4, bufsize5, bufsize6 : integer;

begin

k:=strtoint(edit3.text);

for j:=k to 20 do begin

BufSize1 := Edit1.GetTextLen;

Buf1 := AllocMem(BufSize1);

Edit1.GetTextBuf(Buf1, BufSize1);

FreeMem(Buf1, BufSize1);

BufSize2 := Edit2.GetTextLen;

Buf2 := AllocMem(BufSize2);

Edit2.GetTextBuf(Buf2, BufSize2);

FreeMem(Buf2, BufSize2);

BufSize3 := Edit3.GetTextLen;

buf3 := AllocMem(BufSize3);

Edit3.GetTextBuf(Buf3, BufSize3);

FreeMem(Buf3, BufSize3);

BufSize4 := combobox1.GetTextLen;

Buf4 := AllocMem(BufSize4);

combobox1.GetTextBuf(Buf4, BufSize4);

FreeMem(Buf4, BufSize4);

BufSize5 := combobox2.GetTextLen;

Buf5 := AllocMem(BufSize5);

combobox2.GetTextBuf(Buf5, BufSize5);

FreeMem(Buf5, BufSize5);

// 여기서 필요한 작업을 한다

case (j mod 3) of

1 : begin

BufSize6 := combobox3.GetTextLen;

Buf6 := AllocMem(BufSize6);

combobox3.GetTextBuf(Buf6, BufSize6);

FreeMem(Buf6, BufSize6);

end;

2 : begin

combobox3.text:='B';

BufSize6 := combobox3.GetTextLen;

Buf6 := AllocMem(BufSize6);

combobox3.GetTextBuf(Buf6, BufSize6);

FreeMem(Buf6, BufSize6);

end;

0 : begin

combobox3.text:='C';

BufSize6 := combobox3.GetTextLen;

Buf6 := AllocMem(BufSize6);

combobox3.GetTextBuf(Buf6, BufSize6);

FreeMem(Buf6, BufSize6);

end;

end;

memo1.Lines.Add(buf1);

memo1.Lines.Add(buf2);

memo1.Lines.Add(buf3);

memo1.Lines.Add(buf4);

memo1.Lines.Add(buf5);

memo1.Lines.Add(buf6);

end;

end;

이 게시물을

3 COMMENTS

최용일 • 2000.08.24 04:19

안녕하세요. 최용일입니다.

예를 들어보죠...

AllocMem // 파일을 연다...

Buf := 어떤값 // 파일에 쓴다.

FreeMem // 파일을 삭제한다.

변수 := Buf // 파일에서 읽어온다. 근데 파일이 어디갔지???

뭔 말인지 아시겠져?

^^ 항상 즐코하세요.

heimdal wrote:

> 안녕하세여..헤임달입니다..

> text로입력받은 6개의 데이터를 버퍼에 저장할려고합니다..

> 여기서 4개는 한번 입력하면 20번째까지 똑같고 두가지만 1에서 20까지, A,B,C 이렇게 변하게됩니다..

> 그래서 한번 입력했을때 그 데이터들을 버퍼에 저장하는데여..

> 확인해보니까 이상한값들이 찍힙니다..

> 에러는 안나는데..어디가 어떻게 잘못된건지 모르겠네여..

> 흑흑..알려주세여..

>

> procedure TForm1.Button1Click(Sender: TObject);

> var

> j, k:integer;

> Buf1, buf2, buf3, buf4, buf5, buf6 : pChar;

> BufSize1, bufsize2, bufsize3, bufsize4, bufsize5, bufsize6 : integer;

> begin

>

> k:=strtoint(edit3.text);

> for j:=k to 20 do begin

> BufSize1 := Edit1.GetTextLen;

> Buf1 := AllocMem(BufSize1);

> Edit1.GetTextBuf(Buf1, BufSize1);

> FreeMem(Buf1, BufSize1);

>

> BufSize2 := Edit2.GetTextLen;

> Buf2 := AllocMem(BufSize2);

> Edit2.GetTextBuf(Buf2, BufSize2);

> FreeMem(Buf2, BufSize2);

>

> BufSize3 := Edit3.GetTextLen;

> buf3 := AllocMem(BufSize3);

> Edit3.GetTextBuf(Buf3, BufSize3);

> FreeMem(Buf3, BufSize3);

>

> BufSize4 := combobox1.GetTextLen;

> Buf4 := AllocMem(BufSize4);

> combobox1.GetTextBuf(Buf4, BufSize4);

> FreeMem(Buf4, BufSize4);

>

> BufSize5 := combobox2.GetTextLen;

> Buf5 := AllocMem(BufSize5);

> combobox2.GetTextBuf(Buf5, BufSize5);

> FreeMem(Buf5, BufSize5);

>

> // 여기서 필요한 작업을 한다

>

> case (j mod 3) of

> 1 : begin

> BufSize6 := combobox3.GetTextLen;

> Buf6 := AllocMem(BufSize6);

> combobox3.GetTextBuf(Buf6, BufSize6);

> FreeMem(Buf6, BufSize6);

> end;

>

> 2 : begin

> combobox3.text:='B';

> BufSize6 := combobox3.GetTextLen;

> Buf6 := AllocMem(BufSize6);

> combobox3.GetTextBuf(Buf6, BufSize6);

> FreeMem(Buf6, BufSize6);

> end;

>

> 0 : begin

> combobox3.text:='C';

> BufSize6 := combobox3.GetTextLen;

> Buf6 := AllocMem(BufSize6);

> combobox3.GetTextBuf(Buf6, BufSize6);

> FreeMem(Buf6, BufSize6);

> end;

> end;

> memo1.Lines.Add(buf1);

> memo1.Lines.Add(buf2);

> memo1.Lines.Add(buf3);

> memo1.Lines.Add(buf4);

> memo1.Lines.Add(buf5);

> memo1.Lines.Add(buf6);

> end;

> end;
- 0
- 0
- 삭제
- 수정
- 댓글
heimdal • 2000.08.24 04:33

잘 모르겠는데여...

자세하게 설명해주시겠어여??

제가보기엔 문제없는것같은데..

최용일 wrote:

> 안녕하세요. 최용일입니다.

>

> 예를 들어보죠...

>

> AllocMem // 파일을 연다...

> Buf := 어떤값 // 파일에 쓴다.

> FreeMem // 파일을 삭제한다.

> 변수 := Buf // 파일에서 읽어온다. 근데 파일이 어디갔지???

>

> 뭔 말인지 아시겠져?

>

> ^^ 항상 즐코하세요.

>

> heimdal wrote:

> > 안녕하세여..헤임달입니다..

> > text로입력받은 6개의 데이터를 버퍼에 저장할려고합니다..

> > 여기서 4개는 한번 입력하면 20번째까지 똑같고 두가지만 1에서 20까지, A,B,C 이렇게 변하게됩니다..

> > 그래서 한번 입력했을때 그 데이터들을 버퍼에 저장하는데여..

> > 확인해보니까 이상한값들이 찍힙니다..

> > 에러는 안나는데..어디가 어떻게 잘못된건지 모르겠네여..

> > 흑흑..알려주세여..

> >

> > procedure TForm1.Button1Click(Sender: TObject);

> > var

> > j, k:integer;

> > Buf1, buf2, buf3, buf4, buf5, buf6 : pChar;

> > BufSize1, bufsize2, bufsize3, bufsize4, bufsize5, bufsize6 : integer;

> > begin

> >

> > k:=strtoint(edit3.text);

> > for j:=k to 20 do begin

> > BufSize1 := Edit1.GetTextLen;

> > Buf1 := AllocMem(BufSize1);

> > Edit1.GetTextBuf(Buf1, BufSize1);

> > FreeMem(Buf1, BufSize1);

> >

> > BufSize2 := Edit2.GetTextLen;

> > Buf2 := AllocMem(BufSize2);

> > Edit2.GetTextBuf(Buf2, BufSize2);

> > FreeMem(Buf2, BufSize2);

> >

> > BufSize3 := Edit3.GetTextLen;

> > buf3 := AllocMem(BufSize3);

> > Edit3.GetTextBuf(Buf3, BufSize3);

> > FreeMem(Buf3, BufSize3);

> >

> > BufSize4 := combobox1.GetTextLen;

> > Buf4 := AllocMem(BufSize4);

> > combobox1.GetTextBuf(Buf4, BufSize4);

> > FreeMem(Buf4, BufSize4);

> >

> > BufSize5 := combobox2.GetTextLen;

> > Buf5 := AllocMem(BufSize5);

> > combobox2.GetTextBuf(Buf5, BufSize5);

> > FreeMem(Buf5, BufSize5);

> >

> > // 여기서 필요한 작업을 한다

> >

> > case (j mod 3) of

> > 1 : begin

> > BufSize6 := combobox3.GetTextLen;

> > Buf6 := AllocMem(BufSize6);

> > combobox3.GetTextBuf(Buf6, BufSize6);

> > FreeMem(Buf6, BufSize6);

> > end;

> >

> > 2 : begin

> > combobox3.text:='B';

> > BufSize6 := combobox3.GetTextLen;

> > Buf6 := AllocMem(BufSize6);

> > combobox3.GetTextBuf(Buf6, BufSize6);

> > FreeMem(Buf6, BufSize6);

> > end;

> >

> > 0 : begin

> > combobox3.text:='C';

> > BufSize6 := combobox3.GetTextLen;

> > Buf6 := AllocMem(BufSize6);

> > combobox3.GetTextBuf(Buf6, BufSize6);

> > FreeMem(Buf6, BufSize6);

> > end;

> > end;

> > memo1.Lines.Add(buf1);

> > memo1.Lines.Add(buf2);

> > memo1.Lines.Add(buf3);

> > memo1.Lines.Add(buf4);

> > memo1.Lines.Add(buf5);

> > memo1.Lines.Add(buf6);

> > end;

> > end;
- 0
- 0
- 삭제
- 수정
- 댓글
최용일 • 2000.08.24 04:42

헐~

FreeMem을 해서 버퍼에 할당된 메모리를 제거하잖습니까? 그럼 그 버퍼에 들어있는

데이터들이 온전할까요? 예전 도스시절에야 프리해도 그 메모리영역에 대부분 데이터가

그대로 들어있었지만 윈도우같은 멀티태스킹시스템에서는 수없이 많은 메모리 스왑이

발생합니다. 그러므로 Free하면 그 메모리 영역에 어떤값이 들어가 있을지는 아무도

모르죠... 때문에 데이터를 억세스 하는동안에는 프리를 하면 안됩니다.

FreeMem구문은 버퍼를 다 사용한 뒤에 해주라는 말이었는데...

예를 들면

var

Bmp: TBitmap;

begin

Bmp := TBitmap.Create;

Bmp.LoadFromFile('c:mybmp.bmp');

Bmp.Free;

Bmp.SaveToFile('c:mybmp2.bmp');

// 여기에서 Bmp란 객체가 올바른 메모리영역(위에서 생성시킨 Bmp객체)을 가리킬까요?

end;

^^ 항상 즐코하세요.

heimdal wrote:

> 잘 모르겠는데여...

> 자세하게 설명해주시겠어여??

> 제가보기엔 문제없는것같은데..

>

>

> 최용일 wrote:

> > 안녕하세요. 최용일입니다.

> >

> > 예를 들어보죠...

> >

> > AllocMem // 파일을 연다...

> > Buf := 어떤값 // 파일에 쓴다.

> > FreeMem // 파일을 삭제한다.

> > 변수 := Buf // 파일에서 읽어온다. 근데 파일이 어디갔지???

> >

> > 뭔 말인지 아시겠져?

> >

> > ^^ 항상 즐코하세요.

> >

> > heimdal wrote:

> > > 안녕하세여..헤임달입니다..

> > > text로입력받은 6개의 데이터를 버퍼에 저장할려고합니다..

> > > 여기서 4개는 한번 입력하면 20번째까지 똑같고 두가지만 1에서 20까지, A,B,C 이렇게 변하게됩니다..

> > > 그래서 한번 입력했을때 그 데이터들을 버퍼에 저장하는데여..

> > > 확인해보니까 이상한값들이 찍힙니다..

> > > 에러는 안나는데..어디가 어떻게 잘못된건지 모르겠네여..

> > > 흑흑..알려주세여..

> > >

> > > procedure TForm1.Button1Click(Sender: TObject);

> > > var

> > > j, k:integer;

> > > Buf1, buf2, buf3, buf4, buf5, buf6 : pChar;

> > > BufSize1, bufsize2, bufsize3, bufsize4, bufsize5, bufsize6 : integer;

> > > begin

> > >

> > > k:=strtoint(edit3.text);

> > > for j:=k to 20 do begin

> > > BufSize1 := Edit1.GetTextLen;

> > > Buf1 := AllocMem(BufSize1);

> > > Edit1.GetTextBuf(Buf1, BufSize1);

> > > FreeMem(Buf1, BufSize1);

> > >

> > > BufSize2 := Edit2.GetTextLen;

> > > Buf2 := AllocMem(BufSize2);

> > > Edit2.GetTextBuf(Buf2, BufSize2);

> > > FreeMem(Buf2, BufSize2);

> > >

> > > BufSize3 := Edit3.GetTextLen;

> > > buf3 := AllocMem(BufSize3);

> > > Edit3.GetTextBuf(Buf3, BufSize3);

> > > FreeMem(Buf3, BufSize3);

> > >

> > > BufSize4 := combobox1.GetTextLen;

> > > Buf4 := AllocMem(BufSize4);

> > > combobox1.GetTextBuf(Buf4, BufSize4);

> > > FreeMem(Buf4, BufSize4);

> > >

> > > BufSize5 := combobox2.GetTextLen;

> > > Buf5 := AllocMem(BufSize5);

> > > combobox2.GetTextBuf(Buf5, BufSize5);

> > > FreeMem(Buf5, BufSize5);

> > >

> > > // 여기서 필요한 작업을 한다

> > >

> > > case (j mod 3) of

> > > 1 : begin

> > > BufSize6 := combobox3.GetTextLen;

> > > Buf6 := AllocMem(BufSize6);

> > > combobox3.GetTextBuf(Buf6, BufSize6);

> > > FreeMem(Buf6, BufSize6);

> > > end;

> > >

> > > 2 : begin

> > > combobox3.text:='B';

> > > BufSize6 := combobox3.GetTextLen;

> > > Buf6 := AllocMem(BufSize6);

> > > combobox3.GetTextBuf(Buf6, BufSize6);

> > > FreeMem(Buf6, BufSize6);

> > > end;

> > >

> > > 0 : begin

> > > combobox3.text:='C';

> > > BufSize6 := combobox3.GetTextLen;

> > > Buf6 := AllocMem(BufSize6);

> > > combobox3.GetTextBuf(Buf6, BufSize6);

> > > FreeMem(Buf6, BufSize6);

> > > end;

> > > end;

> > > memo1.Lines.Add(buf1);

> > > memo1.Lines.Add(buf2);

> > > memo1.Lines.Add(buf3);

> > > memo1.Lines.Add(buf4);

> > > memo1.Lines.Add(buf5);

> > > memo1.Lines.Add(buf6);

> > > end;

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

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

- 왕초보
- •
- 2000.08.24 04:23
- 3 COMMENTS
- /
- 0 LIKES
[잡담] 죄송죄송!~~~ 이은정님 보세여!~~ 꼭!~~
- 노을
  
  •
  
  2000.08.24 08:37
  
  안녕하세요 노 을 입니다. 님께서 이미 푸신 문제라고 하더라도, 삭제는 -.-.. [자답] 이라는 것이 ...
- 조규춘
  
  •
  
  2000.08.24 09:13
  
  .
- 조규춘
  
  •
  
  2000.08.24 04:55
  
  왕초보님.. 이은정님과 친해지고 싶으시면 델파이세상에 가입하셔용~! 이은정님은 초기멤버인데용...
- 김영애
- •
- 2000.08.24 04:21
- 2 COMMENTS
- /
- 0 LIKES
문자열에서 공백을 기준으로 두개로 나누고 싶어요...
- 최용일
  
  •
  
  2000.08.24 04:35
  
  안녕하세요. 최용일입니다. 먼저 알고리즘을 잘 생각해보세요. 함수사용법도 다시 한번 상기해보구요. ...
- 심동훈
  
  •
  
  2000.08.24 05:48
  
  김영애 wrote: > 궁금한게 있습니다.. > 좀 가르쳐 주세요~~~ > > 예를 들어)) 테이블에 "인텔 펜티엄...
- 양동욱
- •
- 2000.08.24 03:54
- 1 COMMENTS
- /
- 0 LIKES
Append 혼동에 대해서....
- 심동훈
  
  •
  
  2000.08.24 05:48
  
  양동욱 wrote: > 쿼리문 안에서, 파일을 오픈해서 쓰는 Append(F)라는 문을 실행하니깐 > 자꾸 "Too Many...
- heimdal
- •
- 2000.08.24 03:35
- 3 COMMENTS
- /
- 0 LIKES
버퍼에 저장하기[소스포함]

안녕하세여..헤임달입니다.. text로입력받은 6개의 데이터를 버퍼에 저장할려고합니다.. 여기서 4개는 한번 입력하면 20번째까지 똑같고 두가지만 1에서 20까지, A,B,C 이렇게 변하게됩니다.. 그래서 한번 입력했을때 그 데이터들을 버퍼...
- 최용일
  
  •
  
  2000.08.24 04:19
  
  안녕하세요. 최용일입니다. 예를 들어보죠... AllocMem // 파일을 연다... Buf := 어떤값 // 파일에...
- heimdal
  
  •
  
  2000.08.24 04:33
  
  잘 모르겠는데여... 자세하게 설명해주시겠어여?? 제가보기엔 문제없는것같은데.. 최용일 wrote: >...
- 최용일
  
  •
  
  2000.08.24 04:42
  
  헐~ FreeMem을 해서 버퍼에 할당된 메모리를 제거하잖습니까? 그럼 그 버퍼에 들어있는 데이터들이 ...
- 우정범
- •
- 2000.08.24 03:08
- 1 COMMENTS
- /
- 0 LIKES
Query 의 Params 를 FieldName 줄수 없나요 ?
- 성호종
  
  •
  
  2000.08.24 03:41
  
  우정범 wrote: 없습니다. FieldEditor에 올리지 않고는 가능합니다. query1.Close; Query1.sql.t...
- 한대필
- •
- 2000.08.24 05:17
- 1 COMMENTS
- /
- 0 LIKES
Memo의 MaxLength = 10 설정후 한글이 6자 이상 입력된후 에러 발생
- 조규춘
  
  •
  
  2000.08.24 08:13
  
  한대필 wrote: > 이상하네요. > 메모장의 MaxLength 를 10으로 설정했습니다. > 그랬더니 이럴수가 한글...
- 정연
- •
- 2000.08.24 02:12
- 2 COMMENTS
- /
- 0 LIKES
이런 문자열 자를땐 어떻게 해야 하나여?
- 최용일
  
  •
  
  2000.08.24 02:24
  
  안녕하세요. 최용일입니다. 아마도 하실려는일이 파일 이름만 바꿀려고 하는것 같은데 맞나요? var ...
- 정연
  
  •
  
  2000.08.24 02:48
  
  세상에 --+ 전 혼자 무슨 짓을 한걸까요? 일명 삽질 --; 정말 무식이 죕니다 죄라~ 몇줄이 단 ...
- 박재영
- 2000.08.24 02:13
- 0 COMMENTS
- /
- 0 LIKES
오라클의 db를 쿼리 이용하여 스트링그리드로 뿌리는 방법을.....
- 한미르
- 2000.08.24 02:26
- 0 COMMENTS
- /
- 0 LIKES
Access DB에서 image에 널값허용하는 코드는?마니 도와주세여
- Clock
- 2000.08.24 01:11
- 0 COMMENTS
- /
- 0 LIKES
프로그램 자동 패치??
- 소건영
- 2000.08.24 01:07
- 0 COMMENTS
- /
- 0 LIKES
dat 파일변환에 관하여...
- 서일식
- 2000.08.24 01:02
- 0 COMMENTS
- /
- 0 LIKES
CDRW를 제어할 수 있는 함수를 알고 있나요?
- 박재영
- •
- 2000.08.24 01:03
- 1 COMMENTS
- /
- 0 LIKES
DB의 내용을 스트링그리드에 뿌리는 방법 좀 알려주세요.
- 지나가는이
  
  •
  
  2000.08.24 01:45
  
  박재영 wrote: > 제가 정말 왕초보입니다.... > 근데 급하거든요....도와주세요.... > > db(items.db-...
- 최용일
- •
- 2000.08.24 04:54
- 3 COMMENTS
- /
- 0 LIKES
Re: 하나의 Image 컴포넌트에 여러개의 이미지들을 나열하는 방법은?
- 유상
  
  •
  
  2000.08.24 04:55
  
  에러가 나요... Bitmap.LoadFromFile(...1st image file...); ()안의 image는 파일 경로를 말한는건가요....
- 최용일
  
  •
  
  2000.08.24 04:55
  
  안녕하세요. 최용일입니다. 흠~ Bitmap := Bitmap.Create; // 에러가 나요... > Bitmap.LoadFromFi...
- 최용일
  
  •
  
  2000.08.24 04:56
  
  네~ 아래와 같이 하시면 되겠네요. for문으로 리스트박스의 아이템숫자만큼 돌리시면 되겟네여. TBitmap...
- 왕초보
- •
- 2000.08.24 05:28
- 1 COMMENTS
- /
- 0 LIKES
[재질문] 마우스로 폼을 누르면 폼에 이미지를 띄우는 겁니다.
- 이은정
  
  •
  
  2000.08.24 05:28
  
  왕초보 wrote: > 이은정님 답변은 감사합니다.!~~~ 꾸벅!~~~` > > 그런데 폼을 두번 클릭하면 이미 폼...
- 김하늘
- 2000.08.24 00:27
- 0 COMMENTS
- /
- 0 LIKES
Re: [재질문] dbgrid에서 data
- 4master
- 2000.08.24 00:14
- 0 COMMENTS
- /
- 0 LIKES
안녕하세요(급) 파라독스 디비에서...(SQL)
- 정연
- •
- 2000.08.23 23:51
- 2 COMMENTS
- /
- 0 LIKES
delay에 관한 질문입니다..
- 김하늘
  
  •
  
  2000.08.24 00:55
  
  정연 wrote: > 딜레이가 실행되고 있는 중간에 > > delay를 해제시킬순 없나요? 딜레이가 아니라 Sl...
- 정연
  
  •
  
  2000.08.24 04:17
  
  김하늘 wrote: > 정연 wrote: > > 딜레이가 실행되고 있는 중간에 > > > > delay를 해제시킬순 없나요...
- 델피언
- 2000.08.23 23:50
- 0 COMMENTS
- /
- 0 LIKES
Socket Error 10055 api connect
- 고양군
- •
- 2000.08.23 23:30
- 3 COMMENTS
- /
- 0 LIKES
서버의 문서화일 클라이언트에서 열어보기..
- 최용일
  
  •
  
  2000.08.24 03:04
  
  안녕하세요. 최용일입니다. FTP같은 프로토콜을 이용해서 클라이언트로 다운받은 다음에 읽어오면 될것 ...
- 고양군
  
  •
  
  2000.08.24 03:17
  
  문형록입니다. 안녕하세요!! 근데 ftp로 화일을 전송받아서 그 내용을 열어보고 수정하고 다시 ftp로 전...
- 최용일
  
  •
  
  2000.08.24 03:28
  
  FTP든 HTTP든 서버의 파일을 받아야 볼 수 있죠... 고양군 wrote: > 문형록입니다. > 안녕하세요!! ...

heimdal
2000/08/24 03:35
Views325

Likes0

Comments3

Reports0
Tag List
수정
삭제
목록으로

←First Page

2286 2287 2288 2289 2290 2291 2292 2293 2294 2295

Last Page→