[제가 쓰고 있는 방법인데요. 그림화일을 MS-SQL서버의 Image 필드에 추가하는



방법입니다. 밑에 소스는 웹서핑을 하다가 찾은 소스입니다. 보고 사용하세요.



약간만 응용하시면 곧바로 사용하실수 있습니다. 그럼.





Question/Problem/Abstract:



How to get binary data in a workable format into or out of an MSSQL Image (Blob) field using ADO components.

Answer:





The main problem I faced when trying to do this was to deal with the fact that TField.Value returns a varOleStr no matter



what was written into it, so the data needed to be converted into a more usable format.



Note that there is no checking here that the TField is in fact of the correct type, and that the



stream must be created and free-ed elsewhere manually. Also, additional memory equal to the size of the stream/blob is



required, so be cautious if large amounts of data are involved.



For ease of use in my own application, I incorporated this functionality into my descendent of TADOQuery.





function LoadFromBlob(const AField: TField; const Stream: TStream): boolean;

var

ResultStr: string;

PResultStr: PChar;

begin

Result := false;

if (Assigned(AField)) and (Assigned(Stream)) then begin

try

ResultStr := AField.Value;

PResultStr := PChar(ResultStr);

Stream.Write(PResultStr^, Length(ResultStr));

Stream.Seek(0,0);

Result := true;

except

end;

end;

end;



function SaveToBlob(const Stream: TStream; const AField: TField): boolean;

var

FieldStr: string;

PFieldStr: PChar;

begin

Result := false;

if (Assigned(AField)) and (Assigned(Stream)) then begin

try

Stream.Seek(0,0);

SetLength(FieldStr, Stream.Size);

PFieldStr := PChar(FieldStr);

Stream.Read(PFieldStr^, Stream.Size);

AField.Value := FieldStr;

Result := true;

except

end;

end;

end;



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



Examples:



If you have an ADO query "qryBlobTest" with the following fields: nFileIcon: Image; nFileData: Image;



// Store an icon in an Image field

function StoreFileIcon: boolean;

var

AFileIcon: TIcon;

MS: TMemoryStream;

begin

Result := false;

AFileIcon := TIcon.Create;

MS := TMemoryStream.Create;

try

AFileIcon.handle := ExtractAssociatedIcon('c:tempTest.doc'); // Pseudocode !!

AFileIcon.SaveToStream(MS);

Result := SaveToBlob(MS, qryBlobTest.FieldByName('nFileIcon'));

finally

AFileIcon.Free;

MS.Free;

end;

end;



// Load an icon from an Image field

function LoadFileIcon: boolean;

var

AFileIcon: TIcon;

MS: TMemoryStream;

begin

Result := false;

AFileIcon := TIcon.Create;

MS := TMemoryStream.Create;

try

if (LoadFromBlob(qryBlobTest.FieldByName('nFileIcon'), MS)) then begin

AFileIcon.LoadFromStream(MS);

// Do something with the Icon?

Result := true;

end;

finally

AFileIcon.Free;

MS.Free;

end;

end;



// Save a binary file in an Image field

function StoreFileData: boolean;

var

FS: TFileStream;

begin

FS := TFileStream.Create('c:tempTest.doc', fmOpenRead);

Result := SaveToBlob(FS, qryBlobTest.FieldByName('nFileData'));

FS.Free;

end;



// Load a file from an Image field (save it to a file name)

function LoadFileData: boolean;

var

FS: TFileStream;

begin

FS := TFileStream.Create('c:tempTest2.doc', fmCreate);

LoadFromBlob(qryBlobTest.FieldByName('nFileData'), FS);

FS.Free;

end;

님 덕분에 큰 고민거리 하나 해결 했네요 ^^



복 많이 받으세요 ^^

죄송합니다만... 다시한번만 봐주세요...

제가 코드를 응용하는것이 아직 부족해서....

좀더 설명을 해주시면 안될까요...?

예제라는 것을 하나 더 보내주시면 감사하겠습니다.



너무 초보라서 죄송하군요...

제 경우는 ADO사용한 경우이며 MSSQL서버의 필드 타입이 Image타입.



그리고 저장된 image필드의 내용을 DBIMAGE 컴포넌트로 보여줄 경우 에러가 발생합니다.



이것은 알고 계시지요. 왜냐... JPG 이니까. BMP는 괜찮은데.



PS. ADO를 사용하시면 SQL서버에서 쿼리해 오는데 시간을 단축할 방법이 없나요?



알고 계시면 답변 부탁드립니다. 저는 쿼리해 오는데 걸리는 시간때문에 1주일째



고생하고 있는데 ADO를 버리고 BDE로 가야하나.



단순한 SQL문장 ==>. " Select * From 고객 Order By 고객성명 " 인데 너무 느려요.



방법을 알고 계시면 답변 부탁드립니다.



//DB에서 그림화일 불러오기

function LoadFromBlob(const AField: TField; const Stream: TStream): boolean;

var

ResultStr: string;

PResultStr: PChar;

begin

Result := false;

if (Assigned(AField)) and (Assigned(Stream)) then begin

try

ResultStr := AField.Value;

PResultStr := PChar(ResultStr);

Stream.Write(PResultStr^, Length(ResultStr));

Stream.Seek(0,0);

Result := true;

except

end;

end;

end;



//그림화일을 DB에 집어 넣기.

function SaveToBlob(const Stream: TStream; const AField: TField): boolean;

var

FieldStr: string;

PFieldStr: PChar;

begin

Result := false;

if (Assigned(AField)) and (Assigned(Stream)) then begin

try

Stream.Seek(0,0);

SetLength(FieldStr, Stream.Size);

PFieldStr := PChar(FieldStr);

Stream.Read(PFieldStr^, Stream.Size);

AField.Value := FieldStr;

Result := true;

except

end;

end;

end;







procedure TForm1.Button1Click(Sender: TObject);

Var

ImageFS: TFileStream;

begin

// DB에 있는그림을 AAA.JPG 화일로 생성

ImageFS := TFileStream.Create('AAA.jpg', fmCreate);

LoadFromBlob(AdoTable.FieldByName('약도'), ImageFS);

ImageFS.Free;

end;



procedure TForm1.Button2Click(Sender: TObject);

Var

ImageFS: TFileStream;

Begin

//약도 필드에 AAA.JPG라는 그림화일 저장하기

ImageFS := TFileStream.Create('AAA.jpg', fmOpenRead);

AdoTable.Edit;

SaveToBlob(ImageFS, AdoTable.FieldByName('약도'));

AdoTable.Post;

ImageFS.Free;

end;