|
아래에 있던 글에서 발췌한 소스로 JPG 파일을 ADOQuery를 만들어서 DB에 넣는 작업을 하고 있습니다.
그런데, 소스 상에서는 DB이름과 field 항목만이 있을 뿐, Table을 지정하는 부분이 없네요. 그래서 Table 이름을 지정해 주려고, ADO Component를 이것저것 섞어서 써봤는데 소용이 없습니다. 고수님들께 부탁드립니다.
제가 짜놓았던 소스를 아래 첨부해드리겠습니다.
button1을 누르면, 같은 디렉토리에 있는 JPG 파일이 DB로 저장되고, button2를 누르면 DB에 있는 image field에서 JPG파일이 만들어지는 소스로 알고 있습니다.
어떻게 하면 table 이름을 지정해 줄 수 있을까요...
===============================================================================
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, DB, ADODB, StdCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
Button2: TButton;
ADOQuery1: TADOQuery;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
public
function LoadFromBlob(const AField: TField; const Stream: TStream): boolean;
function SaveToBlob(const Stream: TStream; const AField: TField): boolean;
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
{ TForm1 }
function TForm1.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 TForm1.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;
// save to DB
procedure TForm1.Button1Click(Sender: TObject);
var
FS: TFileStream;
begin
FS := TFileStream.Create('aaa.jpg', fmOpenRead);
SaveToBlob(FS, ADOQuery1.FieldByName('snapshot'));
// 이 부분에서 table 이름이 없어서 snapshot이라는 field가 없다고 계속 오류남
FS.Free;
end;
// load DB to image file
procedure TForm1.Button2Click(Sender: TObject);
var
FS: TFileStream;
begin
FS := TFileStream.Create('bbb.jpg', fmCreate);
LoadFromBlob(ADOQuery1.FieldByName('snapshot'), FS);
FS.Free;
end;
end.
|
