Q&A
- mysql 고수님 제발 읽어주시고 답좀.. 속이다탑니다//
안녕하십니까?
델파이5.0과 mysql을 이용하여, db에 이미지를 꼭 저장해야 합니다.
디렉토리 경로를 저장하는것이 아니라 이미지 자체를 꼭 저장해야 되거든요.
이미지의 크기는 25k 안쪽입니다.
아래 소스대로 코딩해서 돌려 봤는데..
db안에 흔적이 안남는것 같아서요.. 답변좀 부탁 드립니다..
참 sql을 이용했습니다..
소스...
입력하기
procedure TForm1.FlatButton1Click(Sender: TObject);
begin
with query1 do begin
sql.Clear;
sql.add(' insert into xray ');
sql.Add('(model,lefttop,topcenter,righttop,center,leftbottom,bottomcenter,rightbottom)');
sql.Add(' values(:test, :image1, :image2, ');
sql.Add(' :image3, :image4, :image5, ');
sql.Add(' :image6, :image7)');
parambyname('test').asstring := model.text ;
parambyname('image1').assign(image1.picture.bitmap);
parambyname('image2').assign(image2.picture.bitmap);
parambyname('image3').assign(image3.picture.bitmap);
parambyname('image4').assign(image4.picture.bitmap);
parambyname('image5').assign(image5.picture.bitmap);
parambyname('image6').assign(image6.picture.bitmap);
parambyname('image7').assign(image7.picture.bitmap);
query1.ExecSql;
end;
query1.Close;
end;
불러오기
procedure TForm1.FlatButton2Click(Sender: TObject);
begin
query2.Close;
query2.Sql.Clear;
query2.sql.Add(' select * from xray ');
query2.sql.Add(' where num = 21 ');
query2.open;
image8.Picture.Assign(query2.fieldbyname('lefttop'));
end;
end.
델파이5.0과 mysql을 이용하여, db에 이미지를 꼭 저장해야 합니다.
디렉토리 경로를 저장하는것이 아니라 이미지 자체를 꼭 저장해야 되거든요.
이미지의 크기는 25k 안쪽입니다.
아래 소스대로 코딩해서 돌려 봤는데..
db안에 흔적이 안남는것 같아서요.. 답변좀 부탁 드립니다..
참 sql을 이용했습니다..
소스...
입력하기
procedure TForm1.FlatButton1Click(Sender: TObject);
begin
with query1 do begin
sql.Clear;
sql.add(' insert into xray ');
sql.Add('(model,lefttop,topcenter,righttop,center,leftbottom,bottomcenter,rightbottom)');
sql.Add(' values(:test, :image1, :image2, ');
sql.Add(' :image3, :image4, :image5, ');
sql.Add(' :image6, :image7)');
parambyname('test').asstring := model.text ;
parambyname('image1').assign(image1.picture.bitmap);
parambyname('image2').assign(image2.picture.bitmap);
parambyname('image3').assign(image3.picture.bitmap);
parambyname('image4').assign(image4.picture.bitmap);
parambyname('image5').assign(image5.picture.bitmap);
parambyname('image6').assign(image6.picture.bitmap);
parambyname('image7').assign(image7.picture.bitmap);
query1.ExecSql;
end;
query1.Close;
end;
불러오기
procedure TForm1.FlatButton2Click(Sender: TObject);
begin
query2.Close;
query2.Sql.Clear;
query2.sql.Add(' select * from xray ');
query2.sql.Add(' where num = 21 ');
query2.open;
image8.Picture.Assign(query2.fieldbyname('lefttop'));
end;
end.
7
COMMENTS
-
-
코딩내용상 비트맵으로 저장 되나 보군여...
델파이 Data Controls 탭에 TDBImage란 컴포넌트를 사용해보시지여....
별다른 코딩없이 프로퍼티만 잘 연결하면 되실것 같네요....
JPG, GIF 이미지는 별도의 코딩작업이 필요하며 해당 팁자료실에서 한번
찾아보시지여 그럼 즐코하세여...
아메리칸파이 wrote:
> 안녕하십니까?
>
> 델파이5.0과 mysql을 이용하여, db에 이미지를 꼭 저장해야 합니다.
>
> 디렉토리 경로를 저장하는것이 아니라 이미지 자체를 꼭 저장해야 되거든요.
>
> 이미지의 크기는 25k 안쪽입니다.
>
> 아래 소스대로 코딩해서 돌려 봤는데..
>
> db안에 흔적이 안남는것 같아서요.. 답변좀 부탁 드립니다..
>
> 참 sql을 이용했습니다..
>
> 소스...
>
>
> 입력하기
> procedure TForm1.FlatButton1Click(Sender: TObject);
> begin
> with query1 do begin
> sql.Clear;
> sql.add(' insert into xray ');
> sql.Add('(model,lefttop,topcenter,righttop,center,leftbottom,bottomcenter,rightbottom)');
> sql.Add(' values(:test, :image1, :image2, ');
> sql.Add(' :image3, :image4, :image5, ');
> sql.Add(' :image6, :image7)');
>
> parambyname('test').asstring := model.text ;
>
> parambyname('image1').assign(image1.picture.bitmap);
> parambyname('image2').assign(image2.picture.bitmap);
> parambyname('image3').assign(image3.picture.bitmap);
> parambyname('image4').assign(image4.picture.bitmap);
> parambyname('image5').assign(image5.picture.bitmap);
> parambyname('image6').assign(image6.picture.bitmap);
> parambyname('image7').assign(image7.picture.bitmap);
> query1.ExecSql;
> end;
> query1.Close;
> end;
>
> 불러오기
> procedure TForm1.FlatButton2Click(Sender: TObject);
>
> begin
> query2.Close;
> query2.Sql.Clear;
> query2.sql.Add(' select * from xray ');
> query2.sql.Add(' where num = 21 ');
> query2.open;
>
> image8.Picture.Assign(query2.fieldbyname('lefttop'));
>
>
> end;
> end.
>
-
답변 감사드리고요..
db에 이미지가 저장될 필드를 blob로 설정을 했는데요..
아래 코딩대로 해서 저장하면 에러 메세지는 안뜨거든요..
근대 db를 살펴보면, 저장된 이름도 없고 그냥 blob에서 대문자로 BLOB로
필드안의 문자가 바뀝니다.
이게 과연 저장 된건가요..
아래 불러들이기로 해도 이미지는 나타나지 않아요?
뭔가 이상합니다.. 코딩에 문제가 있는듯 고수님 도와주세요..
김하늘 wrote:
> 코딩내용상 비트맵으로 저장 되나 보군여...
>
> 델파이 Data Controls 탭에 TDBImage란 컴포넌트를 사용해보시지여....
>
> 별다른 코딩없이 프로퍼티만 잘 연결하면 되실것 같네요....
>
> JPG, GIF 이미지는 별도의 코딩작업이 필요하며 해당 팁자료실에서 한번
>
> 찾아보시지여 그럼 즐코하세여...
>
>
> 아메리칸파이 wrote:
> > 안녕하십니까?
> >
> > 델파이5.0과 mysql을 이용하여, db에 이미지를 꼭 저장해야 합니다.
> >
> > 디렉토리 경로를 저장하는것이 아니라 이미지 자체를 꼭 저장해야 되거든요.
> >
> > 이미지의 크기는 25k 안쪽입니다.
> >
> > 아래 소스대로 코딩해서 돌려 봤는데..
> >
> > db안에 흔적이 안남는것 같아서요.. 답변좀 부탁 드립니다..
> >
> > 참 sql을 이용했습니다..
> >
> > 소스...
> >
> >
> > 입력하기
> > procedure TForm1.FlatButton1Click(Sender: TObject);
> > begin
> > with query1 do begin
> > sql.Clear;
> > sql.add(' insert into xray ');
> > sql.Add('(model,lefttop,topcenter,righttop,center,leftbottom,bottomcenter,rightbottom)');
> > sql.Add(' values(:test, :image1, :image2, ');
> > sql.Add(' :image3, :image4, :image5, ');
> > sql.Add(' :image6, :image7)');
> >
> > parambyname('test').asstring := model.text ;
> >
> > parambyname('image1').assign(image1.picture.bitmap);
> > parambyname('image2').assign(image2.picture.bitmap);
> > parambyname('image3').assign(image3.picture.bitmap);
> > parambyname('image4').assign(image4.picture.bitmap);
> > parambyname('image5').assign(image5.picture.bitmap);
> > parambyname('image6').assign(image6.picture.bitmap);
> > parambyname('image7').assign(image7.picture.bitmap);
> > query1.ExecSql;
> > end;
> > query1.Close;
> > end;
> >
> > 불러오기
> > procedure TForm1.FlatButton2Click(Sender: TObject);
> >
> > begin
> > query2.Close;
> > query2.Sql.Clear;
> > query2.sql.Add(' select * from xray ');
> > query2.sql.Add(' where num = 21 ');
> > query2.open;
> >
> > image8.Picture.Assign(query2.fieldbyname('lefttop'));
> >
> >
> > end;
> > end.
> >
-
대문자로 BLOB 이라고 찍혀있다면 값을 들어간것 같네요...
비트맵이라면 SQL Explorer 를 사용하여
Exploer Tool Buttton을 눌러서 보세여...
아메리칸파이` wrote:
> 답변 감사드리고요..
>
> db에 이미지가 저장될 필드를 blob로 설정을 했는데요..
>
> 아래 코딩대로 해서 저장하면 에러 메세지는 안뜨거든요..
>
> 근대 db를 살펴보면, 저장된 이름도 없고 그냥 blob에서 대문자로 BLOB로
>
> 필드안의 문자가 바뀝니다.
>
> 이게 과연 저장 된건가요..
>
> 아래 불러들이기로 해도 이미지는 나타나지 않아요?
>
> 뭔가 이상합니다.. 코딩에 문제가 있는듯 고수님 도와주세요..
>
>
>
>
>
> 김하늘 wrote:
> > 코딩내용상 비트맵으로 저장 되나 보군여...
> >
> > 델파이 Data Controls 탭에 TDBImage란 컴포넌트를 사용해보시지여....
> >
> > 별다른 코딩없이 프로퍼티만 잘 연결하면 되실것 같네요....
> >
> > JPG, GIF 이미지는 별도의 코딩작업이 필요하며 해당 팁자료실에서 한번
> >
> > 찾아보시지여 그럼 즐코하세여...
> >
> >
> > 아메리칸파이 wrote:
> > > 안녕하십니까?
> > >
> > > 델파이5.0과 mysql을 이용하여, db에 이미지를 꼭 저장해야 합니다.
> > >
> > > 디렉토리 경로를 저장하는것이 아니라 이미지 자체를 꼭 저장해야 되거든요.
> > >
> > > 이미지의 크기는 25k 안쪽입니다.
> > >
> > > 아래 소스대로 코딩해서 돌려 봤는데..
> > >
> > > db안에 흔적이 안남는것 같아서요.. 답변좀 부탁 드립니다..
> > >
> > > 참 sql을 이용했습니다..
> > >
> > > 소스...
> > >
> > >
> > > 입력하기
> > > procedure TForm1.FlatButton1Click(Sender: TObject);
> > > begin
> > > with query1 do begin
> > > sql.Clear;
> > > sql.add(' insert into xray ');
> > > sql.Add('(model,lefttop,topcenter,righttop,center,leftbottom,bottomcenter,rightbottom)');
> > > sql.Add(' values(:test, :image1, :image2, ');
> > > sql.Add(' :image3, :image4, :image5, ');
> > > sql.Add(' :image6, :image7)');
> > >
> > > parambyname('test').asstring := model.text ;
> > >
> > > parambyname('image1').assign(image1.picture.bitmap);
> > > parambyname('image2').assign(image2.picture.bitmap);
> > > parambyname('image3').assign(image3.picture.bitmap);
> > > parambyname('image4').assign(image4.picture.bitmap);
> > > parambyname('image5').assign(image5.picture.bitmap);
> > > parambyname('image6').assign(image6.picture.bitmap);
> > > parambyname('image7').assign(image7.picture.bitmap);
> > > query1.ExecSql;
> > > end;
> > > query1.Close;
> > > end;
> > >
> > > 불러오기
> > > procedure TForm1.FlatButton2Click(Sender: TObject);
> > >
> > > begin
> > > query2.Close;
> > > query2.Sql.Clear;
> > > query2.sql.Add(' select * from xray ');
> > > query2.sql.Add(' where num = 21 ');
> > > query2.open;
> > >
> > > image8.Picture.Assign(query2.fieldbyname('lefttop'));
> > >
> > >
> > > end;
> > > end.
> > >
-
김하늘 wrote:
> 대문자로 BLOB 이라고 찍혀있다면 값을 들어간것 같네요...
> 비트맵이라면 SQL Explorer 를 사용하여
> Exploer Tool Buttton을 눌러서 보세여...
>
>
> 아메리칸파이` wrote:
> > 답변 감사드리고요..
> >
> > db에 이미지가 저장될 필드를 blob로 설정을 했는데요..
> >
> > 아래 코딩대로 해서 저장하면 에러 메세지는 안뜨거든요..
> >
> > 근대 db를 살펴보면, 저장된 이름도 없고 그냥 blob에서 대문자로 BLOB로
> >
> > 필드안의 문자가 바뀝니다.
> >
> > 이게 과연 저장 된건가요..
> >
> > 아래 불러들이기로 해도 이미지는 나타나지 않아요?
> >
> > 뭔가 이상합니다.. 코딩에 문제가 있는듯 고수님 도와주세요..
> >
> >
> >
> >
> >
> > 김하늘 wrote:
> > > 코딩내용상 비트맵으로 저장 되나 보군여...
> > >
> > > 델파이 Data Controls 탭에 TDBImage란 컴포넌트를 사용해보시지여....
> > >
> > > 별다른 코딩없이 프로퍼티만 잘 연결하면 되실것 같네요....
> > >
> > > JPG, GIF 이미지는 별도의 코딩작업이 필요하며 해당 팁자료실에서 한번
> > >
> > > 찾아보시지여 그럼 즐코하세여...
> > >
> > >
> > > 아메리칸파이 wrote:
> > > > 안녕하십니까?
> > > >
> > > > 델파이5.0과 mysql을 이용하여, db에 이미지를 꼭 저장해야 합니다.
> > > >
> > > > 디렉토리 경로를 저장하는것이 아니라 이미지 자체를 꼭 저장해야 되거든요.
> > > >
> > > > 이미지의 크기는 25k 안쪽입니다.
> > > >
> > > > 아래 소스대로 코딩해서 돌려 봤는데..
> > > >
> > > > db안에 흔적이 안남는것 같아서요.. 답변좀 부탁 드립니다..
> > > >
> > > > 참 sql을 이용했습니다..
> > > >
> > > > 소스...
> > > >
> > > >
> > > > 입력하기
> > > > procedure TForm1.FlatButton1Click(Sender: TObject);
> > > > begin
> > > > with query1 do begin
> > > > sql.Clear;
> > > > sql.add(' insert into xray ');
> > > > sql.Add('(model,lefttop,topcenter,righttop,center,leftbottom,bottomcenter,rightbottom)');
> > > > sql.Add(' values(:test, :image1, :image2, ');
> > > > sql.Add(' :image3, :image4, :image5, ');
> > > > sql.Add(' :image6, :image7)');
> > > >
> > > > parambyname('test').asstring := model.text ;
> > > >
> > > > parambyname('image1').assign(image1.picture.bitmap);
> > > > parambyname('image2').assign(image2.picture.bitmap);
> > > > parambyname('image3').assign(image3.picture.bitmap);
> > > > parambyname('image4').assign(image4.picture.bitmap);
> > > > parambyname('image5').assign(image5.picture.bitmap);
> > > > parambyname('image6').assign(image6.picture.bitmap);
> > > > parambyname('image7').assign(image7.picture.bitmap);
> > > > query1.ExecSql;
> > > > end;
> > > > query1.Close;
> > > > end;
> > > >
> > > > 불러오기
> > > > procedure TForm1.FlatButton2Click(Sender: TObject);
> > > >
> > > > begin
> > > > query2.Close;
> > > > query2.Sql.Clear;
> > > > query2.sql.Add(' select * from xray ');
> > > > query2.sql.Add(' where num = 21 ');
> > > > query2.open;
> > > >
> > > > image8.Picture.Assign(query2.fieldbyname('lefttop'));
> > > >
> > > >
> > > > end;
> > > > end.
> > > >
-
아메리칸파이 wrote:
> 안녕하십니까?
>
> 델파이5.0과 mysql을 이용하여, db에 이미지를 꼭 저장해야 합니다.
>
> 디렉토리 경로를 저장하는것이 아니라 이미지 자체를 꼭 저장해야 되거든요.
>
> 이미지의 크기는 25k 안쪽입니다.
>
> 아래 소스대로 코딩해서 돌려 봤는데..
>
> db안에 흔적이 안남는것 같아서요.. 답변좀 부탁 드립니다..
>
> 참 sql을 이용했습니다..
>
> 소스...
>
>
> 입력하기
> procedure TForm1.FlatButton1Click(Sender: TObject);
> begin
> with query1 do begin
> sql.Clear;
> sql.add(' insert into xray ');
> sql.Add('(model,lefttop,topcenter,righttop,center,leftbottom,bottomcenter,rightbottom)');
> sql.Add(' values(:test, :image1, :image2, ');
> sql.Add(' :image3, :image4, :image5, ');
> sql.Add(' :image6, :image7)');
>
> parambyname('test').asstring := model.text ;
>
> parambyname('image1').assign(image1.picture.bitmap);
> parambyname('image2').assign(image2.picture.bitmap);
> parambyname('image3').assign(image3.picture.bitmap);
> parambyname('image4').assign(image4.picture.bitmap);
> parambyname('image5').assign(image5.picture.bitmap);
> parambyname('image6').assign(image6.picture.bitmap);
> parambyname('image7').assign(image7.picture.bitmap);
> query1.ExecSql;
> end;
> query1.Close;
> end;
>
> 불러오기
> procedure TForm1.FlatButton2Click(Sender: TObject);
>
> begin
> query2.Close;
> query2.Sql.Clear;
> query2.sql.Add(' select * from xray ');
> query2.sql.Add(' where num = 21 ');
> query2.open;
>
> image8.Picture.Assign(query2.fieldbyname('lefttop'));
>
>
> end;
> end.
>
음..query1을 닫기 전에 저장하면 되지않을까요??
저두 잘몰라요...^^
query1.post;
query1.close;
그럼...
-
델초보 wrote:
> 아메리칸파이 wrote:
> > 안녕하십니까?
> >
> > 델파이5.0과 mysql을 이용하여, db에 이미지를 꼭 저장해야 합니다.
> >
> > 디렉토리 경로를 저장하는것이 아니라 이미지 자체를 꼭 저장해야 되거든요.
> >
> > 이미지의 크기는 25k 안쪽입니다.
> >
> > 아래 소스대로 코딩해서 돌려 봤는데..
> >
> > db안에 흔적이 안남는것 같아서요.. 답변좀 부탁 드립니다..
> >
> > 참 sql을 이용했습니다..
> >
> > 소스...
> >
> >
> > 입력하기
> > procedure TForm1.FlatButton1Click(Sender: TObject);
> > begin
> > with query1 do begin
> > sql.Clear;
> > sql.add(' insert into xray ');
> > sql.Add('(model,lefttop,topcenter,righttop,center,leftbottom,bottomcenter,rightbottom)');
> > sql.Add(' values(:test, :image1, :image2, ');
> > sql.Add(' :image3, :image4, :image5, ');
> > sql.Add(' :image6, :image7)');
> >
> > parambyname('test').asstring := model.text ;
> >
> > parambyname('image1').assign(image1.picture.bitmap);
> > parambyname('image2').assign(image2.picture.bitmap);
> > parambyname('image3').assign(image3.picture.bitmap);
> > parambyname('image4').assign(image4.picture.bitmap);
> > parambyname('image5').assign(image5.picture.bitmap);
> > parambyname('image6').assign(image6.picture.bitmap);
> > parambyname('image7').assign(image7.picture.bitmap);
> > query1.ExecSql;
> > end;
> > query1.Close;
> > end;
> >
> > 불러오기
> > procedure TForm1.FlatButton2Click(Sender: TObject);
> >
> > begin
> > query2.Close;
> > query2.Sql.Clear;
> > query2.sql.Add(' select * from xray ');
> > query2.sql.Add(' where num = 21 ');
> > query2.open;
> >
> > image8.Picture.Assign(query2.fieldbyname('lefttop'));
> >
> >
> > end;
> > end.
> >
>
> 음..query1을 닫기 전에 저장하면 되지않을까요??
> 저두 잘몰라요...^^
>
> query1.post;
> query1.close;
>
> 그럼...
(NOTICE) You must be logged in to comment on this post.
-
- 최계호
- •
- 2001.06.08 23:54
- 2 COMMENTS
- /
- 0 LIKES
-
최용일•2001.06.09 00:29안녕하세요. 최용일입니다.... 검색을 먼저 해보셨으면 답을 쉽게 구하셨을텐데... 아쉽군요... TStr...
-
최계호•2001.06.09 00:56덕분에 해결이 되었습니다. 정말 감사합니다...
-
- 심현지
- •
- 2001.06.08 23:28
- 1 COMMENTS
- /
- 0 LIKES
-
최용일•2001.06.09 00:37안녕하세요. 최용일입니다. 패키지파일을 열어서 예전걸 지우시고 새로운것을 넣어서 컴파일하세요... ...
-
- rocknrol
- •
- 2001.06.08 23:02
- 2 COMMENTS
- /
- 0 LIKES
-
김현•2001.06.09 03:29select 음악명, 지역, sum(판매액) from table명 group by 음악명, 지역 order by 음악명, 지역 rockn...
-
김현•2001.06.09 03:26select 음악명, 지역, sum(판매액) from 테이블명 group by 음악명, 지역 order by 음악명, 지역(해도되...
-
- 초보델피언
- •
- 2001.06.08 22:57
- 1 COMMENTS
- /
- 0 LIKES
-
최용일•2001.06.09 00:03안녕하세요. 최용일입니다... 누구신지??? 저를 아시나요??? 이름을 밝히고 질문하시는것이 예의일거같...
-
- 델초보
- 2001.06.08 22:56
- 0 COMMENTS
- /
- 0 LIKES
-
- 너억대
- •
- 2001.06.08 22:19
- 1 COMMENTS
- /
- 0 LIKES
-
최용일•2001.06.09 00:06검색은 빠른 답변을 찾는 지름길입니다... http://www.delphi.co.kr/cgi-bin/cwb/CrazyWWWBoard.cgi?mod...
-
- 델초보
- •
- 2001.06.08 22:08
- 1 COMMENTS
- /
- 0 LIKES
-
김지엽•2001.06.09 00:15100% 확신할 수는 없지만요.. 만약에 DATABASE를 원격지 연결하고 ODBC 세팅을 통해서 연결하는 경우라...
-
- Saving
- •
- 2001.06.08 22:01
- 2 COMMENTS
- /
- 0 LIKES
-
김지엽•2001.06.09 00:44Database Not Assigned 라는 에러는, 해당 DataSet의 TDatabase property에 데이터베이스 명이 지정되지 않...
-
Saving•2001.06.09 02:39김지엽 wrote: > Database Not Assigned 라는 에러는, 해당 DataSet의 TDatabase property에 데이터베이스...
-
- 한상훈
- •
- 2001.06.08 21:47
- 1 COMMENTS
- /
- 0 LIKES
-
최용일•2001.06.09 00:34안녕하세요. 최용일입니다. 메인메뉴의 GroupIndex를 맞추어주세요... 같은 그룹인덱스를 가지면 병합되...
-
- 아메리칸파이
- •
- 2001.06.08 21:33
- 7 COMMENTS
- /
- 0 LIKES
안녕하십니까? 델파이5.0과 mysql을 이용하여, db에 이미지를 꼭 저장해야 합니다. 디렉토리 경로를 저장하는것이 아니라 이미지 자체를 꼭 저장해야 되거든요. 이미지의 크기는 25k 안쪽입니다. 아래 소스대로 코딩해서 돌려 봤는데.. db...-
대두•2001.06.08 23:28요로케 해보셔요.... TBlobField(parambyname('image1')).assign(image1.picture.bitmap); .... ...
-
김하늘•2001.06.08 22:13코딩내용상 비트맵으로 저장 되나 보군여... 델파이 Data Controls 탭에 TDBImage란 컴포넌트를 사용해...
-
아메리칸파이`•2001.06.08 22:20답변 감사드리고요.. db에 이미지가 저장될 필드를 blob로 설정을 했는데요.. 아래 코딩대로 해서 저...
-
김하늘•2001.06.09 00:15대문자로 BLOB 이라고 찍혀있다면 값을 들어간것 같네요... 비트맵이라면 SQL Explorer 를 사용하여 Expl...
-
델초보•2001.06.09 01:23김하늘 wrote: > 대문자로 BLOB 이라고 찍혀있다면 값을 들어간것 같네요... > 비트맵이라면 SQL Explore...
-
델초보•2001.06.08 21:38아메리칸파이 wrote: > 안녕하십니까? > > 델파이5.0과 mysql을 이용하여, db에 이미지를 꼭 저장해야 ...
-
아메리칸파이`•2001.06.08 21:55델초보 wrote: > 아메리칸파이 wrote: > > 안녕하십니까? > > > > 델파이5.0과 mysql을 이용하여, db...
-
- 진짜초보
- •
- 2001.06.08 21:25
- 2 COMMENTS
- /
- 0 LIKES
-
델초보•2001.06.08 21:44진짜초보 wrote: > 달력 프로그램 소스 좀 보고 싶은데... > 내부적으로 어떻게 돌아가는지 알고 싶거든...
-
바람개비•2001.06.08 21:31달력은 내장된 컴포넌트를 쓰셔도 될텐데.. 저는 이렇게 만들었었습니다. 오래되어서 소스는 없어졌지만 ...
-
- 초보
- 2001.06.08 21:14
- 0 COMMENTS
- /
- 0 LIKES
-
- 심지현
- 2001.06.08 22:38
- 0 COMMENTS
- /
- 0 LIKES
-
- 박문수
- •
- 2001.06.08 20:57
- 2 COMMENTS
- /
- 0 LIKES
-
태수기•2001.06.09 00:31박문수 wrote: > 기존 오라클8.0.4에서는 BDE설치시 VENDOR INIT => ORA73.DLL 을 지정했는데, > 오라클 ...
-
mafioso•2001.06.08 21:44환경에 따라 어떨지는 모르겠습니다만 저두 WIN2000(SERVER, PRO)에서 쓰는데 잘 됩니다. DLL : SQLOR...
-
- 짱
- •
- 2001.06.08 20:40
- 2 COMMENTS
- /
- 0 LIKES
-
델초보•2001.06.08 21:15짱 wrote: > 처음 프로그램을 실행했을때 즉 Form이 create될때 Database와 Connect를 합니다. > 그런데 ...
-
짱•2001.06.08 22:24델초보 wrote: > 짱 wrote: > > 처음 프로그램을 실행했을때 즉 Form이 create될때 Database와 Connect를...
-
- 하창호
- •
- 2001.06.08 20:22
- 1 COMMENTS
- /
- 0 LIKES
-
마으미•2001.06.13 10:48그냥 SQL 서버 에이전트에 넣어 두시면 되겠는데.. 긁적.. 긁적.. SHRINKFILE이나 SHRINKDATABASE을 참고 ...
-
- vilot
- 2001.06.08 20:13
- 0 COMMENTS
- /
- 0 LIKES
-
- 김재형
- 2001.06.09 18:11
- 0 COMMENTS
- /
- 0 LIKES
-
- *^^*
- •
- 2001.06.08 19:57
- 3 COMMENTS
- /
- 0 LIKES
-
델초보•2001.06.08 21:40*^^* wrote: > JPEG.dcu 파일을 delphi 4.0에서 가져와서 > 등록시키려구 하는데.. > 등록이 안된다고 ...
-
김하늘•2001.06.08 22:15JPEG은 델4.0에서 지원하는 걸루 아는데여... 컴포넌트 설치안하셔도 되는걸루 알고 있는건데 제가 잘못알...
-
델맹•2001.06.09 00:06*^^* wrote: > 소스가 델 2.0이라서 2.0에서 사용해야 하거든요.. > 델파이는 2.0, 4.0 둘다 있거든요.. ...
-
- 궁금이
- •
- 2001.06.08 19:34
- 2 COMMENTS
- /
- 0 LIKES
-
이재석•2001.06.12 19:43궁금이 wrote: > 초보로서 궁금한점이 있어 질문 드립니다. > 엑셀프로그램을 여러명이서 네트워크로 공...
-
.•2001.06.08 21:39안됩니다.
TBlobField(parambyname('image1')).assign(image1.picture.bitmap);
....
글구 Sql Explorer 를 통해서 Blob Field의 내용을 확인하시고자 한다면, 그냥 Blob이라고 쓰여진 글씨를 두번 클릭하세요. 만약 메모창 같이 생긴 창이 뜬다면 메모창위에 마우스를 올려 놓고 우측버튼을 누리시면 'Show as Graphic'에 마킹하시면 저장된 그래픽이 보이실 겁니다.
아메리칸파이 wrote:
> 안녕하십니까?
>
> 델파이5.0과 mysql을 이용하여, db에 이미지를 꼭 저장해야 합니다.
>
> 디렉토리 경로를 저장하는것이 아니라 이미지 자체를 꼭 저장해야 되거든요.
>
> 이미지의 크기는 25k 안쪽입니다.
>
> 아래 소스대로 코딩해서 돌려 봤는데..
>
> db안에 흔적이 안남는것 같아서요.. 답변좀 부탁 드립니다..
>
> 참 sql을 이용했습니다..
>
> 소스...
>
>
> 입력하기
> procedure TForm1.FlatButton1Click(Sender: TObject);
> begin
> with query1 do begin
> sql.Clear;
> sql.add(' insert into xray ');
> sql.Add('(model,lefttop,topcenter,righttop,center,leftbottom,bottomcenter,rightbottom)');
> sql.Add(' values(:test, :image1, :image2, ');
> sql.Add(' :image3, :image4, :image5, ');
> sql.Add(' :image6, :image7)');
>
> parambyname('test').asstring := model.text ;
>
> parambyname('image1').assign(image1.picture.bitmap);
> parambyname('image2').assign(image2.picture.bitmap);
> parambyname('image3').assign(image3.picture.bitmap);
> parambyname('image4').assign(image4.picture.bitmap);
> parambyname('image5').assign(image5.picture.bitmap);
> parambyname('image6').assign(image6.picture.bitmap);
> parambyname('image7').assign(image7.picture.bitmap);
> query1.ExecSql;
> end;
> query1.Close;
> end;
>
> 불러오기
> procedure TForm1.FlatButton2Click(Sender: TObject);
>
> begin
> query2.Close;
> query2.Sql.Clear;
> query2.sql.Add(' select * from xray ');
> query2.sql.Add(' where num = 21 ');
> query2.open;
>
> image8.Picture.Assign(query2.fieldbyname('lefttop'));
>
>
> end;
> end.
>