Q&A
- 음db에서 .jpj 추가에 관하여....~_~
음 간단한 db를 만들었는데.
jpg를 불러올수 있습니다.
문제는 불러오고 다시 보려하면
bmp는 보이는데 jpg는 볼수 없습니다.....
음 이런글로 답변을 할수 있을지 모르겠네요 ^^;;
참고로 이유닛 파일을.....
unit Unit2;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
DBTables, Db,jpeg;
type
TDataModule2 = class(TDataModule)
DataSource1: TDataSource;
Table1: TTable;
Database1: TDatabase;
Query1: TQuery;
procedure Table1BeforeInsert(DataSet: TDataSet);
procedure Table1AfterInsert(DataSet: TDataSet);
private
{ Private declarations }
public
{ Public declarations }
end;
var
DataModule2: TDataModule2;
NewImageNo: integer;
implementation
{$R *.DFM}
procedure TDataModule2.Table1BeforeInsert(DataSet: TDataSet);
begin
with DataModule2 do
begin
if Table1.RecordCount= 1 then
begin
Table1.Edit;
Table1.FieldByName('ImageNo').AsInteger:= 1;
Table1.Post;
end;
Query1.Close;
Query1.open;
NewImageNO:= Query1.Fields[0].AsInteger;
Query1.Close;
end;
end;
procedure TDataModule2.Table1AfterInsert(DataSet: TDataSet);
begin
With DataModule2 do
begin
Table1.Edit;
Table1.FieldByName('ImageNo').AsInteger:= NewImageNo + 1;
end;
end;
end.
jpg를 불러올수 있습니다.
문제는 불러오고 다시 보려하면
bmp는 보이는데 jpg는 볼수 없습니다.....
음 이런글로 답변을 할수 있을지 모르겠네요 ^^;;
참고로 이유닛 파일을.....
unit Unit2;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
DBTables, Db,jpeg;
type
TDataModule2 = class(TDataModule)
DataSource1: TDataSource;
Table1: TTable;
Database1: TDatabase;
Query1: TQuery;
procedure Table1BeforeInsert(DataSet: TDataSet);
procedure Table1AfterInsert(DataSet: TDataSet);
private
{ Private declarations }
public
{ Public declarations }
end;
var
DataModule2: TDataModule2;
NewImageNo: integer;
implementation
{$R *.DFM}
procedure TDataModule2.Table1BeforeInsert(DataSet: TDataSet);
begin
with DataModule2 do
begin
if Table1.RecordCount= 1 then
begin
Table1.Edit;
Table1.FieldByName('ImageNo').AsInteger:= 1;
Table1.Post;
end;
Query1.Close;
Query1.open;
NewImageNO:= Query1.Fields[0].AsInteger;
Query1.Close;
end;
end;
procedure TDataModule2.Table1AfterInsert(DataSet: TDataSet);
begin
With DataModule2 do
begin
Table1.Edit;
Table1.FieldByName('ImageNo').AsInteger:= NewImageNo + 1;
end;
end;
end.
1
COMMENTS
(NOTICE) You must be logged in to comment on this post.
-
- 급한이
- •
- 1999.08.09 21:01
- 3 COMMENTS
- /
- 0 LIKES
-
김미영•1999.08.10 08:50급한이 께서 말씀하시기를... > Master/Detail로 사원개인정보와 경력사항을 작성하였읍니다. > 사원개인... -
제임스딘•1999.08.11 02:52김미영 께서 말씀하시기를... > 급한이 께서 말씀하시기를... > > Master/Detail로 사원개인정보와 경력...
-
demian•1999.08.13 18:10Oracle 같은 경우에는 디테일 쪽의 테이블에 on delete cascade 속성을 주면 프로그램에서 코딩이 필요...
-
- 이윤오
- •
- 1999.08.09 20:46
- 1 COMMENTS
- /
- 0 LIKES
-
sunhee•1999.08.10 03:46글쎄요. 원래 dll은 system 폴더에 놓는것이 좋겠지만 그렇지 않다면 할 수 없겠죠. 아래를 보니까 l...
-
- 왕초보
- •
- 1999.08.09 19:31
- 1 COMMENTS
- /
- 0 LIKES
-
양효비•1999.08.09 19:38안냐세요? 넘 간단한 답변인가 ㅠ.ㅠ 랜이 아니어도 서로 인터넷에만 열결이 되어 있으면 통신이 가능 ...
-
- 신동식
- •
- 1999.08.09 19:26
- 1 COMMENTS
- /
- 0 LIKES
-
조복기•1999.08.10 08:19안녕하세요..조복기입니다.. rdb에 따라서 실행이 되고 안된다고 하니까 이유를 잘 모르겠지만 쿼리...
-
- 나현진
- •
- 1999.08.09 18:47
- 1 COMMENTS
- /
- 0 LIKES
-
안치봉•1999.08.09 19:06아래에 간단한 예제가... type TMessage = record Msg: Cardinal; case Integer of ...
-
- 박종성
- •
- 1999.08.09 18:28
- 1 COMMENTS
- /
- 0 LIKES
-
안치봉•1999.08.09 20:42델파이에 보면 이미지에디터가 있습니다. 그걸 사용하시면 되겠죠. 그런뒤 프로젝트에 관계된 *.res ...
-
- 김영수
- •
- 1999.08.09 16:33
- 2 COMMENTS
- /
- 0 LIKES
-
김미영•1999.08.10 08:50김영수 께서 말씀하시기를... > 사원기본의 Master, 경력사항의 Detail 을 Query Component로 만들어 놓았...
-
제임스딘•1999.08.11 02:59김미영 께서 말씀하시기를... > 김영수 께서 말씀하시기를... > > 사원기본의 Master, 경력사항의 Detail...
-
- 김영수
- 1999.08.09 16:29
- 0 COMMENTS
- /
- 0 LIKES
-
- 김종성
- •
- 1999.08.09 04:46
- 1 COMMENTS
- /
- 0 LIKES
-
설진현•1999.08.09 06:20김종성 께서 말씀하시기를... > shellexecute() 함수를 쓰려고 합니다. > 이것을 써서 다른 응용 프로그...
-
- 이용일
- •
- 1999.08.09 01:20
- 1 COMMENTS
- /
- 0 LIKES
-
안치봉•1999.08.09 20:44데파이에는 pos 라는 함수가 있죠. 그걸 잘 사용해 보십시오. 이용일 께서 말씀하시기를... > 안녕...
-
- 박인재
- •
- 1999.08.08 23:37
- 1 COMMENTS
- /
- 0 LIKES
-
안치봉•1999.08.09 03:27각 콘트롤에 보면 Tag 라는 속성이 있습니다. 거기에 수자를 할당해주면 구분할수 있을겁니다. const ...
-
- 오용섭
- •
- 1999.08.08 21:03
- 1 COMMENTS
- /
- 0 LIKES
-
신인재•1999.08.09 23:11음....일딴은 RadioGroup의 Tab Stop을 True로 주시고 ItemIndex 를 0이상으로 쎄팅해서 디폴트체킹을 하...
-
- 지강명
- •
- 1999.08.08 18:02
- 1 COMMENTS
- /
- 0 LIKES
음 간단한 db를 만들었는데. jpg를 불러올수 있습니다. 문제는 불러오고 다시 보려하면 bmp는 보이는데 jpg는 볼수 없습니다..... 음 이런글로 답변을 할수 있을지 모르겠네요 ^^;; 참고로 이유닛 파일을..... unit Unit2; interface uses...-
sunhee•1999.08.10 03:57지적 이미지 바운드 컨트롤로는 jpg파일을 보기는 어려울 듯 싶습니다. 그럴 때는 보통 파일명만 db에...
-
- 문경열
- •
- 1999.08.08 12:00
- 2 COMMENTS
- /
- 0 LIKES
-
김태균•1999.08.09 19:02안녕하셔요... 음,,, 위에 답해주신 방법과는 다른건데요... 이미지 컴포넌트를 하나 놓게되면 메모리...
-
박종성•1999.08.09 18:09문경열 께서 말씀하시기를... > 안녕하세요..^^ > > 오라클과 델파이 공부를 하고 있는 대학생입니다. ...
-
- 이용일
- 1999.08.08 09:21
- 0 COMMENTS
- /
- 0 LIKES
-
- 무명인
- 1999.08.08 05:22
- 0 COMMENTS
- /
- 0 LIKES
-
- 김준선
- •
- 1999.08.08 04:30
- 1 COMMENTS
- /
- 0 LIKES
-
박종성•1999.08.09 18:13김준선 께서 말씀하시기를... > 1초에 10번정도로 이미지를 바꾸려 하는데 자꾸 시스템에러가 발생 > 하...
-
- 땡그리
- •
- 1999.08.08 04:20
- 1 COMMENTS
- /
- 0 LIKES
-
sunhee•1999.08.10 04:06아이디가 재밌네요. 헤헤 메인 유닛에 TDBGridEH,TQuery에 관한 유닛을 추가하셔야 합니다. 땡그리...
-
- 박혁
- 1999.08.08 03:37
- 0 COMMENTS
- /
- 0 LIKES
-
- 박성주
- 1999.08.08 02:53
- 0 COMMENTS
- /
- 0 LIKES
그럴 때는 보통 파일명만 db에 넣고요 나중에 디비에서 jpg파일명을
읽어온 뒤 그것을 현재 jpg 이미지 컴포넌트에 파일명을 로드시켜 보면
간단히 처리되겠네요.
지강명 께서 말씀하 시기를...
> 음 간단한 db를 만들었는데.
> jpg를 불러올수 있습니다.
> 문제는 불러오고 다시 보려하면
> bmp는 보이는데 jpg는 볼수 없습니다.....
> 음 이런글로 답변을 할수 있을지 모르겠네요 ^^;;
>
> 참고로 이유닛 파일을.....
> unit Unit2;
>
> interface
>
> uses
> Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
> DBTables, Db,jpeg;
>
> type
> TDataModule2 = class(TDataModule)
> DataSource1: TDataSource;
> Table1: TTable;
> Database1: TDatabase;
> Query1: TQuery;
> procedure Table1BeforeInsert(DataSet: TDataSet);
> procedure Table1AfterInsert(DataSet: TDataSet);
> private
> { Private declarations }
> public
> { Public declarations }
> end;
>
> var
> DataModule2: TDataModule2;
> NewImageNo: integer;
>
> implementation
>
> {$R *.DFM}
>
> procedure TDataModule2.Table1BeforeInsert(DataSet: TDataSet);
> begin
> with DataModule2 do
> begin
> if Table1.RecordCount= 1 then
> begin
> Table1.Edit;
> Table1.FieldByName('ImageNo').AsInteger:= 1;
> Table1.Post;
> end;
>
> Query1.Close;
> Query1.open;
> NewImageNO:= Query1.Fields[0].AsInteger;
> Query1.Close;
>
> end;
>
>
> end;
>
> procedure TDataModule2.Table1AfterInsert(DataSet: TDataSet);
> begin
> With DataModule2 do
> begin
> Table1.Edit;
> Table1.FieldByName('ImageNo').AsInteger:= NewImageNo + 1;
> end;
>
> end;
>
> end.
>