Delphi7 的 WebService 与 数据库
2004-08-31 14:20
197 查看
Server 端:
SoapDataModule中加入 ADOConnection1、ADODataSet1、DataSetProvider1;DataSetProvider1的DataSet设置为ADODataSet1;ADODataSet1的CommandText设置为空,Connection设置为ADOConnection1。
DataSetProvider1的DataRequest事件:
function TDataMod.DataSetProvider1DataRequest(Sender: TObject;
Input: OleVariant): OleVariant;
begin
if ADOConnection1.Connected then
begin
ADODataSet1.CommandText := Input;
Result := DataSetProvider1.Data;
end;
end;
procedure TDataMod.SoapDataModuleCreate(Sender: TObject);
var
DataPath: string;
const
SQL :string = 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=E:/programs/Delphi7/Demos/WebServices/SOAPDataModule/Data/Tree.mdb;Persist Security Info=False';
begin
DataPath := ExtractFilePath(Application.ExeName)+ '../Data/';
XMLTransformProvider1.XMLDataFile := DataPath + 'XML_Document.xml';
XMLTransformProvider1.TransformRead.TransformationFile := DataPath + 'ToDp.xtr';
XMLTransformProvider1.TransformWrite.TransformationFile := DataPath + 'ToXml.xtr';
try
ADOConnection1.Connected :=false;
ADOConnection1.ConnectionString:= SQL;
ADOConnection1.Connected :=true;
except
//showmessage(A_ParentPath+'Data/InfoMat.mdb 调用失败');
end;
end;
Client端:
SoapConnection1、ClientDataSet1;ClientDataSet1的ConnectionBroker属性为SoapConnection1,ProviderName属性为DataSetProvider1
查询记录集:
procedure TClientForm.Button1Click(Sender: TObject);
var SQL:string;
begin
if not SoapConnection1.Connected then
begin
SoapConnection1.URL:=URLList.Text+'/soap/IDataMod';
SoapConnection1.Open;
end;
SQL := Edit1.text;
with ClientDataSet1 do
begin
Data := DataRequest(SQL);
end;
end;
SoapDataModule中加入 ADOConnection1、ADODataSet1、DataSetProvider1;DataSetProvider1的DataSet设置为ADODataSet1;ADODataSet1的CommandText设置为空,Connection设置为ADOConnection1。
DataSetProvider1的DataRequest事件:
function TDataMod.DataSetProvider1DataRequest(Sender: TObject;
Input: OleVariant): OleVariant;
begin
if ADOConnection1.Connected then
begin
ADODataSet1.CommandText := Input;
Result := DataSetProvider1.Data;
end;
end;
procedure TDataMod.SoapDataModuleCreate(Sender: TObject);
var
DataPath: string;
const
SQL :string = 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=E:/programs/Delphi7/Demos/WebServices/SOAPDataModule/Data/Tree.mdb;Persist Security Info=False';
begin
DataPath := ExtractFilePath(Application.ExeName)+ '../Data/';
XMLTransformProvider1.XMLDataFile := DataPath + 'XML_Document.xml';
XMLTransformProvider1.TransformRead.TransformationFile := DataPath + 'ToDp.xtr';
XMLTransformProvider1.TransformWrite.TransformationFile := DataPath + 'ToXml.xtr';
try
ADOConnection1.Connected :=false;
ADOConnection1.ConnectionString:= SQL;
ADOConnection1.Connected :=true;
except
//showmessage(A_ParentPath+'Data/InfoMat.mdb 调用失败');
end;
end;
Client端:
SoapConnection1、ClientDataSet1;ClientDataSet1的ConnectionBroker属性为SoapConnection1,ProviderName属性为DataSetProvider1
查询记录集:
procedure TClientForm.Button1Click(Sender: TObject);
var SQL:string;
begin
if not SoapConnection1.Connected then
begin
SoapConnection1.URL:=URLList.Text+'/soap/IDataMod';
SoapConnection1.Open;
end;
SQL := Edit1.text;
with ClientDataSet1 do
begin
Data := DataRequest(SQL);
end;
end;
相关文章推荐
- 用UDP协议的木马编写方法
- 第五期:CSDN论坛秀-Delphi版-本期作秀:ZswangII(伴水清清)
- 第四期:CSDN论坛秀-Delphi版-本期作秀:xzhifei(星级饭桶·飞)
- 第三期:CSDN论坛秀-Delphi版-本期作秀:wxjh(农民)
- 第二期:CSDN论坛秀-Delphi版-本期作秀:aiirii(爱的眼睛)
- 第一期:CSDN论坛秀-Delphi版-本期作秀:myling(阿德)
- 先人的DELPHI基础开发技巧
- <<供电所技术台帐>>第一周完成进度
- Delphi7 的 WebService 与 数据库
- delphi,.Net,Java,c我何去何从?
- 要求和展望
- delphi中的流
- 关于 Delphi 参数传递方式的一点研究
- 用DELPHI通过写注册表来实现建立IIS的虚拟目录!
- DELPHI所有类的共性
- DELPHI中BDE、ODBC的配置注意
- 在Delphi7中调试COM+(转)
- 用DELPHI实现对象持久层(-)
- 在delphi中建立程序的快捷方式--并将快捷方式放在开始->程序->的启动组中
- Delphi中IntraWeb的学习初体验