한국 델파이 개발자 모임 - 이런 경우 어떻게 합니까?

이런 경우 어떻게 합니까?

이런 경우 어떻게 합니까?

한개의 화일이 있습니다..

그 화일에는 헤더, JpgImage1, JpgImage2, JpgImage3 등이 들어 갑니다..

일단 저장에는 성공 했습니다..

읽어 들이는 부분이 문제 인데요..

TJPEGImage에 있는 LoadFromStream이라는 메소드를 쓰고 싶습니다..

LoadFromStream를 쓸려면 스트림 객체를 요구 하는데...

그래서 전 TMemoryStream를 선택 했습니다.

보시면 아시 겠지만 BlockRead의 함수를 사용해 Buf라는 포인터로 값을 읽어

오거든요..

근데 그걸 TMemoryStream에 쓸수 있는 방법이 없습니다..

var Buf : PChar;

i : integer;

Jp : TJPEGImage;

Ms : TMemoryStream;

begin

Ms := TMemoryStream.Create;

jp := TJPEGImage.Create;

OpenDialog1.InitialDir := ExtractFilePath(ParamStr(0));

OpenDialog1.Filter := '*.jpg';

if not OpenDialog1.Execute then OpenDialog1.FileName := '';

//헤더를 읽는다.

AssignFile(ReadFileStream, OpenDialog1.FileName);

Reset(ReadFileStream, 1);

BlockRead(ReadFileStream, FileHader, Sizeof(FileHader));

//헤더를 제외한 실제 Jpg Data의 부분으로 분기 한다.

Seek(ReadFileStream, Sizeof(FileHader) + 100);

//헤더에 있는 싸이즈 만큼 읽는다..

if FileHader.BackImg.ImgSize > 0 then

begin

GetMem(buf, FileHader.BackImg.ImgSize);

ZeroMemory(buf, FileHader.BackImg.ImgSize);

BlockRead(ReadFileStream, buf[0], FileHader.BackImg.ImgSize);

// Ms.ReadBuffer(buf, FileHader.BackImg.ImgSize); --> 이부분

FreeMem(buf, FileHader.BackImg.ImgSize);

end;

try

finally

CloseFile(ReadFileStream);

end;

아시는 분은 답변좀 해주세요...

염치 없지만 감사 합니다..

이 게시물을

3 COMMENTS

김진호 • 2000.06.22 20:05

최용일님....답변 감사 드립니다..

근데...어느 스트림에서 읽었다는 건지 모르겠습니다..

Ms.ReadBuffer(buf, FileHader.BackImg.ImgSize); --> 이부분은 제가 하다하다 않되서

ReadBuffer까지 다 해봤습니다...

이걸 오해 하신건가여?

그리구여 ReadFileStream : File; 입니다..

지금두 헤메고 있는데..

Write메소드를 사용 하지 않은건 아닙니다...

Ms.Write(buf, FileHader.BackImg.ImgSize) 하면 오류가 일어나고

Ms.Write(buf[0], FileHader.BackImg.ImgSize) 하고난뒤 SaveFromStream하면 아무 내용도 있지 않습니다..

뭐가 잘못된건가여?

아님 다른 방법이라도 좋습니다..

김진호 wrote:

> 이런 경우 어떻게 합니까?

>

> 한개의 화일이 있습니다..

> 그 화일에는 헤더, JpgImage1, JpgImage2, JpgImage3 등이 들어 갑니다..

>

> 일단 저장에는 성공 했습니다..

>

> 읽어 들이는 부분이 문제 인데요..

>

> TJPEGImage에 있는 LoadFromStream이라는 메소드를 쓰고 싶습니다..

>

> LoadFromStream를 쓸려면 스트림 객체를 요구 하는데...

> 그래서 전 TMemoryStream를 선택 했습니다.

>

> 보시면 아시 겠지만 BlockRead의 함수를 사용해 Buf라는 포인터로 값을 읽어

> 오거든요..

> 근데 그걸 TMemoryStream에 쓸수 있는 방법이 없습니다..

