Q&A
- [re] [질문]DFM화일로 폼만들기
답변감사합니다...
그런데..."OBJECT exceted on line 1" 에러 메세지가 뜨네요.
기존 DFM갖고 폼을 만들고 있는데..델파이에서 가능하가요?...
어렵네요..
>폼을 stream을 사용하여 TEXT로 저장을했읍니다..
>저장한 TEXT파일로 폼을 다시 만들 수 없나?...
>readcomponent를 사용하였으나 에러만 나고 안되네요?
>[저장]
><!--CodeS-->
>var
> Stream2: TFileStream;
> Stream1: TMemoryStream;
> mFile : string;
>begin
> try
> Stream1 := TMemoryStream.Create;
> mFile := ChangeFileExt(ExtractFilePath(ParamStr(0))+'map\test', '.dat');
> Stream2 := TFileStream.Create(mFile,fmCreate);
> try
> Stream1.WriteComponent(Application.MainForm.ActiveMDIChild);
> Stream1.position := 0;
> ObjectBinaryToText(Stream1, Stream2);
> finally
> Stream1.Free;
> Stream2.Free;
> end;
> except
> on e : Exception do showmessage(e.Message);
> end;
>end;
><!--CodeE-->
그런데..."OBJECT exceted on line 1" 에러 메세지가 뜨네요.
기존 DFM갖고 폼을 만들고 있는데..델파이에서 가능하가요?...
어렵네요..
>폼을 stream을 사용하여 TEXT로 저장을했읍니다..
>저장한 TEXT파일로 폼을 다시 만들 수 없나?...
>readcomponent를 사용하였으나 에러만 나고 안되네요?
>[저장]
><!--CodeS-->
>var
> Stream2: TFileStream;
> Stream1: TMemoryStream;
> mFile : string;
>begin
> try
> Stream1 := TMemoryStream.Create;
> mFile := ChangeFileExt(ExtractFilePath(ParamStr(0))+'map\test', '.dat');
> Stream2 := TFileStream.Create(mFile,fmCreate);
> try
> Stream1.WriteComponent(Application.MainForm.ActiveMDIChild);
> Stream1.position := 0;
> ObjectBinaryToText(Stream1, Stream2);
> finally
> Stream1.Free;
> Stream2.Free;
> end;
> except
> on e : Exception do showmessage(e.Message);
> end;
>end;
><!--CodeE-->
2
COMMENTS
-
-
WriteComponent 로 저장한 정보를
ReadComponent 로 읽어올수는 있습니다만..
몇가지 문제가 생기네요...
첫번째 주의할점
ReadComponent할때 Component를 새로 생성합니다.
그런데 Form에 이미 같은 이름의 Component가 있으면 안됩니다.
Component 상태만 저장하고 읽어오는 것이 아니라 ReadComponent에서 파일의 내용대로 새로 객체를 생성하려고 하죠
그러므로 반드시 폼위에 아무 Component가 없는 빈폼이어야 할것입니다.
그리고 두번째
A폼의 정보를 WriteComponent 로 저장하고
그 정보를 그대로 B폼 (폼위에 아무 컨트롤도 없는 폼)에서 ReadComponent 하니 class가 등록되지 않았다고 그러네요..
그래서 하나하나 RegisterClass로 등록해 줬습니다.
또 세번째 주의할점은
저장할때 폼위의 Compoment에 Event가 걸려있는게 있었다면
똑같은 이름의 이벤트 핸들러 함수가 해당 Form에도 있어야 한다는 것입니다.
--------------------------------------------------------------------------------------------------------------------------------------------
이 기능은 동적으로 폼을 디자인할때 유용할듯 하네요
* 빈 폼 class를 만들고 필요한 event나 property함수를 만든다음에
* 폼에 Compoent나 Control을 올려서 디자인 합니다. / 이벤트 핸들러도 걸어주구요
* 그런다음 Save시에 WriteComponent 로 저장하구요
나중에 다시 읽어올때는
* 빈폼 Class를 생성하구(Create) 하구
* ReadComponent 하시면 될듯 하네요....
요런 기능이 있는줄 몰랐는데.. 질문 덕에 알았습니다.
다음에 언제 유용하게 쓸수 있을듯 하네요...
그럼...
(NOTICE) You must be logged in to comment on this post.
-
- 박완식
- 2009.08.31 02:59
- 0 COMMENTS
- /
- 0 LIKES
-
- 이은주
- •
- 2009.08.30 15:49
- 2 COMMENTS
- /
- 0 LIKES
-
노정윤•2009.08.31 06:56델파이에서 다른 기기와 통신하는 방법은 1. 시리얼 통신 2. TCP/IP (소켓) 3. I/O 카드 등.. (보통...
-
이은주•2009.08.31 21:34감사합니다. 그렇다면 간단한 예제나 참고될 자료가 혹시 없을까요 ?
-
- 윤창훈
- •
- 2009.08.30 07:34
- 2 COMMENTS
- /
- 0 LIKES
-
최용일•2009.08.30 09:17CnPack이던가 GExpert이던가... 이게 그렇게 만들어줄걸요... True면 check, False면 unckeck 이상이 ...
-
윤창훈•2009.08.30 15:04안녕하세요? 고수님께서 알려주신 사항을 참고하여 살펴 봤더니 LMD TOOL 이란놈이 문제를 일으켰습니...
-
- cdrd
- •
- 2009.08.29 20:39
- 1 COMMENTS
- /
- 0 LIKES
-
최용일•2009.08.29 22:13Win32탭에 있는 TabControl, PageControl이나 Win3.1탭에 있는 TabbedNoteBook을 사용하세요.
-
- 이호림
- •
- 2009.08.29 20:22
- 2 COMMENTS
- /
- 0 LIKES
-
최용일•2009.08.29 22:16웹하고 작동방식은 별 차이 없습니다. 웹화면에서 보여주는 것을 프로그램에서 보여준다는 차이 밖에 없...
-
이호림•2009.08.30 07:48흠.... 감은 잘 안오지만 이렇게 처리하는게 맞는지 한번 적어볼께요... 예를들면 우리은행의 거래내역...
-
- 조윤제
- •
- 2009.08.29 17:51
- 2 COMMENTS
- /
- 0 LIKES
-
최용일•2009.08.29 22:14TDataBase를 써서 username, password를 입력하시고, LoginPrompt 속성을 False로 바꾸세요.
-
조윤제•2009.08.30 00:09답변 감사합니다. 그런데 이거 해 본것 같기도 한데 안 된것 같거든요. 다시한번 해 보겠습니다. 고맙습...
-
-
kim•2009.08.28 02:37KDDG와같은 사이트말입니다...
-
라벤더•2009.08.29 01:14제가 아는 곳은 sky.ph와 taeyo.pe.kr 정도...? ^^ -
kim•2009.09.01 02:38고맙습니다.....^^
-
-
- 땅쿠
- •
- 2009.08.28 00:06
- 2 COMMENTS
- /
- 0 LIKES
-
델티즌•2009.08.28 01:052009에서는 유니코드때문에 그런겁니다..
-
땅쿠•2009.08.28 01:26네. 그렇네요. 답변 감사하구요 다음과 같이 수정하니까 정상적인 값이 넘어오네요. strData : Str...
-
- 유은선
- •
- 2009.08.27 21:44
- 2 COMMENTS
- /
- 0 LIKES
-
홍성락•2009.08.28 05:24FindNext가 False가 나올때 까지 반복문(while 또는 repeat)을 사용해야 할거 같은데요... -
신경철•2009.09.01 00:06While 문으로 하시고 조건을 RecordCount보단 EOF로..하심이..
-
- 우당탕
- •
- 2009.08.27 20:05
- 2 COMMENTS
- /
- 0 LIKES
-
구창민•2009.08.27 20:40안녕하세요.. 우선은 데이타 수신이 잘되는지 확인을 위해 인디 데모에 있는 부분처럼 타이머를 올리시... -
최용일•2009.08.28 07:38TCPClient.InputBuffer.Clear; I := TCPClient.InputBuffer.Size; 위 코드에서 I가 0인데... while문에...
-
- 윤영훈
- •
- 2009.08.27 18:32
- •
- 1 COMMENTS
- /
- 0 LIKES
-
윤영훈•2009.08.31 19:29자답입니다. 음... 구글에서 찾아보니 내용은 다르지만 같은 캡션의 오류메세지가 있더라고요. 거기서...
-
- 윤영훈
- •
- 2009.08.27 04:54
- 2 COMMENTS
- /
- 0 LIKES
-
phono•2009.08.27 07:56재귀 호출(Recursive Call) 을 사용하셔야 할것 같네욤.
-
최용일•2009.08.27 10:28FindFirst, FindNext, FindClose 델파이 도움말을 보시면 예제가 있습니다. 예제를 보고 재귀호출하세요.
-
- 세균맨
- •
- 2009.08.26 23:31
- 1 COMMENTS
- /
- 0 LIKES
-
구창민•2009.08.27 00:27안녕하세요.. 아래 코드를 참고하세요.. // ObjectResourceToText : converts the binary represent...
-
- 세균맨
- •
- 2009.08.27 01:05
- 2 COMMENTS
- /
- 0 LIKES
답변감사합니다... 그런데..."OBJECT exceted on line 1" 에러 메세지가 뜨네요. 기존 DFM갖고 폼을 만들고 있는데..델파이에서 가능하가요?... 어렵네요.. >폼을 stream을 사용하여 TEXT로 저장을했읍니다.. >저장한 TEXT파일로 폼을 다...-
장성호•2009.08.27 03:01ObjectBinaryToText 로 저장하셨으면 Text 파일을 다시 ObjectBinary로 바꾸셔야 하니 ObjectT...
-
장성호•2009.08.27 04:18WriteComponent 로 저장한 정보를 ReadComponent 로 읽어올수는 있습니다만.. 몇가지 문제가 생기...
-
- 김동원
- •
- 2009.08.26 18:34
- 2 COMMENTS
- /
- 0 LIKES
-
구창민•2009.08.26 19:41흔히 배포 하는 방식은... 배포되는 프로그램을 Setup 파일로 만들어서.. Setup 할때 DB 의 경로를 ...
-
김동원•2009.08.27 22:38대단히 감사합니다. 꾸~벅
-
- 백승범
- 2009.08.26 04:31
- 0 COMMENTS
- /
- 0 LIKES
-
- 백운민
- •
- 2009.08.26 04:30
- 1 COMMENTS
- /
- 0 LIKES
-
장대훈•2009.08.29 03:05VCL과 관련해서 XPMan은 좀 문제가 생기곤 합니다. 원인은 알 수가 없었구요. 필요할때 조금 조심해서 ...
-
- 윤영훈
- •
- 2009.08.25 23:09
- 3 COMMENTS
- /
- 0 LIKES
-
백록화•2009.08.26 00:17Zeos 에서 연결하실려면 ntwdblib.dll 이 필요한데 이놈이 MS-SQL Server 2005 에 없다구 그러는거 같더...
-
phono•2009.08.26 06:39zeos 에서 델파이 기본 ado 콤포넌트로 옴기는 공수가 그리 크지 않다면, 이걸로 하는게 가장 깔끔 할 ...
-
윤영훈•2009.08.27 04:19답변 감사합니다. 이래저래 해서 SQL Server 2008로 깔아서 연결하는 데에 성공하고, dbExpress, ADO, ...
-
- cdrd
- 2009.08.25 22:53
- 0 COMMENTS
- /
- 0 LIKES
-
- 하늘사랑
- •
- 2009.08.25 20:06
- 1 COMMENTS
- /
- 0 LIKES
-
구창민•2009.08.26 04:56SetForeGroundWindow(실행된 프로그램핸들); Application.MessageBox 는 어플이 가장 상위에 있다면 가...
Text 파일을 다시 ObjectBinary로 바꾸셔야 하니
ObjectTextToBinary 함수를 쓰셔서 바꾸시면 될듯 한데요.
그럼..