untglobafun.pas

用于模拟GETPOST方法发送HTTP请求并取得数据.rar

unit untGlobaFun;

interface

uses
  Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls,XMLIntf,XMLDoc;

type
  TRequestObj = class
  private
  public
    tActionUrl:String;
    isNeedSecondJump:Boolean;
    tDetailUrl:String;
    tReservedData:String;
    tRequestItemCaption:TStringList;
    tRequestItemType:TStringList;
    tRequestItemName:TStringList;
    function getDataSetting:String;
  public
    constructor Create;
    destructor destory;
  end;



implementation

{ TRequestObj }

constructor TRequestObj.Create;
begin
  tRequestItemCaption := TStringList.Create;
  tRequestItemType := TStringList.Create;
  tRequestItemName := TStringList.Create;
end;

destructor TRequestObj.destory;
begin
  tRequestItemCaption.Free;
  tRequestItemType.Free;
  tRequestItemName.Free;
end;

function TRequestObj.getDataSetting: String;
var
  XMLDocument :IXMLDocument;
  XMLNode :IXMLNode;
  i:integer;
  sitename,siteuser,sitepwd:string;
begin
  sitename := '';
  siteuser := '';
  sitepwd := '';
  XMLDocument := TXMLDocument.Create( 'namelist.xml' );
  XMLDocument.Active := True;
  XMLNode := XMLDocument.DocumentElement;
  for i:=0 to XMLNode.ChildNodes.Count-1 do
  begin
    //ShowMessage(XMLNode.ChildNodes[i].Attributes['value']);
    if  XMLNode.ChildNodes[i].NodeName = 'sitename' then
      sitename :=  XMLNode.ChildNodes[i].Attributes['value']
    else if XMLNode.ChildNodes[i].NodeName = 'siteuser' then
      siteuser :=  XMLNode.ChildNodes[i].Attributes['value']
    else if XMLNode.ChildNodes[i].NodeName = 'sitepwd' then
      sitepwd :=  XMLNode.ChildNodes[i].Attributes['value'];
  end;
  Result := 'Provider=SQLOLEDB.1;Password=' + sitepwd
    + ';Persist Security Info=True;User ID=' + siteuser
    + ';Initial Catalog=bqhInfo;Data Source=' + sitename
    + ';Use Procedure for Prepare=1;Auto Translate=True;'
    + 'Packet Size=4096;Workstation ID=IIII;Use Encryption for Data=False;'
    + 'Tag with column collation when possible=False';
end;

end.