Paradox中存放.jpg图片？？？

Question

Paradox的Graphic类型只支持*.bmp;*.ico;*.emf;*.wmf的存取，可有解决方法？

Answer 1

可以用Binary类型的字段来存储。

Answer 2

同意楼上的，作为二进制数据存取
TBlobField(Table1.FieldByName('字段名')).LoadFromFile('文件名');

Answer 3

转贴：word
procedure TForm1.Button1Click(Sender: TObject);
{}var
  MS: TMemoryStream;
begin
  RichEdit1.Font.Color := Clred;
  MS:=TMemoryStream.create;
  RichEdit1.Lines.LoadFromStream(MS);
  MS.Position:=0;
  ADOQuery1.Append;
  TBlobField(ADOQuery1.FieldbyName
    ('Doc')).LoadFromStream(MS);
  ADOQuery1.Post;
end;  }  with ADOQuery1 do
  begin
    Edit;
    FieldByName('doc').AsString := RichEdit1.Text;
    Post;
  end;      function blobcontenttostring(const filename: string):string;
  begin
    with tfilestream.create(filename,fmopenread) do
      try
       setlength(Result,size);
       read(Pointer(Result)^,size);
     finally
       free;
     end;
  end;
//保存字段
var
  sFileName : String;
begin
  RichEdit1.Font.Color := ClRed;
  RichEdit1.Lines.SaveToFile('C:\aaa.rtf');
  if (opendialog1.execute) then
  begin
    sFileName:=OpenDialog1.FileName;
    adoquery1.edit;
    adoquery1.fieldbyname('doc').asstring:=Blobcontenttostring(sFileName);
    adoquery1.post;
  end;
end;procedure TForm1.Button2Click(Sender: TObject);
var
  MS: TStream;
begin
  ADOQuery1.First;
  with ADOQuery1 do
   MS:=CreateBlobStream
    (FieldbyName('Doc'),bmRead);
    RichEdit2.Lines.LoadFromStream(MS);
  MS.Free;
end;procedure TForm1.Button3Click(Sender: TObject);
begin
  ADOQuery1.Next;
end;