rt

解决方案 »

  1.   

    比如:用一个HttpCli控件
    代码
    初始化
      HttpCliPress := THttpCli.Create(nil);
      HttpCliPress.LocalAddr := '0.0.0.0';
      HttpCliPress.Accept := 'image/gif, image/x-xbitmap, image/jpeg, image/pjpeg, */*';
      HttpCliPress.Agent := 'Mozilla/3.0 (compatible)';
      HttpCliPress.ContentTypePost := 'application/x-www-form-urlencoded';
      HttpCliPress.MultiThreaded := False;
      HttpCliPress.NoCache := False;
    ---------
    执行
    procedure TFormPress.ButtonStartClick(Sender: TObject);
    var
      DataOut,DataIn,TmpData: TMemoryStream;
      TxtFileName: string;
    begin
      DataIn := TMemoryStream.Create;
      DataOut := TMemoryStream.Create;
      TmpData := TMemoryStream.Create;
      DataOut.Write(PostStr[1], Length(PostStr));//PostStr为参数,比如'flag=query'  DataOut.Seek(0, soFromBeginning);
      HttpCliPress.SendStream := DataOut;
      HttpCliPress.RcvdStream := DataIn;
      HttpCliPress.URL := Url; //网页地址
      try
        HttpCliPress.Post;
      except
        on E: exception do
        begin
          DataIn.Free;
          DataOut.Free;      Application.MessageBox('Post失败!','错误',MB_ICONERROR + MB_OK);
          Exit;
        end;
      end;
      

  2.   

    我在form中需要嵌入一张html(应该是xml+xsl [*.xml]),用的是webbrowser控件
    在form左边的treeview中显示的产品分类树中选中一个产品前缀后,把这个产品的id要传给这个xml让他显示所有符合前缀的产品列表,我现在只是在xml中放了个标记再用id去替换他,虽然也可以,但我希望能当做网页参数一样传进去而不要去替换标记太麻烦
    另外还有个问题:在产品表中点了个具体产品后要调用这个产品的详细信息的xml,而这个xml就没办法用替换标记的办法了,因为这个时候delphi已经无法控制了,delphi无法知道我点了哪个产品所以就是
    delphi->xml的参数传递?
    xml->xml的参数传递?
      

  3.   

    错了,应该是
    delphi->xsl的参数传递?
    xsl->xsl的参数传递?
      

  4.   

    to soundbug(兼职乞丐) 虽然不清楚能否完全满足我的要求,不过哪里有下载?谢谢