200分就够了。。。。
我也没有做什么啊。。
吧代码贴出来吧，XML的处理
unit uMain;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Buttons, DB, DBClient, OleCtnrs, ExtCtrls;
type
TForm1 = class(TForm)
ClientDataSet1: TClientDataSet;
ClientDataSet1WORD: TBlobField;
ClientDataSet2: TClientDataSet;
ole: TOleContainer;
Panel1: TPanel;
BitBtn1: TBitBtn;
BitBtn2: TBitBtn;
procedure BitBtn1Click(Sender: TObject);
procedure BitBtn2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.BitBtn1Click(Sender: TObject);
begin
WITH ClientDataSet1 do
begin
Open;
Edit;
TBlobField(FieldByName('WORD')).LoadFromFile('e:/tx/10000000.doc');
Post;
SaveToFile('e:/tx/111.xml',dfxml);
end;
end;
procedure TForm1.BitBtn2Click(Sender: TObject);
var
F:String;
begin
with ClientDataSet2 do
begin
LoadFromFile('e:/tx/111.xml');
open;
F:=ExtractFilePath(ParamStr(0))+'/11.DOC';
TBlobField(FieldByName('WORD')).SaveToFile(F);
ole.CreateObjectFromFile(f,False);
ole.DoVerb(ovPrimary);
end;
end;
end.
