Q&A
- JPG FILE DB에 저장,읽기 ==> 화면 30%이상
여기 저기서 쏘스를 구해서
SQL_SERVER DB에 저장하고, 읽기까지 성공하였는데
TIMAGE 컴포넘트에서 해상도(?)가 문제입니다.
TABLE 컴포넌트를 써서 읽으면 해상도(완성도) 100%
QUERY 컴포넌트를 써서 읽으면 해상도(완성도) 70%
상태는 다음과 같습니다.
-------------------------
| |
| |
| |
| 정상 |
| |
| |
| |
| |
-------------------------
| |
| 깨져서 나옴 |
| |
-------------------------
[TIMAGE]
델파이 고수님들의 조언을 부탁드립니다.(긴급)
그리고 참고쏘스를 올려주신 분께 감사드립니다.
procedure TForm1.Button1Click(Sender: TObject);
begin
Query1.Close;
Query1.SQL.Clear;
Query1.SQL.Add('INSERT INTO test_pic ');
Query1.SQL.Add('(pic_NO,pic_IMAGE) ');
Query1.SQL.Add('VALUES (:pic_NO, :pic_IMAGE)');
Query1.ParamByName('pic_no').AsString := Edit1.Text;
Query1.ParamByName('pic_IMAGE').LoadFromFile('c:aaaa4444.jpg',FTBLOB);
Query1.Prepare;
Query1.ExecSQL;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
Query2.open;
// table1.open;
end;
procedure TForm1.DataSource1DataChange(Sender: TObject; Field: TField);
var
aJpeg : TJpegImage;
Buffer: PChar;
MemSize: Integer;
BStream : TStream;
begin
Image1.Picture := nil;
BStream := Query2.CreateBlobStream(Query2.FieldByName('pic_IMAGE'),bmRead);
// BStream := table1.CreateBlobStream(table1.FieldByName('pic_IMAGE'),bmRead);
MemSize := BStream.Size;
Inc(MemSize);
Buffer := AllocMem(MemSize);
try
BStream.Read(Buffer^, MemSize);
BStream.Position := 0;
aJpeg := TJPEGImage.Create;
try
aJpeg.LoadFromStream(BStream);
Image1.Picture.Assign(aJpeg);
finally
aJpeg.Free;
end;
finally
FreeMem(Buffer, MemSize);
end;
end;
SQL_SERVER DB에 저장하고, 읽기까지 성공하였는데
TIMAGE 컴포넘트에서 해상도(?)가 문제입니다.
TABLE 컴포넌트를 써서 읽으면 해상도(완성도) 100%
QUERY 컴포넌트를 써서 읽으면 해상도(완성도) 70%
상태는 다음과 같습니다.
-------------------------
| |
| |
| |
| 정상 |
| |
| |
| |
| |
-------------------------
| |
| 깨져서 나옴 |
| |
-------------------------
[TIMAGE]
델파이 고수님들의 조언을 부탁드립니다.(긴급)
그리고 참고쏘스를 올려주신 분께 감사드립니다.
procedure TForm1.Button1Click(Sender: TObject);
begin
Query1.Close;
Query1.SQL.Clear;
Query1.SQL.Add('INSERT INTO test_pic ');
Query1.SQL.Add('(pic_NO,pic_IMAGE) ');
Query1.SQL.Add('VALUES (:pic_NO, :pic_IMAGE)');
Query1.ParamByName('pic_no').AsString := Edit1.Text;
Query1.ParamByName('pic_IMAGE').LoadFromFile('c:aaaa4444.jpg',FTBLOB);
Query1.Prepare;
Query1.ExecSQL;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
Query2.open;
// table1.open;
end;
procedure TForm1.DataSource1DataChange(Sender: TObject; Field: TField);
var
aJpeg : TJpegImage;
Buffer: PChar;
MemSize: Integer;
BStream : TStream;
begin
Image1.Picture := nil;
BStream := Query2.CreateBlobStream(Query2.FieldByName('pic_IMAGE'),bmRead);
// BStream := table1.CreateBlobStream(table1.FieldByName('pic_IMAGE'),bmRead);
MemSize := BStream.Size;
Inc(MemSize);
Buffer := AllocMem(MemSize);
try
BStream.Read(Buffer^, MemSize);
BStream.Position := 0;
aJpeg := TJPEGImage.Create;
try
aJpeg.LoadFromStream(BStream);
Image1.Picture.Assign(aJpeg);
finally
aJpeg.Free;
end;
finally
FreeMem(Buffer, MemSize);
end;
end;
1
COMMENTS
(NOTICE) You must be logged in to comment on this post.
-
- 아기코알라
- •
- 2001.06.29 22:30
- 1 COMMENTS
- /
- 0 LIKES
-
이성찬•2001.06.29 23:07SELECT DISTINCT 장비명 FROM 장비
-
- 건
- 2001.06.29 21:35
- 0 COMMENTS
- /
- 0 LIKES
-
- 아 힘들어
- •
- 2001.06.29 21:08
- 1 COMMENTS
- /
- 0 LIKES
-
방문현•2001.06.30 17:58아 힘들어 wrote: > 사원정보 폼을 짜고 있는데요 > DB에 저장된 사진의 경로를 불러드릴때 사진이 있는...
-
- 초보맨
- 2001.06.29 20:52
- 0 COMMENTS
- /
- 0 LIKES
-
- 난새
- 2001.06.29 20:36
- 0 COMMENTS
- /
- 0 LIKES
-
- 왕초보
- •
- 2001.06.29 20:27
- 1 COMMENTS
- /
- 0 LIKES
-
파도랑•2001.12.11 00:36문자열 안에 들어가는 '' 는 2개씩 써주시면 됩니다. Query1.SQL.Clear; Query1.SQL.Add('select * fro...
-
- 컴돌
- 2001.06.29 20:00
- 0 COMMENTS
- /
- 0 LIKES
-
- 지니
- •
- 2001.06.29 20:00
- 1 COMMENTS
- /
- 0 LIKES
-
파도랑•2001.12.11 00:36카드리더가 어떤 방식인지 알 수 있나요? 대부분의 카드리더는 키보드 방식이라서 아무런 컴포넌트 필...
-
- 오승섭
- •
- 2001.06.29 18:27
- 1 COMMENTS
- /
- 0 LIKES
-
파도랑•2001.12.11 00:37그냥 Caption := '원래캡션이름 - '+Form1.ActiveMDIChild.Caption; 이렇게 하심 될텐데여... 오승섭 ...
-
- 초보여요
- •
- 2001.06.29 16:11
- 4 COMMENTS
- /
- 0 LIKES
-
뽀록이•2001.06.29 22:36님 질문이 좀 이상하네요 자세하게 좀 적어 주세요~~~~ 죄송합니다.답변이 되지 않아서~~~~ 초보...
-
초보여요•2001.06.29 23:10procedure TForm1.SpeedButton1Click(Sender: TObject); var PointM: TPoint; begin if not blLogi...
-
김지엽•2001.06.29 19:23TPopupMenu의 표준 이벤트 중에는 'OnPopup'이라는게 있습니다. 팝업할 때마다 발생하는 이벤트겠죠? 그걸 ...
-
초보여요•2001.06.29 20:47우선 답변 감사합니다... 근데요... 제가 실력이 부족해서 무슨 말씀인지 잘 모르겠네요...(쪽팔리당......
-
- 초보
- 2001.06.29 12:52
- 0 COMMENTS
- /
- 0 LIKES
-
- 홍진혁
- •
- 2001.06.29 11:01
- 2 COMMENTS
- /
- 0 LIKES
-
덕신•2001.10.09 02:05홍진혁 wrote: > Main Form (formstyle = normal)에서 MDI 형식을 가진 form을 호출했는데 (show로 부름) ...
-
타락천사•2001.06.29 19:00안녕하세여..타락임다..^^ MDI Child 는 Create만 시켜주면 됩니다.. 즐푸하세여..^^ 타락천사......
-
- 아이보리
- •
- 2001.06.29 07:43
- 1 COMMENTS
- /
- 0 LIKES
여기 저기서 쏘스를 구해서 SQL_SERVER DB에 저장하고, 읽기까지 성공하였는데 TIMAGE 컴포넘트에서 해상도(?)가 문제입니다. TABLE 컴포넌트를 써서 읽으면 해상도(완성도) 100% QUERY 컴포넌트를 써서 읽으면 해상도(완성도) 70% 상태는...-
남기석•2001.07.03 08:16안녕하세요 청개구리 남기석( http://www.delphitravel.com )입니다. 쿼리를 이용해서 받은 파일을 저...
-
- 박씨
- •
- 2001.06.29 07:40
- 1 COMMENTS
- /
- 0 LIKES
-
이진기•2006.07.12 00:59TotalColCount 를 사용하시면 됩니다
-
- 김성주
- 2001.06.29 07:06
- 0 COMMENTS
- /
- 0 LIKES
-
- 델~열띰히
- •
- 2001.06.29 07:04
- 1 COMMENTS
- /
- 0 LIKES
-
행인4•2001.06.29 20:07데이타베이스 관련 책 : 엔코아에서 나온 대용량 데이타 베이스 솔루션 I, II가 있습니다. 조만간 III도 나...
-
- 장재영
- •
- 2001.06.29 06:58
- 1 COMMENTS
- /
- 0 LIKES
-
블랙봉•2001.06.29 07:36장재영 wrote: > 오라클에서 날짜 필드에다 공란으로 넣고 싶은데 에라가 나네요.. > 해결방법은 어
-
- 데이타베이스
- •
- 2001.06.29 05:33
- 1 COMMENTS
- /
- 0 LIKES
-
저렙•2001.06.29 18:44델파이 쓰시면 이름 모더라 델 실행화일 위에 보면 다른 유틸하나 이떠여 그거 마이그레이션 해줌다. 걸...
-
- 손홍식
- •
- 2001.06.29 04:33
- 1 COMMENTS
- /
- 0 LIKES
-
공성환•2001.06.29 06:43ParamByName('AVC').AsInteger := StrToIntDef(Edit1.Text,0) : 이렇게 하면 될까? 델파이 안한지 5...
-
- 피카피카
- 2001.06.29 04:20
- 0 COMMENTS
- /
- 0 LIKES
청개구리 남기석( http://www.delphitravel.com )입니다.
쿼리를 이용해서 받은 파일을 저장해 보면
아마도 32KB 정도 될 것입니다.
이것은 BDE 에서 BLOB SIZE 를 32 KB 로 주었기 때문입니다.
BDE 에서 오라클 Alias 의 BLOB SIZE 를 적당한 크기로 늘려주시면
해결될 겁니다.
도움이 되셨기를...
======================================================================
아이보리 wrote:
> 여기 저기서 쏘스를 구해서
> SQL_SERVER DB에 저장하고, 읽기까지 성공하였는데
> TIMAGE 컴포넘트에서 해상도(?)가 문제입니다.
> TABLE 컴포넌트를 써서 읽으면 해상도(완성도) 100%
> QUERY 컴포넌트를 써서 읽으면 해상도(완성도) 70%
> 상태는 다음과 같습니다.
> -------------------------
> | |
> | |
> | |
> | 정상 |
> | |
> | |
> | |
> | |
> -------------------------
> | |
> | 깨져서 나옴 |
> | |
> -------------------------
> [TIMAGE]
>
> 델파이 고수님들의 조언을 부탁드립니다.(긴급)
>
> 그리고 참고쏘스를 올려주신 분께 감사드립니다.
>
> procedure TForm1.Button1Click(Sender: TObject);
> begin
> Query1.Close;
> Query1.SQL.Clear;
> Query1.SQL.Add('INSERT INTO test_pic ');
> Query1.SQL.Add('(pic_NO,pic_IMAGE) ');
> Query1.SQL.Add('VALUES (:pic_NO, :pic_IMAGE)');
> Query1.ParamByName('pic_no').AsString := Edit1.Text;
> Query1.ParamByName('pic_IMAGE').LoadFromFile('c:aaaa4444.jpg',FTBLOB);
> Query1.Prepare;
> Query1.ExecSQL;
> end;
>
> procedure TForm1.Button2Click(Sender: TObject);
> begin
> Query2.open;
> // table1.open;
> end;
>
> procedure TForm1.DataSource1DataChange(Sender: TObject; Field: TField);
> var
> aJpeg : TJpegImage;
> Buffer: PChar;
> MemSize: Integer;
> BStream : TStream;
> begin
> Image1.Picture := nil;
> BStream := Query2.CreateBlobStream(Query2.FieldByName('pic_IMAGE'),bmRead);
> // BStream := table1.CreateBlobStream(table1.FieldByName('pic_IMAGE'),bmRead);
> MemSize := BStream.Size;
> Inc(MemSize);
> Buffer := AllocMem(MemSize);
> try
> BStream.Read(Buffer^, MemSize);
> BStream.Position := 0;
> aJpeg := TJPEGImage.Create;
> try
> aJpeg.LoadFromStream(BStream);
> Image1.Picture.Assign(aJpeg);
> finally
> aJpeg.Free;
> end;
> finally
> FreeMem(Buffer, MemSize);
> end;
>
> end;
>