H
hstod
Unregistered / Unconfirmed
GUEST, unregistred user!
代码如下:
procedure TWebModule1.WebModule1SerchAction(Sender: TObject;
Request: TWebRequest;
Response: TWebResponse;
var Handled: Boolean);
var
ASTR,AField: TStrings;
i,j: Integer;
begin
ASTr:= TSTringlist.Create;
AField:= TStringlist.Create;
ClientDataSet1.CommandText:='select * from hy where nameid=:Cs1' ;
clientdataset1.Params.ParamByName('cs1').Value:=
request.ContentFields.Values['Text'];
Clientdataset1.Open;
//获得字段
clientdataset1.GetFieldNames(AField);
//生成表格
ASTr.Add('<table><tr>');
for i:=0 to AField.Count-1do
Astr.Add('<td><font size=2>'+AField.Strings+'</font></td>');
ASTR.Add('</tr>');
for i:=1 to ClientDataSet1.RecordCountdo
begin
ASTr.Add('<tr>');
for j:=0 to Afield.Count-1do
Astr.Add('<td><font size=2>'+
ClientDataSet1.fieldbyname(AField.Strings[j]).AsString+'</font></td>');
ASTr.Add('</tr>');
end;
Astr.Add('</table>');
Response.Content:= ASTr.Text;
ClientDataSet1.Close;
ASTr.Free;
AField.free;
end;
procedure TWebModule1.WebModuleCreate(Sender: TObject);
begin
DCOMConnection1.Connected:= true;
end;
procedure TWebModule1.WebModuleDestroy(Sender: TObject);
begin
DComConnection1.Connected:= false;
end;
我的dcom是写在exe文件的那中就是一运行exe文件也要运行我可出看到exe文件,现是在运行这个网页时发现那个Exe文件没有运行,但是纪录还是显示出来了!怪事!!谁能解释一下?
还有这样的话是不是不再许要配置dcom了?
procedure TWebModule1.WebModule1SerchAction(Sender: TObject;
Request: TWebRequest;
Response: TWebResponse;
var Handled: Boolean);
var
ASTR,AField: TStrings;
i,j: Integer;
begin
ASTr:= TSTringlist.Create;
AField:= TStringlist.Create;
ClientDataSet1.CommandText:='select * from hy where nameid=:Cs1' ;
clientdataset1.Params.ParamByName('cs1').Value:=
request.ContentFields.Values['Text'];
Clientdataset1.Open;
//获得字段
clientdataset1.GetFieldNames(AField);
//生成表格
ASTr.Add('<table><tr>');
for i:=0 to AField.Count-1do
Astr.Add('<td><font size=2>'+AField.Strings+'</font></td>');
ASTR.Add('</tr>');
for i:=1 to ClientDataSet1.RecordCountdo
begin
ASTr.Add('<tr>');
for j:=0 to Afield.Count-1do
Astr.Add('<td><font size=2>'+
ClientDataSet1.fieldbyname(AField.Strings[j]).AsString+'</font></td>');
ASTr.Add('</tr>');
end;
Astr.Add('</table>');
Response.Content:= ASTr.Text;
ClientDataSet1.Close;
ASTr.Free;
AField.free;
end;
procedure TWebModule1.WebModuleCreate(Sender: TObject);
begin
DCOMConnection1.Connected:= true;
end;
procedure TWebModule1.WebModuleDestroy(Sender: TObject);
begin
DComConnection1.Connected:= false;
end;
我的dcom是写在exe文件的那中就是一运行exe文件也要运行我可出看到exe文件,现是在运行这个网页时发现那个Exe文件没有运行,但是纪录还是显示出来了!怪事!!谁能解释一下?
还有这样的话是不是不再许要配置dcom了?