Q&A
- 클래스의 멤버변수따위를 전부 파일로 저장했다가 불러오기?
아래처럼 복잡한 클래스의 변수들을 전부다 파일로 저장했다가..그대로 다시 불러올수있는방법없나요??
일일이 변수하나하나 집어넣기는..너무.힘들 것 같아서요.
블럭라이트로 인스턴스를 집어넣더니..예상대로 포인터만 저장되더군요...
이겅..무슨..질문인지.아시겠죠?? ^^;;;
고수님들 도아주세요~~~~~~
type
TLogProcess = class (TObject)
public
Mail_E_N, Mail_ES_N, Mail_ER_N : Integer;
Mail_EA_N, Mail_RA_N, Mail_SA_N : Real;
Result_S_N, Result_F_N, Result_D_N : Integer;
Add_RA_N, Add_SA_N: Real;
Host_RA_N, Host_SA_N: Real;
Host_U_N, Add_U_N : Integer;
Mail_E_B , Mail_ES_B, Mail_ER_B : Int64;
Mail_EA_B, Mail_RA_B, Mail_SA_B : Real;
Result_D_B, Result_F_B, Result_S_B : Int64;
Add_SA_B, Add_RA_B : Real;
Host_U_B, Add_U_B : Int64;
Host_RA_B, Host_SA_B : Real;
Delay_E, Delay_A, Delay_BPS : Real;
Start_DT : TDateTime;
EMail_String, Host_String : String;
Email_ID, Host : String;
Sendnum21 : Array[0..23] of Integer;
Recnum21 : Array[0..23] of Integer;
TotalRec21 : Integer;
TotalSnd21 : Integer;
Sendnum22 : Array[0..23] of Integer;
Recnum22 : Array[0..23] of Integer;
TotalRec22 : Integer;
TotalSnd22 : Integer;
Sendnum23 : Array[0..6] of Integer;
Recnum23 : Array[0..6] of Integer;
TotalRec23 : Integer;
TotalSnd23 : Integer;
Sendnum24 : Array[0..6] of Integer;
Recnum24 : Array[0..6] of Integer;
TotalRec24 : Integer;
TotalSnd24 : Integer;
AnalRecord25 : Array of TAnalRecord;
AnalRecord26 : Array of TAnalRecord;
AnalRecord27 : Array of TAnalRecord;
AnalRecord28 : Array of TAnalRecord;
AnalRecord29 : Array of TAnalRecord;
ErrorMaxNum : Integer;
Header : String;
CurrentLog : String;
pCurrentLog : pChar;
StartLine : PChar;
LogLine : Array[0..10] of String;
SizeofFile,SpPos : Integer;
HostMaxNum : Integer; // host의 총갯수
MailMaxNum : Integer; // e-mail의 총갯수
LogArray : Array of LongInt; // 인덱싱 데이타 저장
FH : File of Char; // 파일 핸들
TotalLog : Integer; // 전체 라인수(인덱싱된 로그라인)
LogRecord : TLogRecord; // 분석된 로그라인을 저장할 공간
FileName: TFileName; // 큐멜로그 파일이름
BlockBegin : Integer; //블럭시작의 파일포인터
BlockEnd : Integer; // 블럭끝의 파일포인터
MaxLine : Integer; // 한번에 로딩 할 최대 라인
LogString : pChar; // 로딩된 블럭 데이타
LogSize : Integer; // 로그 한 줄의 최대 크기
Buffer : PChar; // 인덱싱을위한 버터..
Function HighHost(StartNum: Integer ; Kind : Integer; AnalRecord: Array of TAnalRecord): Integer; // 가장큰 TanalRecord를 구함
Procedure SortHost(Kind : Integer; var AnalRecord: Array of TAnalRecord);
//TanalRecord를 소팅함 Kind - 1:Send Host, 2:Receive Host, 3:Send Mail, 4:Receive Mail
Procedure MakeAnalData; // 로그분석 엔진!!!!! Core!!!
Procedure OpenLogFile; // 파일열고 인덱싱
procedure GetLogRecord(RequestLine: Integer); // 요청라인의 로그를 분석 해서 LogRecord에 저장
Function UnixtimetoDateTime(Unixtime: Integer): TDatetime; //n64 UnixTimeStamp to TDatetime
Function GoThere(Here : Double): Integer; // 특정시간의 로그라인으로 잽싸게 이동
// procedure AnalDataSave; // 로그분석 데아타 저장
// procedure AnalDataLoad; // 로그분석 데아타 로딩
{ Public declarations }
end;
일일이 변수하나하나 집어넣기는..너무.힘들 것 같아서요.
블럭라이트로 인스턴스를 집어넣더니..예상대로 포인터만 저장되더군요...
이겅..무슨..질문인지.아시겠죠?? ^^;;;
고수님들 도아주세요~~~~~~
type
TLogProcess = class (TObject)
public
Mail_E_N, Mail_ES_N, Mail_ER_N : Integer;
Mail_EA_N, Mail_RA_N, Mail_SA_N : Real;
Result_S_N, Result_F_N, Result_D_N : Integer;
Add_RA_N, Add_SA_N: Real;
Host_RA_N, Host_SA_N: Real;
Host_U_N, Add_U_N : Integer;
Mail_E_B , Mail_ES_B, Mail_ER_B : Int64;
Mail_EA_B, Mail_RA_B, Mail_SA_B : Real;
Result_D_B, Result_F_B, Result_S_B : Int64;
Add_SA_B, Add_RA_B : Real;
Host_U_B, Add_U_B : Int64;
Host_RA_B, Host_SA_B : Real;
Delay_E, Delay_A, Delay_BPS : Real;
Start_DT : TDateTime;
EMail_String, Host_String : String;
Email_ID, Host : String;
Sendnum21 : Array[0..23] of Integer;
Recnum21 : Array[0..23] of Integer;
TotalRec21 : Integer;
TotalSnd21 : Integer;
Sendnum22 : Array[0..23] of Integer;
Recnum22 : Array[0..23] of Integer;
TotalRec22 : Integer;
TotalSnd22 : Integer;
Sendnum23 : Array[0..6] of Integer;
Recnum23 : Array[0..6] of Integer;
TotalRec23 : Integer;
TotalSnd23 : Integer;
Sendnum24 : Array[0..6] of Integer;
Recnum24 : Array[0..6] of Integer;
TotalRec24 : Integer;
TotalSnd24 : Integer;
AnalRecord25 : Array of TAnalRecord;
AnalRecord26 : Array of TAnalRecord;
AnalRecord27 : Array of TAnalRecord;
AnalRecord28 : Array of TAnalRecord;
AnalRecord29 : Array of TAnalRecord;
ErrorMaxNum : Integer;
Header : String;
CurrentLog : String;
pCurrentLog : pChar;
StartLine : PChar;
LogLine : Array[0..10] of String;
SizeofFile,SpPos : Integer;
HostMaxNum : Integer; // host의 총갯수
MailMaxNum : Integer; // e-mail의 총갯수
LogArray : Array of LongInt; // 인덱싱 데이타 저장
FH : File of Char; // 파일 핸들
TotalLog : Integer; // 전체 라인수(인덱싱된 로그라인)
LogRecord : TLogRecord; // 분석된 로그라인을 저장할 공간
FileName: TFileName; // 큐멜로그 파일이름
BlockBegin : Integer; //블럭시작의 파일포인터
BlockEnd : Integer; // 블럭끝의 파일포인터
MaxLine : Integer; // 한번에 로딩 할 최대 라인
LogString : pChar; // 로딩된 블럭 데이타
LogSize : Integer; // 로그 한 줄의 최대 크기
Buffer : PChar; // 인덱싱을위한 버터..
Function HighHost(StartNum: Integer ; Kind : Integer; AnalRecord: Array of TAnalRecord): Integer; // 가장큰 TanalRecord를 구함
Procedure SortHost(Kind : Integer; var AnalRecord: Array of TAnalRecord);
//TanalRecord를 소팅함 Kind - 1:Send Host, 2:Receive Host, 3:Send Mail, 4:Receive Mail
Procedure MakeAnalData; // 로그분석 엔진!!!!! Core!!!
Procedure OpenLogFile; // 파일열고 인덱싱
procedure GetLogRecord(RequestLine: Integer); // 요청라인의 로그를 분석 해서 LogRecord에 저장
Function UnixtimetoDateTime(Unixtime: Integer): TDatetime; //n64 UnixTimeStamp to TDatetime
Function GoThere(Here : Double): Integer; // 특정시간의 로그라인으로 잽싸게 이동
// procedure AnalDataSave; // 로그분석 데아타 저장
// procedure AnalDataLoad; // 로그분석 데아타 로딩
{ Public declarations }
end;
1
COMMENTS
(NOTICE) You must be logged in to comment on this post.
-
- 바다
- •
- 2000.09.27 15:28
- 1 COMMENTS
- /
- 0 LIKES
-
임형호•2000.09.27 19:26모달폼은 그 폼을 닫기전에는 다음처리들이 실행이 되지 않습니다. 그러므로 폼을 닫으면서 free가 되지만...
-
- 델피초보
- •
- 2000.09.27 10:34
- 1 COMMENTS
- /
- 0 LIKES
-
임형호•2000.09.27 12:02혹시 코딩중에 DB의 자료를 조회하는 부분이 있을것 같네요. 음...가령 해당 필드가 integer라든지 float...
-
- parkisu
- 2000.09.27 09:57
- 0 COMMENTS
- /
- 0 LIKES
-
- 엄청 초보
- 2000.09.27 09:31
- 0 COMMENTS
- /
- 0 LIKES
-
- 김준연
- •
- 2000.09.27 09:28
- 1 COMMENTS
- /
- 0 LIKES
-
초보자•2000.09.27 20:31김준연 wrote: > DECLARE @ins_error int > > begin tran > insert ExampleDB(exid, a) values('d', ...
-
- 진땀
- 2000.09.27 09:26
- 0 COMMENTS
- /
- 0 LIKES
-
- kissme
- 2000.09.27 09:06
- 0 COMMENTS
- /
- 0 LIKES
-
-
남기석•2000.09.27 10:32안녕하세요.... 지난번에 IncMonth 함수를 알려 드렸던 청개구리 남기석입니다. 아직도 해결 못하시고 해...
-
kylix•2000.09.27 09:44제 생각에는 델파이 문법을 책보구 더 배우셔야겠네여~ 밑에 고수님들이 여러번 답변을 해준것을 봤는데...
-
-
- 서하늘
- 2000.09.27 08:06
- 0 COMMENTS
- /
- 0 LIKES
-
- 왕초보
- 2000.09.27 07:59
- 0 COMMENTS
- /
- 0 LIKES
-
- 고민남
- •
- 2000.09.27 07:02
- 1 COMMENTS
- /
- 0 LIKES
-
남기석•2000.09.27 10:17안녕하세요... 청개구리 남기석입니다. SQL 서버에 연결할 수 없다는 에러메세지네요... 연결이 안되...
-
-
- 윤종열
- •
- 2000.09.27 06:25
- 3 COMMENTS
- /
- 0 LIKES
-
허춘•2000.09.27 13:47윤종열 wrote: > 저의 컴퓨터 구성은 이렇습니다. > > 1번 컴퓨터) 1-Internet에서 에서 InterBase6....
-
허춘•2000.09.27 13:58허춘 wrote: > 윤종열 wrote: > > 저의 컴퓨터 구성은 이렇습니다. > > > > 1번 컴퓨터) 1-Internet...
-
임형호•2000.09.27 08:39도움이 될지는 모르겠지만 몇자 적어봅니다. 얼마전에 저두 서버에 인터베이스 6.0을 설치하고, 인터베이...
-
- genis_me
- •
- 2000.09.27 04:32
- 1 COMMENTS
- /
- 0 LIKES
-
김경태•2000.09.27 05:16^^ 저두 델파이 시작한지 두달되는 왕촙입니다.. 델파이 바이블 괜찬턴데..영진꺼..거의 델파이로 할 수 ...
-
- 서영진
- •
- 2000.09.27 03:24
- 1 COMMENTS
- /
- 0 LIKES
-
강인규•2000.09.27 04:52제가 어젠가 답변을 올렸는데.... 검색은 해보셨나여? var i, j : integer; f : real; begin i ...
-
- 성더기
- 2000.09.27 03:19
- 0 COMMENTS
- /
- 0 LIKES
-
- 김기태
- •
- 2000.09.27 02:39
- 1 COMMENTS
- /
- 0 LIKES
-
타락천사•2000.09.27 02:41안녕하세여.. 타락임다..^^ 각 어플마다 독립적인 메모리가 할당됩니다.. 그래서 한 어플에서 다른 ...
-
- 황하성
- •
- 2000.09.27 02:38
- 1 COMMENTS
- /
- 0 LIKES
-
타락천사•2000.09.27 02:43안녕하세여.. 타락임다..^^ 흠.. FTP 를 사용하심이 어떨까여? 즐푸하세여.. 타락천사...^^ 황...
-
- 안젤726
- •
- 2000.09.27 02:04
- 1 COMMENTS
- /
- 0 LIKES
-
이경문•2000.09.27 05:49Delphi4부터인가 TJpegImage라는 클래스를 제공하게 되었습니다. 자료실에 보면 Jpeg관련 컴포넌트가 많이...
-
- 김경태
- •
- 2000.09.27 02:02
- 1 COMMENTS
- /
- 0 LIKES
아래처럼 복잡한 클래스의 변수들을 전부다 파일로 저장했다가..그대로 다시 불러올수있는방법없나요?? 일일이 변수하나하나 집어넣기는..너무.힘들 것 같아서요. 블럭라이트로 인스턴스를 집어넣더니..예상대로 포인터만 저장되더군요......-
david•2000.09.28 02:07김경태 wrote: > 아래처럼 복잡한 클래스의 변수들을 전부다 파일로 저장했다가..그대로 다시 불러올수있...
> 아래처럼 복잡한 클래스의 변수들을 전부다 파일로 저장했다가..그대로 다시 불러올수있는방법없나요??
> 일일이 변수하나하나 집어넣기는..너무.힘들 것 같아서요.
> 블럭라이트로 인스턴스를 집어넣더니..예상대로 포인터만 저장되더군요...
> 이겅..무슨..질문인지.아시겠죠?? ^^;;;
> 고수님들 도아주세요~~~~~~
>
> type
> TLogProcess = class (TObject)
> public
> Mail_E_N, Mail_ES_N, Mail_ER_N : Integer;
> Mail_EA_N, Mail_RA_N, Mail_SA_N : Real;
> Result_S_N, Result_F_N, Result_D_N : Integer;
> Add_RA_N, Add_SA_N: Real;
> Host_RA_N, Host_SA_N: Real;
> Host_U_N, Add_U_N : Integer;
> Mail_E_B , Mail_ES_B, Mail_ER_B : Int64;
> Mail_EA_B, Mail_RA_B, Mail_SA_B : Real;
> Result_D_B, Result_F_B, Result_S_B : Int64;
> Add_SA_B, Add_RA_B : Real;
> Host_U_B, Add_U_B : Int64;
> Host_RA_B, Host_SA_B : Real;
> Delay_E, Delay_A, Delay_BPS : Real;
> Start_DT : TDateTime;
> EMail_String, Host_String : String;
> Email_ID, Host : String;
>
> Sendnum21 : Array[0..23] of Integer;
> Recnum21 : Array[0..23] of Integer;
> TotalRec21 : Integer;
> TotalSnd21 : Integer;
>
> Sendnum22 : Array[0..23] of Integer;
> Recnum22 : Array[0..23] of Integer;
> TotalRec22 : Integer;
> TotalSnd22 : Integer;
>
> Sendnum23 : Array[0..6] of Integer;
> Recnum23 : Array[0..6] of Integer;
> TotalRec23 : Integer;
> TotalSnd23 : Integer;
>
> Sendnum24 : Array[0..6] of Integer;
> Recnum24 : Array[0..6] of Integer;
> TotalRec24 : Integer;
> TotalSnd24 : Integer;
>
> AnalRecord25 : Array of TAnalRecord;
> AnalRecord26 : Array of TAnalRecord;
> AnalRecord27 : Array of TAnalRecord;
> AnalRecord28 : Array of TAnalRecord;
> AnalRecord29 : Array of TAnalRecord;
> ErrorMaxNum : Integer;
>
> Header : String;
> CurrentLog : String;
> pCurrentLog : pChar;
> StartLine : PChar;
> LogLine : Array[0..10] of String;
> SizeofFile,SpPos : Integer;
> HostMaxNum : Integer; // host의 총갯수
> MailMaxNum : Integer; // e-mail의 총갯수
> LogArray : Array of LongInt; // 인덱싱 데이타 저장
> FH : File of Char; // 파일 핸들
> TotalLog : Integer; // 전체 라인수(인덱싱된 로그라인)
> LogRecord : TLogRecord; // 분석된 로그라인을 저장할 공간
> FileName: TFileName; // 큐멜로그 파일이름
> BlockBegin : Integer; //블럭시작의 파일포인터
> BlockEnd : Integer; // 블럭끝의 파일포인터
> MaxLine : Integer; // 한번에 로딩 할 최대 라인
> LogString : pChar; // 로딩된 블럭 데이타
> LogSize : Integer; // 로그 한 줄의 최대 크기
> Buffer : PChar; // 인덱싱을위한 버터..
> Function HighHost(StartNum: Integer ; Kind : Integer; AnalRecord: Array of TAnalRecord): Integer; // 가장큰 TanalRecord를 구함
> Procedure SortHost(Kind : Integer; var AnalRecord: Array of TAnalRecord);
> //TanalRecord를 소팅함 Kind - 1:Send Host, 2:Receive Host, 3:Send Mail, 4:Receive Mail
> Procedure MakeAnalData; // 로그분석 엔진!!!!! Core!!!
> Procedure OpenLogFile; // 파일열고 인덱싱
> procedure GetLogRecord(RequestLine: Integer); // 요청라인의 로그를 분석 해서 LogRecord에 저장
> Function UnixtimetoDateTime(Unixtime: Integer): TDatetime; //n64 UnixTimeStamp to TDatetime
> Function GoThere(Here : Double): Integer; // 특정시간의 로그라인으로 잽싸게 이동
> // procedure AnalDataSave; // 로그분석 데아타 저장
> // procedure AnalDataLoad; // 로그분석 데아타 로딩
> { Public declarations }
> end;
만약 제가 이런경우라면...
Stream을 쓰겠습니다.
델파이도 내부적으로 폼이나 컴포넌트의 값을 스트림화시켜서 저장합니다.
님의 말씀대로 하나하나 저장한다는건 너무 무시한 처사죠...
그런즉슨, 전체를 메모리버퍼에 넣은다음 스트림으로 집어넣으면 되겠죠..