das Problem liegt darin, das nicht jeder fremd PC
MSXML installiert hat.
derzeit mach ich das wie folgt:
Delphi-Quellcode:
procedure TForm1.Button4Click(Sender: TObject);
var
req : IXMLHTTPRequest;
xml:TXMLDocument;
XMLStream:TMemoryStream;
begin
req.open('
GET', EdtUrlText, False,
{Username} EmptyParam,
{Passwort} EmptyParam);
// eigenen Request-Header setzen
req.setRequestHeader('
ApplicationID', '
Test V1.0');
req.send(EmptyParam);
// Anfrage an Server senden und Antwort abwarten
// Nutzdaten anzeigen
XMLStringData.Text := req.responseText;
StatusBar1.Panels[0].Text:='
Lade XML Files........fertig';
Application.ProcessMessages;
XMLStringData.Text:= StringReplace(req.responseText,'
UTF-8','
ISO-8859-1',[rfReplaceAll]);
XMLStringData.SaveToStream(XMLStream);
XMLStream.Seek(0,soBeginning);
XMLDocument1.LoadFromStream(XMLStream);
XMLDocument1.Encoding:='
ISO-8859-1';
XMLDocument1.Active:=True;
..
...
end;
jetzt ist meine Frage ob ich statt
req : IXMLHTTPRequest;
auch eine andere komponente benutzen kann.