Q&A
- 이진파일로 부터 자료를 읽고 싶은데요..
안녕하세요.
이진파일(특정형태로 구성된 데이타파일)로 부터 값을 읽어들이고 싶은데 잘 되지
않네요.
제가 샘플로 작성한 소스를 보시고 답변 부탁드리겠습니다.
type
LowData = record
TagSize: LongInt; // Tag 사이즈
PositionX: LongInt; // 번호판 X 좌표
PositionY: LongInt; // 번호판 Y 좌표
AreaNum: Byte; // 지역번호
CarType: Byte; // 차종 구분
Consnant: Byte; // 번호판 앞 자음
Vowel: Byte; // 번호판 앞 모음
Num1: Byte; // 차량번호 첫째자리
Num2: Byte; // 차량번호 둘째자리
Num3: Byte; // 차량번호 셋째자리
Num4: Byte; // 차량번호 넷째자리
Reserved1: Byte; // 예약 1
Reserved2: Byte; // 예약 2
OverSpeed: LongInt; // 위반속도
LimitSpeed: LongInt; // 제한속도
LineNum: LongInt; // 차선번호
NumImage: LongInt; // 영상갯수
ImageSize: LongInt; // 영상크기(전체)
ImageSize2: LongInt; // 영상크기(번호판)
//CarImage: array of Byte;
//PlateImage: array of Byte;
end;
var
Form1: TForm1;
implementation
{$R *.DFM}
procedure TForm1.Button2Click(Sender: TObject);
begin
Close;
end;
procedure TForm1.Button1Click(Sender: TObject);
var
LowFile: File;
DstData: LowData;
NumRead: Integer;
begin
if OpenDlg.Execute then begin
AssignFile(LowFile, OpenDlg.FileName); // 이미지 파일 연결
Reset(LowFile);
with DstData do begin
BlockRead(LowFile, TagSize, SizeOf(TagSize), NumRead);
BlockRead(LowFile, PositionX, SizeOf(PositionX), NumRead);
BlockRead(LowFile, PositionY, SizeOf(PositionY), NumRead);
BlockRead(LowFile, AreaNum, SizeOf(AreaNum), NumRead);
BlockRead(LowFile, CarType, SizeOf(CarType), NumRead);
BlockRead(LowFile, Consnant, SizeOf(Consnant), NumRead);
BlockRead(LowFile, Vowel, SizeOf(Vowel), NumRead);
BlockRead(LowFile, Num1, SizeOf(Num1), NumRead);
BlockRead(LowFile, Num2, SizeOf(Num2), NumRead);
BlockRead(LowFile, Num3, SizeOf(Num3), NumRead);
BlockRead(LowFile, Num4, SizeOf(Num4), NumRead);
BlockRead(LowFile, Reserved1, SizeOf(Reserved1), NumRead);
BlockRead(LowFile, Reserved2, SizeOf(Reserved2), NumRead);
BlockRead(LowFile, OverSpeed, SizeOf(OverSpeed), NumRead);
BlockRead(LowFile, LimitSpeed, SizeOf(LimitSpeed), NumRead);
BlockRead(LowFile, LineNum, SizeOf(LineNum), NumRead);
BlockRead(LowFile, NumImage, SizeOf(NumImage), NumRead);
BlockRead(LowFile, ImageSize, SizeOf(ImageSize), NumRead);
BlockRead(LowFile, ImageSize2, SizeOf(ImageSize2), NumRead);
end;
CloseFile(LowFile);
end;
end;
end.
부족한 초보였습니다. 그럼..
이진파일(특정형태로 구성된 데이타파일)로 부터 값을 읽어들이고 싶은데 잘 되지
않네요.
제가 샘플로 작성한 소스를 보시고 답변 부탁드리겠습니다.
type
LowData = record
TagSize: LongInt; // Tag 사이즈
PositionX: LongInt; // 번호판 X 좌표
PositionY: LongInt; // 번호판 Y 좌표
AreaNum: Byte; // 지역번호
CarType: Byte; // 차종 구분
Consnant: Byte; // 번호판 앞 자음
Vowel: Byte; // 번호판 앞 모음
Num1: Byte; // 차량번호 첫째자리
Num2: Byte; // 차량번호 둘째자리
Num3: Byte; // 차량번호 셋째자리
Num4: Byte; // 차량번호 넷째자리
Reserved1: Byte; // 예약 1
Reserved2: Byte; // 예약 2
OverSpeed: LongInt; // 위반속도
LimitSpeed: LongInt; // 제한속도
LineNum: LongInt; // 차선번호
NumImage: LongInt; // 영상갯수
ImageSize: LongInt; // 영상크기(전체)
ImageSize2: LongInt; // 영상크기(번호판)
//CarImage: array of Byte;
//PlateImage: array of Byte;
end;
var
Form1: TForm1;
implementation
{$R *.DFM}
procedure TForm1.Button2Click(Sender: TObject);
begin
Close;
end;
procedure TForm1.Button1Click(Sender: TObject);
var
LowFile: File;
DstData: LowData;
NumRead: Integer;
begin
if OpenDlg.Execute then begin
AssignFile(LowFile, OpenDlg.FileName); // 이미지 파일 연결
Reset(LowFile);
with DstData do begin
BlockRead(LowFile, TagSize, SizeOf(TagSize), NumRead);
BlockRead(LowFile, PositionX, SizeOf(PositionX), NumRead);
BlockRead(LowFile, PositionY, SizeOf(PositionY), NumRead);
BlockRead(LowFile, AreaNum, SizeOf(AreaNum), NumRead);
BlockRead(LowFile, CarType, SizeOf(CarType), NumRead);
BlockRead(LowFile, Consnant, SizeOf(Consnant), NumRead);
BlockRead(LowFile, Vowel, SizeOf(Vowel), NumRead);
BlockRead(LowFile, Num1, SizeOf(Num1), NumRead);
BlockRead(LowFile, Num2, SizeOf(Num2), NumRead);
BlockRead(LowFile, Num3, SizeOf(Num3), NumRead);
BlockRead(LowFile, Num4, SizeOf(Num4), NumRead);
BlockRead(LowFile, Reserved1, SizeOf(Reserved1), NumRead);
BlockRead(LowFile, Reserved2, SizeOf(Reserved2), NumRead);
BlockRead(LowFile, OverSpeed, SizeOf(OverSpeed), NumRead);
BlockRead(LowFile, LimitSpeed, SizeOf(LimitSpeed), NumRead);
BlockRead(LowFile, LineNum, SizeOf(LineNum), NumRead);
BlockRead(LowFile, NumImage, SizeOf(NumImage), NumRead);
BlockRead(LowFile, ImageSize, SizeOf(ImageSize), NumRead);
BlockRead(LowFile, ImageSize2, SizeOf(ImageSize2), NumRead);
end;
CloseFile(LowFile);
end;
end;
end.
부족한 초보였습니다. 그럼..
(NOTICE) You must be logged in to comment on this post.
-
- 조덕진
- •
- 2001.11.12 19:40
- 2 COMMENTS
- /
- 0 LIKES
안녕하세요. 이진파일(특정형태로 구성된 데이타파일)로 부터 값을 읽어들이고 싶은데 잘 되지 않네요. 제가 샘플로 작성한 소스를 보시고 답변 부탁드리겠습니다. type LowData = record TagSize: LongInt; // Tag 사이즈 PositionX: Lon...-
최용일•2001.11.13 00:10안녕하세요. 최용일입니다. 비형태화 File형의 경우 디폴트로 읽기/쓰기 레코드 크기는 128바이트입니다... -
조덕진•2001.11.14 03:37없는데...
-
- 델초보
- 2001.11.12 19:33
- 0 COMMENTS
- /
- 0 LIKES
-
- 학생
- •
- 2001.11.12 19:26
- 1 COMMENTS
- /
- 0 LIKES
-
최용일•2001.11.13 00:03안녕하세요. 최용일입니다. WM_NCHITTEST메세지를 이용하세요... type TForm1 = class(...) ...
-
- 대왕초보
- •
- 2001.11.12 19:16
- 1 COMMENTS
- /
- 0 LIKES
-
김지태•2001.11.12 22:41대왕초보 wrote: > 이런 쉬운 질문 해두 되나?? > > 웹브라우저 콘트롤에서 HTML파일을 읽을려고 합니...
-
- 김지홍
- 2001.11.12 18:59
- 0 COMMENTS
- /
- 0 LIKES
-
- 김종곤
- 2001.11.12 18:46
- 0 COMMENTS
- /
- 0 LIKES
-
- 초보자
- •
- 2001.11.12 19:11
- 3 COMMENTS
- /
- 0 LIKES
-
빅용철•2001.11.13 02:43OnClacFields 이벤트를 사용하세요. 먼저, Field를 추가하시고(Fields Editordptj Claculated로), OnCla...
-
정성훈•2001.11.12 22:31초보자 wrote: > dbgrid에서 금액부분을 수정할때마다 edit박스의 총계금액을 계산하려고 하는데 > > ...
-
초보자•2001.11.12 23:14답변감사합니다. dbgrid상에서 수정한 금액을 table update없이 grid상에서만 변경하고 그 변경된 값들의...
-
- 이보학
- 2001.11.12 18:20
- 0 COMMENTS
- /
- 0 LIKES
-
- gish30
- •
- 2001.11.12 17:19
- 1 COMMENTS
- /
- 0 LIKES
-
깨구락지•2001.11.12 18:04데이타베이스 연결오류인듯 싶군요. 깨굴~ gish30 wrote: > rpoject dims.exe raise exception class ...
-
- 손동섭
- 2001.11.12 13:00
- 0 COMMENTS
- /
- 0 LIKES
-
- 준입니다.
- 2001.11.12 07:51
- 0 COMMENTS
- /
- 0 LIKES
-
- 킬릭스맨
- 2001.11.12 05:36
- 0 COMMENTS
- /
- 0 LIKES
-
- 김선화
- 2001.11.12 03:27
- 0 COMMENTS
- /
- 0 LIKES
-
- 궁금이
- 2001.11.12 02:30
- 0 COMMENTS
- /
- 0 LIKES
-
- cool21c
- •
- 2001.11.11 21:48
- 3 COMMENTS
- /
- 0 LIKES
-
최성진•2001.11.12 08:03BDE에서 Native설정에서 vendor init 설정을 OCI.dll로 해보고 또 path가 걸려있는지 확인바랍니다. pa...
-
cool21c•2001.11.12 18:45먼저 친절한 답변 감사드립니다. 일단은 Native에 Vendor Init 란 자체가 없어져버렸더군요. 현재 작...
-
최성진•2001.11.12 23:24음..저도 노트북으로 작업하고있습니다. 환경은 XP pro 이고 델파이6에 오라클8.1.5입니다. Native에 ...
-
- FindWindow
- 2001.11.11 20:27
- 0 COMMENTS
- /
- 0 LIKES
-
- 델파이헬프
- 2001.11.11 11:14
- 0 COMMENTS
- /
- 0 LIKES
-
- 궁금이
- 2001.11.11 09:16
- 0 COMMENTS
- /
- 0 LIKES
-
- 촙오
- •
- 2001.11.11 07:17
- 2 COMMENTS
- /
- 0 LIKES
-
이경문•2001.11.21 22:47혹시나 했는데 역시나군요. 다음과 같은 코드를 역어셈블해 봤습니다. { RGB16 MyColor; MyCol...
-
이경문•2001.11.12 08:19제가 알고 있기로는 bit단위의 형식이 델파이 파스칼에는 없는 것으로 알고 있습니다. 혹시 다른 분은 알...
-
- 김순희
- 2001.11.11 06:40
- 0 COMMENTS
- /
- 0 LIKES
비형태화 File형의 경우 디폴트로 읽기/쓰기 레코드 크기는 128바이트입니다...
아래처럼 바꾸세요...
Reset(LowFile, 1);
^^ 항상 즐코하세요...
조덕진 wrote:
> 안녕하세요.
>
> 이진파일(특정형태로 구성된 데이타파일)로 부터 값을 읽어들이고 싶은데 잘 되지
> 않네요.
>
> 제가 샘플로 작성한 소스를 보시고 답변 부탁드리겠습니다.
>
> type
> LowData = record
> TagSize: LongInt; // Tag 사이즈
> PositionX: LongInt; // 번호판 X 좌표
> PositionY: LongInt; // 번호판 Y 좌표
> AreaNum: Byte; // 지역번호
> CarType: Byte; // 차종 구분
> Consnant: Byte; // 번호판 앞 자음
> Vowel: Byte; // 번호판 앞 모음
> Num1: Byte; // 차량번호 첫째자리
> Num2: Byte; // 차량번호 둘째자리
> Num3: Byte; // 차량번호 셋째자리
> Num4: Byte; // 차량번호 넷째자리
> Reserved1: Byte; // 예약 1
> Reserved2: Byte; // 예약 2
> OverSpeed: LongInt; // 위반속도
> LimitSpeed: LongInt; // 제한속도
> LineNum: LongInt; // 차선번호
> NumImage: LongInt; // 영상갯수
> ImageSize: LongInt; // 영상크기(전체)
> ImageSize2: LongInt; // 영상크기(번호판)
> //CarImage: array of Byte;
> //PlateImage: array of Byte;
> end;
>
> var
> Form1: TForm1;
>
> implementation
>
> {$R *.DFM}
>
> procedure TForm1.Button2Click(Sender: TObject);
> begin
> Close;
> end;
>
> procedure TForm1.Button1Click(Sender: TObject);
> var
> LowFile: File;
> DstData: LowData;
> NumRead: Integer;
> begin
> if OpenDlg.Execute then begin
> AssignFile(LowFile, OpenDlg.FileName); // 이미지 파일 연결
> Reset(LowFile);
> with DstData do begin
> BlockRead(LowFile, TagSize, SizeOf(TagSize), NumRead);
> BlockRead(LowFile, PositionX, SizeOf(PositionX), NumRead);
> BlockRead(LowFile, PositionY, SizeOf(PositionY), NumRead);
> BlockRead(LowFile, AreaNum, SizeOf(AreaNum), NumRead);
> BlockRead(LowFile, CarType, SizeOf(CarType), NumRead);
> BlockRead(LowFile, Consnant, SizeOf(Consnant), NumRead);
> BlockRead(LowFile, Vowel, SizeOf(Vowel), NumRead);
> BlockRead(LowFile, Num1, SizeOf(Num1), NumRead);
> BlockRead(LowFile, Num2, SizeOf(Num2), NumRead);
> BlockRead(LowFile, Num3, SizeOf(Num3), NumRead);
> BlockRead(LowFile, Num4, SizeOf(Num4), NumRead);
> BlockRead(LowFile, Reserved1, SizeOf(Reserved1), NumRead);
> BlockRead(LowFile, Reserved2, SizeOf(Reserved2), NumRead);
> BlockRead(LowFile, OverSpeed, SizeOf(OverSpeed), NumRead);
> BlockRead(LowFile, LimitSpeed, SizeOf(LimitSpeed), NumRead);
> BlockRead(LowFile, LineNum, SizeOf(LineNum), NumRead);
> BlockRead(LowFile, NumImage, SizeOf(NumImage), NumRead);
> BlockRead(LowFile, ImageSize, SizeOf(ImageSize), NumRead);
> BlockRead(LowFile, ImageSize2, SizeOf(ImageSize2), NumRead);
> end;
> CloseFile(LowFile);
> end;
> end;
>
> end.
>
>
> 부족한 초보였습니다. 그럼..