TXMLNode

[wluis]

Somebody knows how i can find class: TXMLNode on lazarus/freepascal

[eny]

Why would you need it?

[dfeher]

I think you should use TDOMNode instead. 

[wluis]

ok i´m working in a project with MapServer, and i need read xml document, their came from url request, now,  ReadXMLFile don´t work what i must to do

[eny]

Code: [Select]

uses
  DOM, XMLRead;
...

var root: TDOMNode;
    xml: TXMLDocument;
  ...
  ReadXMLFile(xml, '<yourfile>');
  root := xml.FindNode('<your root tag>');
  // etc...

This should work (it does for me...).

[Leledumbo]

@eny:
Then the OP must save the url request response first. I seldom use fcl-xml, so I can't give any solution. TJSONParser has two constructors, one accepting file and the other accepting string. Isn't there any XML counterpart for this?

[garlar27]

@Leledumbo
You con load it from a TStringStram:

Code: [Select]

procedure MyClass.LoadXMLFromString(const AValue: string);
var
   AStream: TStringStream;
begin
   AStream := nil;
   if Assigned(FXML) then begin
      FreeAndNil(FXML);
      FXML := TXMLDocument.Create;
   end;
   AStream := TStringStream.Create(AValue);
   try
      if Assigned(AStream) then begin
         ReadXMLFile(FXML, AStream);
      end;
   finally
      FreeAndNil(AStream);
   end;
end;


[wluis]

OK, they work, now: i need to know if exist an a class on free pascal similar to HttpWebRequest and WebRequest of C#.
If exist any place (url) when i could find it please post me.....
thanks...

[Leledumbo]

I don't use C# (though I can read it), so I don't know what those two classes do. Please post what you want to achieve. From my guess, it looks like you want to do some http networking. You can use LNet for that.

[wluis]

LeleDumbo you got the reason, but, i have use Indy 10 , you know how i can work with that??

[Laksen]

I can recommend using Synapse. Doing webrequests with it is dead simple. The httpsend unit contains a method HttpGetBinary which can be used with a TMemoryStream. Then you can simply load the document from that

[vfclists]

This is some sample code what process XML in an http request with Indy. I have omitted a lot of object allocation code for brevity sake, but you should be able to work it out.

xdrEventServer is TIdHttpServer component and xdrEventServerCommandGet is its request processing event, OnCommandGet.

  ARequestInfo.PostStream.Position := 4

This is used because the XML at 5 characters into the data.

The code receives a request, parses out the XML body and prints out the XML keys which are loaded in InitKeyStrings. You will probably need some of these units in your program.

IdCustomTCPServer, IdContext, IdTCPClient, IdComponent,
  IdHTTPServer, IdAntiFreeze, IdCustomHTTPServer, IdURI, DOM, xmlread

If you are going to use XPath get a more recent version as there are bugs in the older implementations. Check the attachment and
http://lists.freepascal.org/lists/fpc-pascal/2010-May/024929.html

Code: [Select]

procedure TdmSocketExplorer.xdrEventServerCommandGet(AContext: TIdContext;
  ARequestInfo: TIdHTTPRequestInfo; AResponseInfo: TIdHTTPResponseInfo);
var
  postStrings, valStrings, keyStrings: TStringList;
  XML: TXMLDocument;
  strStream, xdrStream: TStringStream;
  xdrString: ansistring;
 
  procedure InitKeyStrings;
  begin
    keyStrings.AddStrings(uIF.mmoXDRKeys.Lines);
  end;

  procedure AddToDisplayMemo;
  var
    i: integer;
  begin
    uIF := utilitiesInterfaceForm;
    uIF.mmoXDRXML.Lines.Clear;
    uIF.mmoXDRXMLHistory.Lines.Add('== xdrString - Start ==');

    for i := 0 to keyStrings.Count - 1 do
    begin
      uIF.mmoXDRXML.Lines.Add(keyStrings.Strings[i] + ' => ' + valStrings.Strings[i]);
      uIF.mmoXDRXMLHistory.Lines.Add(keyStrings.Strings[i] + ' => ' + valStrings.Strings[i]);
    end;
    uIF.mmoXDRXML.Lines.Add('==xdr XML end==');
    uIF.mmoXDRXMLHistory.Lines.Add('== xdrString - End ==');

    uIF.mmoXML.Lines.Add('== xdr XML start ==');
    uIF.mmoXML.Lines.AddStrings(postStrings);
    uIF.mmoXML.Lines.Add('== xdr XML end ==');

  end;


begin

  InitializeObjects;

  ARequestInfo.PostStream.Position := 4;
  postStrings.LoadFromStream(ARequestInfo.PostStream);
  postStrings.Text := TIdUri.URLDecode(postStrings.Text);
  xdrStream := TStringStream.Create(postStrings.Text);

  GetXMLValues(xdrStream, keyStrings, valStrings);
  AddToDisplayMemo;
 
  DestroyObjects;

end;


procedure GetXMLValues(xdrStream: TStringStream; keyStrings: TStringList; valStrings: TStringList);
var
  XML: TXMLDocument;
  i, j: integer;
  nodeList: TDomNodeList;
begin
  ReadXMLFile(XML, xdrStream);
  for j := 0 to keyStrings.Count - 1 do
  begin
    nodeList := XML.GetElementsByTagName(keyStrings.Strings[j]);
    if nodeList.Count > 0 then
    begin
      for i := 0 to 0 do //I need only the first matching item
      begin
        valStrings.Add(TIdURI.Urldecode(nodeList[i].TextContent));
      end
    end else
    begin
      valStrings.Add('<null>');
    end;
    nodeList.Free;
  end;
  XML.Free;
end;



LeleDumbo you got the reason, but, i have use Indy 10 , you know how i can work with that??

[wluis]

ok, i undersand yours point of view, but, i don´t need work with Indy 9 or 10 y must work with that,
i´m ending my thesis for my college, for me, the  work with indy is madatory