请教：如何将.jpg图片存入parabox数据库中？谢谢！

Question

YourTable1.Edit;
TBlobField(YourTable1.FieldByName('Image').LoadFromFile('Hello.jpg');
YourTable1.Post;

Answer 1

var
  stream : TMemoryStream;
begin
  try
  stream :=TMemorystrema.Create;
  stream.loadFilename('c:\hello.jpg')
  table1.append;
  (table1.Fieldbyname('image') as tblobField).LoadStream(stream);
  table1.post
 finally
  stream.Free;
 end;
end;

Answer 2

上面两个都可以
还有一种方法就是
picture:Tpicture;
picture:=loadpicture("c:\ma.jpg");
YourTable1.FieldByName('Image').value=Assign(picture);
大概这样

Answer 3

procedure saveimage;
Var
  BlobStream:TBlobStream;
  JpegImage:TJpegImage;
begin
  try
  with yourtable do
  try
    JpegImage:=TJpegImage.Create;
    BlobStream:=TBlobStream.Create(TBlobField(FieldByName,'fieldname')),bmWrite);
    BlobStream.Position:=0;
//    BlobStream.Truncate;
    JpegImage:=TJpegImage(yourform.image1.Picture.Graphic);
    JpegImage.SaveToStream(BlobStream);
  finally
   if Not Assigned(BlobStream) then BlobStream.Free;
   if Not Assigned(JpegImage) then JpegImage.Free;
  end;
  except
  end;
end;
注：别忘了引用 jpeg 单元

Answer 4

请教各位，还是不行，bmp格式可以。

Answer 5

请在interface 之下的 uses 中加入jpeg 单元，我觉得大家讲的都没错啊，是不是您忘了引用这个单元了?

Answer 6

这样一定可以的。
table1.edit;            
DBImage1.Picture.LoadFromFile('c:\blank.jpg');
DBImage1.CutToClipboard;
DBImage1.PasteFromClipboard;
table1.post 
给分吧。