한국 델파이 개발자 모임 - DB에서 이미지를 읽어와 웹페이지에 뿌려주고 싶은데요...

DB에서 이미지를 읽어와 웹페이지에 뿌려주고 싶은데요...

try

Query1.Open;

Query1.Locate('EventNo',StrToInt(Request.QueryFields.Values['EventNo']),[]);

Picture := TPicture.Create;

Picture.Assign(Query1.FieldByName('Event_Photo'));

JPG := TJPEGImage.Create;

JPG.Assign(Picture.Graphic);

Stream := TMemoryStream.Create;

JPG.SaveToStream(Stream);

Stream.Position := 0;

Response.ContentLength := Stream.Size;

Response.ContentStream := Stream;

Response.ContentType := 'image/jpeg';

finally

JPG.Free;

Picture.Free;

위와 같이 하여 DB에 있는 event_photo에 든 jpg파일을 불러 오고자 합니다.

근데 컴파일 해보니 에러는 안 뜨는데...

두 변수 Jpg와 Picture가 initializaton되지 않았다는 경고와 함께 이미지가 제대로 불러와 지지 않습니다. 무엇이 잘못된 걸까요...?

DB는 델파이에서 기본으로 제공해주는 DBDEMOS alias에 있는 events 테이블을 이용하였습니다.

행복한 추석 되십시오.

이 게시물을

3 COMMENTS

강인규 • 2001.09.28 01:20

var

JPG : TJpegImage;

Picture : TPicture;

begin

JPG : TJPEGImage.Create;

Picture := TPicture.Create;

try

.....

uses절에 JPEG를 추가해야 합니다.

기억이 가물가물한데 WebApp에서는 TPicture가 다른 유닛을 참조했던거같기두 하구...

그럴때는 Picture := Graphics.TPicture.Create; 이런식으로 하시면 됩니다..

즐프하세여~~^-^

남호진 wrote:

> try

> Query1.Open;

> Query1.Locate('EventNo',StrToInt(Request.QueryFields.Values['EventNo']),[]);

> Picture := TPicture.Create;

> Picture.Assign(Query1.FieldByName('Event_Photo'));

> JPG := TJPEGImage.Create;

> JPG.Assign(Picture.Graphic);

> Stream := TMemoryStream.Create;

> JPG.SaveToStream(Stream);

> Stream.Position := 0;

> Response.ContentLength := Stream.Size;

> Response.ContentStream := Stream;

> Response.ContentType := 'image/jpeg';

> finally

> JPG.Free;

> Picture.Free;

>

> 위와 같이 하여 DB에 있는 event_photo에 든 jpg파일을 불러 오고자 합니다.

> 근데 컴파일 해보니 에러는 안 뜨는데...

> 두 변수 Jpg와 Picture가 initializaton되지 않았다는 경고와 함께 이미지가 제대로 불러와 지지 않습니다. 무엇이 잘못된 걸까요...?

> DB는 델파이에서 기본으로 제공해주는 DBDEMOS alias에 있는 events 테이블을 이용하였습니다.

> 행복한 추석 되십시오.
- 0
- 0
- 삭제
- 수정
- 댓글
남호진 • 2001.09.28 05:00

강인규 wrote:

> var

> JPG : TJpegImage;

> Picture : TPicture;

> begin

> JPG : TJPEGImage.Create;

> Picture := TPicture.Create;

> try

> .....

>

> uses절에 JPEG를 추가해야 합니다.

> 기억이 가물가물한데 WebApp에서는 TPicture가 다른 유닛을 참조했던거같기두 하구...

> 그럴때는 Picture := Graphics.TPicture.Create; 이런식으로 하시면 됩니다..

>

> 즐프하세여~~^-^

>

> 남호진 wrote:

> > try

> > Query1.Open;

> > Query1.Locate('EventNo',StrToInt(Request.QueryFields.Values['EventNo']),[]);

> > Picture := TPicture.Create;

> > Picture.Assign(Query1.FieldByName('Event_Photo'));

> > JPG := TJPEGImage.Create;

> > JPG.Assign(Picture.Graphic);

> > Stream := TMemoryStream.Create;

> > JPG.SaveToStream(Stream);

