procedure TForm1.Button1Click(Sender: TObject); begin OleContainerFY1.CreateObjectFromFile('d:\1.doc',false); OleContainerFY1.DoVerb(1); end;procedure TForm1.Button2Click(Sender: TObject); var MS: TMemoryStream; begin MS := TMemoryStream.Create; OleContainerFY1.SaveToStream(MS); with ADOQuery1 do begin Close; SQL.Clear; SQL.Text := 'SELECT * FROM TABLE1'; Open; Append; TBlobField(FieldByName('BL')).LoadFromStream(MS); Post; Application.MessageBox('succussful','fgyr',mb_ok); end; end;procedure TForm1.Button3Click(Sender: TObject); begin with ADOQuery1 do begin Close; SQL.Clear; SQL.Text := 'SELECT BL FROM TABLE1'; Open; TBlobField(FieldByName('BL')).SaveToFile('d:\abc.doc'); end; end;procedure TForm1.Button4Click(Sender: TObject); begin OleContainerFY1.LoadFromFile('d:\abc.doc'); OleContainerFY1.DoVerb(1); end;procedure TForm1.Button5Click(Sender: TObject); begin OleContainerFY1.SaveToFile('d:\abc.doc'); OleContainerFY1.DestroyObject; end;
set cn=new ADODB.connection set rs=new ADODB.RecordSet cn.open "data source=localhost;database=;uid=;pwd=" cn.Type=adTypeBinary rs.open "select * from photo",cn,1,3 if rs.eof then rs.Addnew rs("id").value=1 rs("photo").value=cn.read rs.update end if
begin
OleContainerFY1.CreateObjectFromFile('d:\1.doc',false);
OleContainerFY1.DoVerb(1);
end;procedure TForm1.Button2Click(Sender: TObject);
var
MS: TMemoryStream;
begin
MS := TMemoryStream.Create;
OleContainerFY1.SaveToStream(MS);
with ADOQuery1 do
begin
Close;
SQL.Clear;
SQL.Text := 'SELECT * FROM TABLE1';
Open;
Append;
TBlobField(FieldByName('BL')).LoadFromStream(MS);
Post;
Application.MessageBox('succussful','fgyr',mb_ok);
end;
end;procedure TForm1.Button3Click(Sender: TObject);
begin
with ADOQuery1 do
begin
Close;
SQL.Clear;
SQL.Text := 'SELECT BL FROM TABLE1';
Open;
TBlobField(FieldByName('BL')).SaveToFile('d:\abc.doc');
end;
end;procedure TForm1.Button4Click(Sender: TObject);
begin
OleContainerFY1.LoadFromFile('d:\abc.doc');
OleContainerFY1.DoVerb(1);
end;procedure TForm1.Button5Click(Sender: TObject);
begin
OleContainerFY1.SaveToFile('d:\abc.doc');
OleContainerFY1.DestroyObject;
end;
set rs=new ADODB.RecordSet
cn.open "data source=localhost;database=;uid=;pwd="
cn.Type=adTypeBinary
rs.open "select * from photo",cn,1,3
if rs.eof then
rs.Addnew
rs("id").value=1
rs("photo").value=cn.read
rs.update
end if