안녕하세요!



저는 이제 막 델파이 공부를 하는 직장인입니다.



다름이 아니구요!



Edit박스로 성명이나 주민번호를 조회해서, DBIMAGE에 개개인의 사진을



출력하고자 합니다.



방법을 알려주시구요! 그리고 따로 사진이라는 필드(레코드)를 만들지 않았습니다.



저장방법도 묻고 싶네요.



아무쪼록 좋은 방법을 제시 해주시면 정말 감사드리겠습니다.

EdbEngineError 의 errors[index].errorcode 또는

errors[index].NativeError를 참조하면 될거 같은데..

EdbEnginError와 TdbError를 Help에서 찾아 보심이....



즐거운 코딩되세요..





정 께서 말씀하시기를...

> 안녕하세요..

>

> Insert,Update,Delete시에 UpdateQuery를 사용해서 처리를 합니다.

> ApplyUpdates할 경우 Error가 발생하면 코드값를 받아서

> 이미 만들어 져 있는 Error Table에서 자료를 가져와서 Message를

> 보여줘야 하느데

> Error Code value를 어떻게 가져와야 하는지 ..

> 가르쳐 주세요

>

이현아 wrote:

> 안녕하세요!

> 저는 이제 막 델파이 공부를 하는 직장인입니다.

> 다름이 아니구요!

> Edit박스로 성명이나 주민번호를 조회해서, DBIMAGE에 개개인의 사진을

> 출력하고자 합니다.

> 방법을 알려주시구요! 그리고 따로 사진이라는 필드(레코드)를 만들지 않았습니다.

> 저장방법도 묻고 싶네요.

> 아무쪼록 좋은 방법을 제시 해주시면 정말 감사드리겠습니다.



안녕하세요 김영대입니다

만약 사용하시는 DBMS 가 ORACLE 이면 blob 필드의 data type을

long raw 로 사용하시면 됩니다

참고로 long 형은 2GB의 text 자료를 long raw 는 binary 자료를

2GB 까지 저장할 수 있습니다

다른 DB 들도 blob 필드를 만드는 해당 type이 따로 있을겁니다



unit DbJpeg;



interface



uses

Db, ExtCtrls, Classes, Graphics, Jpeg, SysUtils;



implementation



procedure JPEGSaveToDB(BlobField: TBlobField; FileName: String);

var

jpg: TJPEGImage;

bmp: TBitmap;

mem: TMemoryStream;

begin

if LowerCase(ExtractFileExt(FileName)) = '.jpg' then

begin

with BlobField do

begin

// 아래 DataSet.Edit; 는 저장된 그림을 수정(UPDATE)시 사용하며

// 신규 등록(INSERT)일때는 DataSet.Insert; 로 바꾸어야 한다

DataSet.Edit;

LoadFromFile(FileName);

DataSet.Post;

end;

end

else if LowerCase(ExtractFileExt(FileName)) = '.bmp' then

begin

// 파일이 BMP 이면 먼저 JPEG(JPG) 파일로 바꾼 후 저장한다

bmp := TBitmap.Create;

jpg := TJPEGImage.Create;

mem := TMemoryStream.Create;

try

bmp.LoadFromFile(FileName);

jpg.Assign(bmp);

jpg.SaveToStream(mem);

mem.Position := 0;

with BlobField do begin

DataSet.Edit;

LoadFromStream(mem);

DataSet.Post;

end;

finally

mem.Free;

jpg.Free;

bmp.Free;

end;

end

end;



procedure JPEGLoadFromDB(BlobField: TBlobField; Image: TImage);

var

jpg: TJPEGImage;

mem: TMemoryStream;

begin

jpg := TJPEGImage.Create;

mem := TMemoryStream.Create;

try

if BlobField.IsNull then

Image.Picture := nil

else begin

BlobField.SaveToStream(mem);

mem.Position := 0;

jpg.LoadFromStream(mem);

Image.Picture.Graphic := jpg;

end;

finally

mem.Free;

jpg.Free;

end;

end;



end.



-------------------------------------------------------------------------