> > Stream.Position := 0;

> > Response.ContentLength := Stream.Size;

> > Response.ContentStream := Stream;

> > Response.ContentType := 'image/jpeg';

> > finally

> > JPG.Free;

> > Picture.Free;

> >

> > 위와 같이 하여 DB에 있는 event_photo에 든 jpg파일을 불러 오고자 합니다.

> > 근데 컴파일 해보니 에러는 안 뜨는데...

> > 두 변수 Jpg와 Picture가 initializaton되지 않았다는 경고와 함께 이미지가 제대로 불러와 지지 않습니다. 무엇이 잘못된 걸까요...?

> > DB는 델파이에서 기본으로 제공해주는 DBDEMOS alias에 있는 events 테이블을 이용하였습니다.

> > 행복한 추석 되십시오.

감사합니다. 님께서 조언해 주신대로 Create문을 예외 처리 블럭 바깥으로 빼니 경고는 없어졌는데 이미지는 여전히 네모 안에 엑스자만 뜨네요... 물론 uses문에 Graphics와 JPEG을 포함시켰습니다.

var

JPG : TJpegImage;

Stream : TMemoryStream;

Picture : TPicture;

begin

Picture := TPicture.Create;

JPG := TJPEGImage.Create;

try

Query1.Open;

Query1.Locate('EventNo',StrToInt(Request.QueryFields.Values['EventNo']),[]);

Picture.Assign(Query1.FieldByName('Event_Photo'));

JPG.Assign(Picture.Graphic);

Stream := TMemoryStream.Create;

JPG.SaveToStream(Stream);

Stream.Position := 0;

Response.ContentLength := Stream.Size;

Response.ContentStream := Stream;

Response.ContentType := 'image/jpeg';

finally

JPG.Free;

Picture.Free;

어느부분이 문제가 있을지 다시 한번 부탁드리겠습니다.

즐거운 추석 되십시오.
- 0
- 0
- 삭제
- 수정
- 댓글
강인규 • 2001.09.28 05:35

Response.SendResponse;

가 빠졌네요...

그 책(?)의 버그입니다...ㅋㄷㅋㄷ

남호진 wrote:

> 강인규 wrote:

> > var

> > JPG : TJpegImage;

> > Picture : TPicture;

> > begin

> > JPG : TJPEGImage.Create;

> > Picture := TPicture.Create;

> > try

> > .....

> >

> > uses절에 JPEG를 추가해야 합니다.

> > 기억이 가물가물한데 WebApp에서는 TPicture가 다른 유닛을 참조했던거같기두 하구...

> > 그럴때는 Picture := Graphics.TPicture.Create; 이런식으로 하시면 됩니다..

> >

> > 즐프하세여~~^-^

> >

> > 남호진 wrote:

> > > try

> > > Query1.Open;

> > > Query1.Locate('EventNo',StrToInt(Request.QueryFields.Values['EventNo']),[]);

> > > Picture := TPicture.Create;

> > > Picture.Assign(Query1.FieldByName('Event_Photo'));

> > > JPG := TJPEGImage.Create;

> > > JPG.Assign(Picture.Graphic);

> > > Stream := TMemoryStream.Create;

> > > JPG.SaveToStream(Stream);

> > > Stream.Position := 0;

> > > Response.ContentLength := Stream.Size;

> > > Response.ContentStream := Stream;

> > > Response.ContentType := 'image/jpeg';

> > > finally

> > > JPG.Free;

> > > Picture.Free;

> > >

> > > 위와 같이 하여 DB에 있는 event_photo에 든 jpg파일을 불러 오고자 합니다.

> > > 근데 컴파일 해보니 에러는 안 뜨는데...

> > > 두 변수 Jpg와 Picture가 initializaton되지 않았다는 경고와 함께 이미지가 제대로 불러와 지지 않습니다. 무엇이 잘못된 걸까요...?

> > > DB는 델파이에서 기본으로 제공해주는 DBDEMOS alias에 있는 events 테이블을 이용하였습니다.

> > > 행복한 추석 되십시오.

> 감사합니다. 님께서 조언해 주신대로 Create문을 예외 처리 블럭 바깥으로 빼니 경고는 없어졌는데 이미지는 여전히 네모 안에 엑스자만 뜨네요... 물론 uses문에 Graphics와 JPEG을 포함시켰습니다.