>

>

> var Buf : PChar;

> i : integer;

> Jp : TJPEGImage;

> Ms : TMemoryStream;

> begin

> Ms := TMemoryStream.Create;

> jp := TJPEGImage.Create;

>

> OpenDialog1.InitialDir := ExtractFilePath(ParamStr(0));

> OpenDialog1.Filter := '*.jpg';

> if not OpenDialog1.Execute then OpenDialog1.FileName := '';

>

> //헤더를 읽는다.

> AssignFile(ReadFileStream, OpenDialog1.FileName);

> Reset(ReadFileStream, 1);

> BlockRead(ReadFileStream, FileHader, Sizeof(FileHader));

>

> //헤더를 제외한 실제 Jpg Data의 부분으로 분기 한다.

> Seek(ReadFileStream, Sizeof(FileHader) + 100);

>

> //헤더에 있는 싸이즈 만큼 읽는다..

> if FileHader.BackImg.ImgSize > 0 then

> begin

> GetMem(buf, FileHader.BackImg.ImgSize);

> ZeroMemory(buf, FileHader.BackImg.ImgSize);

> BlockRead(ReadFileStream, buf[0], FileHader.BackImg.ImgSize);

> // Ms.ReadBuffer(buf, FileHader.BackImg.ImgSize); --> 이부분

> FreeMem(buf, FileHader.BackImg.ImgSize);

> end;

>

> try

>

> finally

> CloseFile(ReadFileStream);

> end;

>

> 아시는 분은 답변좀 해주세요...

> 염치 없지만 감사 합니다..

>
- 0
- 0
- 삭제
- 수정
- 댓글
최용일 • 2000.06.22 20:54

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

Ms.ReadBuffer(buf, FileHader.BackImg.ImgSize); 이부분이 메모리 스트림에 쓰는 것이

아니라 읽는 것입니다.

LoadFromStream을 사용하실려면 먼저 스트림에다 데이타를 써야죠...

^^ 항상 즐코하세요.

김진호 wrote:

> 최용일님....답변 감사 드립니다..

> 근데...어느 스트림에서 읽었다는 건지 모르겠습니다..

>

> Ms.ReadBuffer(buf, FileHader.BackImg.ImgSize); --> 이부분은 제가 하다하다 않되서

> ReadBuffer까지 다 해봤습니다...

> 이걸 오해 하신건가여?

>

> 그리구여 ReadFileStream : File; 입니다..

>

> 지금두 헤메고 있는데..

> Write메소드를 사용 하지 않은건 아닙니다...

>

> Ms.Write(buf, FileHader.BackImg.ImgSize) 하면 오류가 일어나고

>

> Ms.Write(buf[0], FileHader.BackImg.ImgSize) 하고난뒤 SaveFromStream하면 아무 내용도 있지 않습니다..

>

> 뭐가 잘못된건가여?

>

> 아님 다른 방법이라도 좋습니다..

>

> 김진호 wrote:

> > 이런 경우 어떻게 합니까?

> >

> > 한개의 화일이 있습니다..

> > 그 화일에는 헤더, JpgImage1, JpgImage2, JpgImage3 등이 들어 갑니다..

> >

> > 일단 저장에는 성공 했습니다..

> >

> > 읽어 들이는 부분이 문제 인데요..

> >

> > TJPEGImage에 있는 LoadFromStream이라는 메소드를 쓰고 싶습니다..

> >

> > LoadFromStream를 쓸려면 스트림 객체를 요구 하는데...

> > 그래서 전 TMemoryStream를 선택 했습니다.

> >

> > 보시면 아시 겠지만 BlockRead의 함수를 사용해 Buf라는 포인터로 값을 읽어

> > 오거든요..

> > 근데 그걸 TMemoryStream에 쓸수 있는 방법이 없습니다..

> >

> >

> > var Buf : PChar;

> > i : integer;

> > Jp : TJPEGImage;

> > Ms : TMemoryStream;

> > begin

> > Ms := TMemoryStream.Create;