// 아래는 DB에 저장된 JPEG(JPG)를 DBGrid에 출력하는 예제입니다



unit Unit1;



interface



uses

Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,

Db, DBTables, Grids, jpeg, extctrls, DBGrids;



type

TForm1 = class(TForm)

DataSource1: TDataSource;

Query1: TQuery;

Database1: TDatabase;

DBGridEH1: TDBGridEH;

procedure DBGridEH1DrawColumnCell(Sender: TObject; const Rect: TRect;

DataCol: Integer; Column: TColumnEH; State: TGridDrawState);

private

{ Private declarations }

public

{ Public declarations }

end;



var

Form1: TForm1;



implementation

{$R *.DFM}



procedure JPEGLoadFromDB(BlobField: TBlobField; Image: TImage);

var

jpg: TJPEGImage;

mem: TMemoryStream;

begin

jpg := TJPEGImage.Create;

mem := TMemoryStream.Create;

try

if BlobField.IsNull then

Image.Picture := nil

else begin

BlobField.SaveToStream(mem);

mem.Position := 0;

jpg.LoadFromStream(mem);

Image.Picture.Graphic := jpg;

end;

finally

mem.Free;

jpg.Free;

end;

end;



procedure TForm1.DBGridEH1DrawColumnCell(Sender: TObject;

const Rect: TRect; DataCol: Integer; Column: TColumnEH;

State: TGridDrawState);

var

JPGimage: TImage;

SRect, DRect: TRect;

begin

if Column.FieldName= 'PHOTO' then

begin

JPGimage := TImage.Create(Self);

JPEGLoadFromDB(TBlobField(Query1.FieldByName('PHOTO')), JPGimage);

TDBGrid(Sender).Canvas.FillRect(Rect);



TDBGrid(Sender).Canvas.Draw(Rect.Left, Rect.Top, JPGimage.Picture.Graphic);

// Stretch 는 아래와 같이...

// TDBGrid(Sender).Canvas.StretchDraw(Rect, JPGimage.Picture.Graphic);

JPGimage.Free;

end

else // 다른 필드

begin

TDBGrid(Sender).DefaultDrawColumnCell(Rect, DataCol, Column, State);

end;

end;



end.

김영대 wrote:

> 이현아 wrote:

> > 안녕하세요!

> > 저는 이제 막 델파이 공부를 하는 직장인입니다.

> > 다름이 아니구요!

> > Edit박스로 성명이나 주민번호를 조회해서, DBIMAGE에 개개인의 사진을

> > 출력하고자 합니다.

> > 방법을 알려주시구요! 그리고 따로 사진이라는 필드(레코드)를 만들지 않았습니다.

> > 저장방법도 묻고 싶네요.

> > 아무쪼록 좋은 방법을 제시 해주시면 정말 감사드리겠습니다.

>

> 안녕하세요 김영대입니다

> 만약 사용하시는 DBMS 가 ORACLE 이면 blob 필드의 data type을

> long raw 로 사용하시면 됩니다

> 참고로 long 형은 2GB의 text 자료를 long raw 는 binary 자료를

> 2GB 까지 저장할 수 있습니다

> 다른 DB 들도 blob 필드를 만드는 해당 type이 따로 있을겁니다

>

> unit DbJpeg;

>

> interface

>

> uses

> Db, ExtCtrls, Classes, Graphics, Jpeg, SysUtils;

>

> implementation

>

> procedure JPEGSaveToDB(BlobField: TBlobField; FileName: String);

> var

> jpg: TJPEGImage;

> bmp: TBitmap;

> mem: TMemoryStream;

> begin

> if LowerCase(ExtractFileExt(FileName)) = '.jpg' then

> begin

> with BlobField do

> begin

> // 아래 DataSet.Edit; 는 저장된 그림을 수정(UPDATE)시 사용하며

> // 신규 등록(INSERT)일때는 DataSet.Insert; 로 바꾸어야 한다

> DataSet.Edit;

> LoadFromFile(FileName);

> DataSet.Post;

> end;

> end

> else if LowerCase(ExtractFileExt(FileName)) = '.bmp' then

> begin