> var

> JPG : TJpegImage;

> Stream : TMemoryStream;

> Picture : TPicture;

> begin

> Picture := TPicture.Create;

> JPG := TJPEGImage.Create;

> try

> Query1.Open;

> Query1.Locate('EventNo',StrToInt(Request.QueryFields.Values['EventNo']),[]);

> Picture.Assign(Query1.FieldByName('Event_Photo'));

> JPG.Assign(Picture.Graphic);

> Stream := TMemoryStream.Create;

> JPG.SaveToStream(Stream);

> Stream.Position := 0;

> Response.ContentLength := Stream.Size;

> Response.ContentStream := Stream;

> Response.ContentType := 'image/jpeg';

> finally

> JPG.Free;

> Picture.Free;

> 어느부분이 문제가 있을지 다시 한번 부탁드리겠습니다.

> 즐거운 추석 되십시오.
- 0
- 0
- 삭제
- 수정
- 댓글

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

- 초보맨
- 2001.09.28 02:05
- 0 COMMENTS
- /
- 0 LIKES
감사합니다. 한가지더
- aparadin
- •
- 2001.09.28 01:32
- 3 COMMENTS
- /
- 0 LIKES
질문) 정말미치겠군요 컴퓨터를 뽀사버리고싶습니다.
- 이현신
  
  •
  
  2001.09.28 02:12
  
  예외 처리로 감싸세요.... try 프린터 구하는 함수 () 지지고 복고.... except 여기에 ...
- aparadin
  
  •
  
  2001.09.28 02:42
  
  procedure TfScreenFrame.BitBtn1Click(Sender: TObject); var l_PrinterDevice : Array[0..255]of Cha...
- 다음
  
  •
  
  2001.09.28 03:19
  
  이곳에 첨글 올리네요.. 항상 받기만 했습니다. 전 아래와 같이 했었는데 참조하세요. try M...
- 초보
- 2001.09.28 01:28
- 0 COMMENTS
- /
- 0 LIKES
프로젝트 열때 ADO 연결 실패메세지...
- 아줌마
- 2001.09.28 01:17
- 0 COMMENTS
- /
- 0 LIKES
bde Error.....
- 델초보
- 2001.09.28 00:57
- 0 COMMENTS
- /
- 0 LIKES
컴포넌트 색깔 속성 적용하기??
- 포반장
- 2001.09.28 00:49
- 0 COMMENTS
- /
- 0 LIKES
내프로그램에서 탐색기로 드래그.....
- ljb007
- 2001.09.28 00:34
- 0 COMMENTS
- /
- 0 LIKES
Asvne32(어싱크) 컴포넌트 사용방법좀 알켜주세요.
- 초보맨
- •
- 2001.09.28 00:26
- 2 COMMENTS
- /
- 0 LIKES
델파이에서 get방식으로 ASP로 데이터 보내기
- 강인규
  
  •
  
  2001.09.28 01:14
  
  HttpClient를 쓰시면 됩니다. 아마 FastNet에도 있을텐데...제가 컴퍼넌트를 아예 삭제해버렸네요...ㅡ.ㅡ...
- 초보맨
  
  •
  
  2001.09.28 02:09
  
  감사합니다. 한가지더 여쭈어 보겠습니다. 델파이에서 ASP를 실행시켜야 되는데. 어떻게 해야 되는데.....
- 이원택
- •
- 2001.09.27 23:45
- 1 COMMENTS
- /
- 0 LIKES
화일을 다운 받으려고 하는데.... 쩝.
- 최용일
  
  •
  
  2001.09.28 00:08
  
  안녕하세요. 최용일입니다. NMFTP, Indy중 아무거나 쓰시면 되구요. 클라이언트 프로그램만 있으면 안됩...
- 초보
- •
- 2001.09.27 23:41
- 2 COMMENTS
- /
- 0 LIKES
Registrey 쓰기, 읽기..
- 최용일
  
  •
  
  2001.09.28 00:02
  
  안녕하세요. 최용일입니다. 흠~ 님이 만드신것은 Key가 아니라 Value네요... 그러니까 HasSubKeys대신에...