> > jp := TJPEGImage.Create;

> >

> > OpenDialog1.InitialDir := ExtractFilePath(ParamStr(0));

> > OpenDialog1.Filter := '*.jpg';

> > if not OpenDialog1.Execute then OpenDialog1.FileName := '';

> >

> > //헤더를 읽는다.

> > AssignFile(ReadFileStream, OpenDialog1.FileName);

> > Reset(ReadFileStream, 1);

> > BlockRead(ReadFileStream, FileHader, Sizeof(FileHader));

> >

> > //헤더를 제외한 실제 Jpg Data의 부분으로 분기 한다.

> > Seek(ReadFileStream, Sizeof(FileHader) + 100);

> >

> > //헤더에 있는 싸이즈 만큼 읽는다..

> > if FileHader.BackImg.ImgSize > 0 then

> > begin

> > GetMem(buf, FileHader.BackImg.ImgSize);

> > ZeroMemory(buf, FileHader.BackImg.ImgSize);

> > BlockRead(ReadFileStream, buf[0], FileHader.BackImg.ImgSize);

> > // Ms.ReadBuffer(buf, FileHader.BackImg.ImgSize); --> 이부분

> > FreeMem(buf, FileHader.BackImg.ImgSize);

> > end;

> >

> > try

> >

> > finally

> > CloseFile(ReadFileStream);

> > end;

> >

> > 아시는 분은 답변좀 해주세요...

> > 염치 없지만 감사 합니다..

> >
- 0
- 0
- 삭제
- 수정
- 댓글
최용일 • 2000.06.22 10:16

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

스트림에 쓰는것이 아니라 스트림에서 읽어왔네요.

스트림에 쓸때는 write... 메소드를 사용하세요.

^^ 항상 즐코하세요.

김진호 wrote:

> 이런 경우 어떻게 합니까?

>

> 한개의 화일이 있습니다..

> 그 화일에는 헤더, JpgImage1, JpgImage2, JpgImage3 등이 들어 갑니다..

>

> 일단 저장에는 성공 했습니다..

>

> 읽어 들이는 부분이 문제 인데요..

>

> TJPEGImage에 있는 LoadFromStream이라는 메소드를 쓰고 싶습니다..

>

> LoadFromStream를 쓸려면 스트림 객체를 요구 하는데...

> 그래서 전 TMemoryStream를 선택 했습니다.

>

> 보시면 아시 겠지만 BlockRead의 함수를 사용해 Buf라는 포인터로 값을 읽어

> 오거든요..

> 근데 그걸 TMemoryStream에 쓸수 있는 방법이 없습니다..

>

>

> var Buf : PChar;

> i : integer;

> Jp : TJPEGImage;

> Ms : TMemoryStream;

> begin

> Ms := TMemoryStream.Create;

> jp := TJPEGImage.Create;

>

> OpenDialog1.InitialDir := ExtractFilePath(ParamStr(0));

> OpenDialog1.Filter := '*.jpg';

> if not OpenDialog1.Execute then OpenDialog1.FileName := '';

>

> //헤더를 읽는다.

> AssignFile(ReadFileStream, OpenDialog1.FileName);

> Reset(ReadFileStream, 1);

> BlockRead(ReadFileStream, FileHader, Sizeof(FileHader));

>

> //헤더를 제외한 실제 Jpg Data의 부분으로 분기 한다.

> Seek(ReadFileStream, Sizeof(FileHader) + 100);

>

> //헤더에 있는 싸이즈 만큼 읽는다..

> if FileHader.BackImg.ImgSize > 0 then

> begin

> GetMem(buf, FileHader.BackImg.ImgSize);

> ZeroMemory(buf, FileHader.BackImg.ImgSize);

> BlockRead(ReadFileStream, buf[0], FileHader.BackImg.ImgSize);

> // Ms.ReadBuffer(buf, FileHader.BackImg.ImgSize); --> 이부분

> FreeMem(buf, FileHader.BackImg.ImgSize);

> end;

>