> // 파일이 BMP 이면 먼저 JPEG(JPG) 파일로 바꾼 후 저장한다

> bmp := TBitmap.Create;

> jpg := TJPEGImage.Create;

> mem := TMemoryStream.Create;

> try

> bmp.LoadFromFile(FileName);

> jpg.Assign(bmp);

> jpg.SaveToStream(mem);

> mem.Position := 0;

> with BlobField do begin

> DataSet.Edit;

> LoadFromStream(mem);

> DataSet.Post;

> end;

> finally

> mem.Free;

> jpg.Free;

> bmp.Free;

> end;

> end

> end;

>

> procedure JPEGLoadFromDB(BlobField: TBlobField; Image: TImage);

> var

> jpg: TJPEGImage;

> mem: TMemoryStream;

> begin

> jpg := TJPEGImage.Create;

> mem := TMemoryStream.Create;

> try

> if BlobField.IsNull then

> Image.Picture := nil

> else begin

> BlobField.SaveToStream(mem);

> mem.Position := 0;

> jpg.LoadFromStream(mem);

> Image.Picture.Graphic := jpg;

> end;

> finally

> mem.Free;

> jpg.Free;

> end;

> end;

>

> end.

>

> -------------------------------------------------------------------------

> // 아래는 DB에 저장된 JPEG(JPG)를 DBGrid에 출력하는 예제입니다

>

> unit Unit1;

>

> interface

>

> uses

> Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,

> Db, DBTables, Grids, jpeg, extctrls, DBGrids;

>

> type

> TForm1 = class(TForm)

> DataSource1: TDataSource;

> Query1: TQuery;

> Database1: TDatabase;

> DBGridEH1: TDBGridEH;

> procedure DBGridEH1DrawColumnCell(Sender: TObject; const Rect: TRect;

> DataCol: Integer; Column: TColumnEH; State: TGridDrawState);

> private

> { Private declarations }

> public

> { Public declarations }

> end;

>

> var

> Form1: TForm1;

>

> implementation

> {$R *.DFM}

>

> procedure JPEGLoadFromDB(BlobField: TBlobField; Image: TImage);

> var

> jpg: TJPEGImage;

> mem: TMemoryStream;

> begin

> jpg := TJPEGImage.Create;

> mem := TMemoryStream.Create;

> try

> if BlobField.IsNull then

> Image.Picture := nil

> else begin

> BlobField.SaveToStream(mem);

> mem.Position := 0;

> jpg.LoadFromStream(mem);

> Image.Picture.Graphic := jpg;

> end;

> finally

> mem.Free;

> jpg.Free;

> end;

> end;

>

> procedure TForm1.DBGridEH1DrawColumnCell(Sender: TObject;

> const Rect: TRect; DataCol: Integer; Column: TColumnEH;

> State: TGridDrawState);

> var

> JPGimage: TImage;

> SRect, DRect: TRect;

> begin

> if Column.FieldName= 'PHOTO' then

> begin

> JPGimage := TImage.Create(Self);

> JPEGLoadFromDB(TBlobField(Query1.FieldByName('PHOTO')), JPGimage);

> TDBGrid(Sender).Canvas.FillRect(Rect);

>

> TDBGrid(Sender).Canvas.Draw(Rect.Left, Rect.Top, JPGimage.Picture.Graphic);

> // Stretch 는 아래와 같이...

> // TDBGrid(Sender).Canvas.StretchDraw(Rect, JPGimage.Picture.Graphic);

> JPGimage.Free;

> end

> else // 다른 필드

> begin

> TDBGrid(Sender).DefaultDrawColumnCell(Rect, DataCol, Column, State);

> end;

> end;

>

> end.

>



답변 진심으로 감사드려요!

그런데 전 DB를 InormixDB를 사용합니다.

또한 저의 계획은 Local DB를 사용해(즉 informix DB)를

C 디렉토리를 따로 만들어 사진을 사번에 맞게 넣고자 합니다.

기법은 SQL을 사용할려고 하구요!

바쁘시겠지만 한번만 더 부탁을 드릴께요!



항상 감사드립니다.