- 초보
  
  •
  
  2001.09.28 00:45
  
  안녕하세요. 최용일입니다. 흠~ 님이 만드신것은 Key가 아니라 Value네요... 그러니까 HasSubKeys대신에...
- 남호진
- •
- 2001.09.27 23:24
- 3 COMMENTS
- /
- 0 LIKES
DB에서 이미지를 읽어와 웹페이지에 뿌려주고 싶은데요...

try Query1.Open; Query1.Locate('EventNo',StrToInt(Request.QueryFields.Values['EventNo']),[]); Picture := TPicture.Create; Picture.Assign(Query1.FieldByName('Event_Photo')); JPG := TJPEGImage.Create; JPG.Assign(Picture.Gra...
- 강인규
  
  •
  
  2001.09.28 01:20
  
  var JPG : TJpegImage; Picture : TPicture; begin JPG : TJPEGImage.Create; Picture := TPi...
- 남호진
  
  •
  
  2001.09.28 05:00
  
  강인규 wrote: > var > JPG : TJpegImage; > Picture : TPicture; > begin > JPG : TJPEGImage....
- 강인규
  
  •
  
  2001.09.28 05:35
  
  Response.SendResponse; 가 빠졌네요... 그 책(?)의 버그입니다...ㅋㄷㅋㄷ 남호진 wrote: > ...
- 이상우
- 2001.09.27 22:53
- 0 COMMENTS
- /
- 0 LIKES
VCL이란 무엇인가요?
- 델피초보
- 2001.09.27 22:48
- 0 COMMENTS
- /
- 0 LIKES
Image에서 Pixel을 Twip로 단위변경??
- 델매니아
- •
- 2001.09.27 22:37
- 2 COMMENTS
- /
- 0 LIKES
progress bar를 사용하려 하는데요!!
- 홍성락
  
  •
  
  2001.09.28 00:20
  
  델매니아 wrote: > 복사를 하는 과정의 진행률을 보여주려 합니다. > > 혹시 고수님들 중에 아시는 분...
- 최용일
  
  •
  
  2001.09.28 00:15
  
  안녕하세요. 최용일입니다. 진행률은 복사하면서 TTrackBar나 TProgressBar를 이용해서 표시해주시면 되...
- 이지원
- 2001.09.27 22:05
- 0 COMMENTS
- /
- 0 LIKES
<질문>...오라클 Insert시...Long type 문제
- 지민
- •
- 2001.09.27 22:03
- 1 COMMENTS
- /
- 0 LIKES
도와주세요..인터베이스 SYSDBA 패스워드를 잊었어요
- 나그네
  
  •
  
  2001.09.27 22:54
  
  기존의 인터베이스를 완전히 삭제하고 새로 설치하십시오. 그리고 SYSDBA/masterkey로 접속하면 문제없을 ...
- 이지우
- 2001.09.27 21:10
- 0 COMMENTS
- /
- 0 LIKES
tabcontrol 사용시 메뉴 변경 방법에 대해..
- 성필
- •
- 2001.09.27 20:31
- 1 COMMENTS
- /
- 0 LIKES
퀵레포트에서 글자깨짐..현상
- coolling
  
  •
  
  2001.09.28 21:24
  
  QrDBText의 size가 글자보다 작으면 그런 현상이 나타납니다. 영어는 그냥 잘리구요.. 한글이 2바이트니...
- 바보
- •
- 2001.09.27 20:00
- 1 COMMENTS
- /
- 0 LIKES
vfw를 이용해서 녹화를 하는데요.
- 박상윤
  
  •
  
  2001.09.28 00:05
  
  음성과 영상의 동기화 문제입니다. 모든 헤더에는 TimeStamp라는 것이 기록이 되어 있어서 저장 할때나...
- 용이...
- 2001.09.27 19:59
- 0 COMMENTS
- /
- 0 LIKES
컴포넌트 등록시 에라 발생

남호진
2001/09/27 23:24
Views668

Likes0

Comments3

Reports0
Tag List
수정
삭제
목록으로

←First Page

1565 1566 1567 1568 1569 1570 1571 1572 1573 1574

Last Page→