> try

>

> finally

> CloseFile(ReadFileStream);

> end;

>

> 아시는 분은 답변좀 해주세요...

> 염치 없지만 감사 합니다..

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

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

- 송정엽
- •
- 2000.06.22 19:02
- 1 COMMENTS
- /
- 0 LIKES
DBGrid를 보여줄때 값을 색깔로 보여주는 방법?
- 조규춘
  
  •
  
  2000.06.22 19:31
  
  송정엽 wrote: > 2000년의 일정표를 만들려다 보니 > 가장 간단한 방법이 Table의 Field를 월,1~31로 주...
- 남윤혁
- 2000.06.22 18:58
- 0 COMMENTS
- /
- 0 LIKES
NT 서비스를 만들고 winexec하면...
- 서비
- 2000.06.23 03:01
- 0 COMMENTS
- /
- 0 LIKES
에러메세지 발생...{...급...}
- 원영준
- •
- 2000.06.22 18:51
- 1 COMMENTS
- /
- 0 LIKES
동적으로 submenu를 등록하는 방법좀 갈켜주세요!
- 이상우
  
  •
  
  2000.06.22 19:24
  
  원영준 wrote: > 동적으로 mainmenu에 submenu를 등록하고 그 submenu에 다시 menuitem을 등록하고 시퍼...
- 조유정
- •
- 2000.06.22 18:33
- 1 COMMENTS
- /
- 0 LIKES
쿼리문에 대한 질문 ( 꼭부탁드립니다.....)
- nilriri
  
  •
  
  2000.06.22 19:00
  
  샬롬! GROUP BY를 사용할경우는 그룹함수를 사용하지 않은 필드에대해서는 모두 GROUP BY 절 다음에 필...
- 이광주
- •
- 2000.06.22 18:33
- 1 COMMENTS
- /
- 0 LIKES
특정그림파일 회전해서 보여주는건 어떻게 하죠?
- 최용일
  
  •
  
  2000.06.22 18:51
  
  안녕하세요. 최용일입니다. 자료실에 있는 예제를 분석해보세요. 몇 줄 안되니까요... ^^ 항상 즐코...
- 팽현진
- 2000.06.22 18:25
- 0 COMMENTS
- /
- 0 LIKES
InterBase상에서 NetBEUI 통신방법???
- 초보맨
- •
- 2000.06.22 10:17
- 4 COMMENTS
- /
- 0 LIKES
소켓으로 들어온 jpeg를 화면에 보여주는 방법...
- 최용일
  
  •
  
  2000.06.22 10:37
  
  안녕하세요. 최용일입니다. TStream은 추상객체이므로 이 객체에서 파생된 객체를 사용하세요. 스트림객...
- 초보맨
  
  •
  
  2000.06.22 11:19
  
  답변 감사드립니다. 그런데...제가 머리가 나빠서 인지 잘 모르겠습니다. 예를 들어 Jpeg그림 한장의 ...
- 최용일
  
  •
  
  2000.06.22 11:35
  
  안녕하세요. 최용일입니다. 예제입니다. var Stream: TMemoryStream; S: string; Jpg: TJpe...
- 최용일
  
  •
  
  2000.06.22 11:30
  
  안녕하세요. 최용일입니다. 리스트박스의 데이터를 스트림을 이용해서 또 다른 리스트박스로 전송하는 ...
- [델파이]
- 2000.06.22 10:08
- 0 COMMENTS
- /
- 0 LIKES
화상채팅의 원리를 좀..
- 마린일병구하기
- •
- 2000.06.22 08:47
- 1 COMMENTS
- /
- 0 LIKES
QuickReport...넘 어려워요....
- 이준해
  
  •
  
  2000.06.22 09:55
  
  레포트.. 처음 짜신다구요. 당근, QuickReport도 어렵죠. 다음과 같이 접근해 보시죠. 1. Report 란...
