救救我呀,各位?到底用什么才能把JPG图片通过DBIMAGE加入到DBASE的BLOB字段中?

Question

我都快疯了.到底用什么才能把JPG图片通过DBIMAGE加入到DBASE的BLOB字段中?!代码到底有没有问题?!procedure TForm1.Button1Click(Sender: TObject);
var
  BitMap:TBitmap;
  MyJpeg: TJpegImage;
begin
if openpicturedialog1.Execute then
  begin
  MyJpeg :=TJpegImage.Create;
  BitMap :=TBitmap.Create;
  MyJpeg.LoadFromfile(openpicturedialog1.filename);
  Bitmap.Assign(MyJpeg);
  table1.edit;
  DBImage1.Picture.Bitmap.assign(bitmap);
  table1.Post;
  MyJpeg.Free;
  Bitmap.Free;
  end;
end;

Answer 1

var v_a:TJPEGImage;
begin
  v_a:=tjpegimage.Create;
  v_a.LoadFromFile('d:\rsc\mailtp3.jpg');
  table1.edit;
  table1.fieldbyname('zp').assign(v_a);
  table1.post;
end;
上述代码将图像存入DBF中，注意字段为GEN型。

Answer 2

TBlobField(FieldByName('zp')).LoadFromFile

Answer 3

TBlobField(FieldByName('zp')).LoadFromFile
TBlobField(FieldByName('zp')).SaveToFile

Answer 4

rocedure TFra_CaseShow.SaveAffix(sFileName:String);
var
  Ssql:String;
  Ms:TMemoryStream;
  AdoqrID:TADOQuery;
  FName:String;
begin
  Ms:=TMemoryStream.Create;
  if FileExists(sFileName) then
    ms.LoadFromFile(sFileName)
  else
  begin
      ms.Free;
      exit;
  end;  FName:=ExtractFileName(sFileName);
  Ssql:='Select * from affix where CaseName='''+ CaseName+''' and CaseID='''+SRecordiD+''' and affixName='''+FName+'''';
  AdoqrID:=TADOQuery.Create(nil);
  adoqrID.Connection:=AdocnCase;
  AdoqrID.SQL.Text:=Ssql;
  AdoqrID.Open;
  if adoqrID.Eof then
  begin
    adoqrID.Append;
    adoqrID.Fields[1].value:=CaseName;
    AdoqrID.Fields[2].value:=SRecordiD;
    AdoqrID.Fields[3].value:=FName;
    TBlobField(AdoqrID.fields[4]).LoadFromStream(ms);
    Adoqrid.post;
  end
  else
  begin
    adoqrID.Edit;
    AdoqrID.Fields[4].Clear;
    TBlobField(AdoqrID.fields[4]).LoadFromStream(ms);
    adoqrID.Post;
  end;
  adoqrID.close;
  AdoqrID.free;  ms.free;
end;