- 거북이
- •
- 2000.06.22 08:27
- 1 COMMENTS
- /
- 0 LIKES
QReport 처리--궁금증을 풀어주세요
- 이준해
  
  •
  
  2000.06.22 10:07
  
  1. 월별 명세서 Group band를 사용하세요. 당근, Group band와 month를 매치시키고 Group band에 "...
- 김진호
- •
- 2000.06.22 07:28
- 3 COMMENTS
- /
- 0 LIKES
이런 경우 어떻게 합니까?

이런 경우 어떻게 합니까? 한개의 화일이 있습니다.. 그 화일에는 헤더, JpgImage1, JpgImage2, JpgImage3 등이 들어 갑니다.. 일단 저장에는 성공 했습니다.. 읽어 들이는 부분이 문제 인데요.. TJPEGImage에 있는 LoadFromStream이라는 ...
- 김진호
  
  •
  
  2000.06.22 20:05
  
  최용일님....답변 감사 드립니다.. 근데...어느 스트림에서 읽었다는 건지 모르겠습니다.. Ms.ReadBuff...
- 최용일
  
  •
  
  2000.06.22 20:54
  
  안녕하세요 최용일입니다. Ms.ReadBuffer(buf, FileHader.BackImg.ImgSize); 이부분이 메모리 스트림에 ...
- 최용일
  
  •
  
  2000.06.22 10:16
  
  안녕하세요. 최용일입니다. 스트림에 쓰는것이 아니라 스트림에서 읽어왔네요. 스트림에 쓸때는 writ...
- 델라인
- •
- 2000.06.22 06:48
- 1 COMMENTS
- /
- 0 LIKES
TreeView에 대한 질문...
- 최용일
  
  •
  
  2000.06.22 10:15
  
  안녕하세요. 최용일입니다. 노드(TTreeNode)에 보면 Item속성이 있습니다. 여기에 하위 노드들이 들어가...
- 허브
- 2000.06.22 06:32
- 0 COMMENTS
- /
- 0 LIKES
stringGrid에서....
- 김민영
- •
- 2000.06.22 06:30
- 1 COMMENTS
- /
- 0 LIKES
도킹에 관한 긴 질문..
- 최용일
  
  •
  
  2000.06.22 11:18
  
  안녕하세요. 최용일입니다. 컨트롤이 도킹되면 자동적으로 델파이처럼 되는데요... 다른 컨트롤도 도킹...
- 왕초보
- •
- 2000.06.22 06:30
- 1 COMMENTS
- /
- 0 LIKES
Editor에서 c 소스 예약어를 다른 색으로 하려면...
- 최용일
  
  •
  
  2000.06.22 10:26
  
  안녕하세요. 최용일입니다. TRichEdit컴포넌트를 사용하세요. 델파이소스에 보시면 아주 좋은 예제가 있...
- 델초보
- •
- 2000.06.22 06:08
- 1 COMMENTS
- /
- 0 LIKES
백업을 어떻게 하나요?
- 김범석
  
  •
  
  2000.06.22 20:51
  
  폼없는 백업프로그램을 짜세요 (델파이 메뉴 new에서 unit 더블클릭) 파라독스 테이블이 들어있는 dire...
- 모승열
- 2000.06.22 06:04
- 0 COMMENTS
- /
- 0 LIKES
GSM Format으로 Wave File을 읽고 쓰고 싶은데요
- azure
- •
- 2000.06.22 05:17
- 1 COMMENTS
- /
- 0 LIKES
폰트 이름 가져오기
- 이상우
  
  •
  
  2000.06.22 05:52
  
  azure wrote: > > 워드나 한글에 보면 폰트 이름을 가진 체크박스가 있잖아요.. > 이걸 어떻게 구현해...
- 오승섭
- 2000.06.22 04:41
- 0 COMMENTS
- /
- 0 LIKES
ServerSocket 을 이용하여 MultiThread하는법 좀......

김진호
2000/06/22 07:28
Views453

Likes0

Comments3

Reports0
Tag List
수정
삭제
목록으로

←First Page

2410 2411 2412 2413 2414 2415 2416 2417 2418 2419

Last Page→