Ungeheure Speichernutzung des TWebrowsers beim Laden einer XML

[Ajintaro]

Hi,

Gute Neuigkeiten !
Ich habe die Browser-Komponente entfernt und wie von himitsu vorgeschlagen idHTTP genommen:

Delphi-Quellcode:

function URLEncode(const ASrc: string): string;
var
  i: Integer;
const
  UnsafeChars = ['*', '#', '%', '<', '>', ' ','[',']'];  {do not localize}
begin
  Result := '';    {Do not Localize}
  for i := 1 to Length(ASrc) do
  begin
    if (ASrc[i] in UnsafeChars) or (not (ord(ASrc[i])in [33..128])) then
    begin {do not localize}
      Result := Result + '%' + IntToHex(Ord(ASrc[i]), 2);  {do not localize}
    end
    else
    begin
      Result := Result + ASrc[i];
    end;
  end;
end;


procedure TForm4.Button1Click(Sender: TObject);
var
  aStream: TMemoryStream;
  Params: TStringStream;
begin
  button1.Caption:='please wait';
  aStream := TMemoryStream.create;
  Params := TStringStream.create('');
  try
    with IdHTTP1 do
    begin
      //Params.WriteString(URLEncode('user=' + Edit1.Text + '&'));
      //Params.WriteString(URLEncode('pass=' + Edit2.Text));
      // You can change headers like this:
      Request.ContentType := 'application/x-www-form-urlencoded';
      try
        Response.KeepAlive := False;
        Post('http://www.dragonlords.info/dev/big.xml', Params, aStream);
      except
        on E: Exception do
          showmessage('Error encountered during POST: ' + E.Message);
      end;
    end;
    aStream.WriteBuffer(#0' ', 1);
    aStream.Position := 0;
    Memo1.Lines.LoadFromStream(aStream);
    button1.Caption:='done';
  except
    aStream.Free;
    Params.Free;
  end;
end;

Die Ladezeit ist die selbe, aber diese Aktion "kostet" gerade mal 15MB !

[himitsu]

Es kommt immer darauf an, was man machen will und welche Funktionen man nutzt.

• HTML-Browser zum Laden und Darstellen der XML, welcher das natürlich für die Anzeige in ein HTML-DOM läd und in eine aufwändige GraphicEngine überführt. (und zusätzlich noch ein XML-DOM, da es so bei ihm integriert ist, anstatt es als "einfache" Textdatei zu behandeln)
• ein XML-DOM, welcher die Datei samt Metainformationen fein aufgedröselt im RAM verwaltet
• ein XML-SAX, welches, während der Behandlung, nur den aktuellen Knoten und maximal den aktuellen Pfad im RAM hat und den Rest als Text-Stream irgendwo besitzt

Wenn man viele Knoten sequentiell verarbeiten will, dann wäre das Mittel der Wahl ein SAXParser/SAXWriter.

Und wnen man die XML-Datei nur runterladen will, dann nimmt man natprlich nur eine "Download"-Komponente und nicht gleich einen kompletten Browser.

[Sherlock]

Zitat:

Zitat von Mike_on_Tour (Beitrag 1276024)

Ich habe mit Absicht weggelassen, was alles im Programm abläuft und woher die Daten kommen. Ich kann aber versichern, dass der Ablauf so schon seine Ordnung hat.

Dann bin ich ja beruhigt, das es nicht um den reinen XML-Aufbau geht. Denn ich muss mich wohl oder übel derzeit auf WSDL/XSD-Import einlassen, und habe dabei gar kein so gutes Gefühl.

Sherlock

[Mike_on_Tour]

Zitat:

Zitat von Sherlock (Beitrag 1276030)

Zitat:

Zitat von Mike_on_Tour (Beitrag 1276024)

Ich habe mit Absicht weggelassen, was alles im Programm abläuft und woher die Daten kommen. Ich kann aber versichern, dass der Ablauf so schon seine Ordnung hat.

Dann bin ich ja beruhigt, das es nicht um den reinen XML-Aufbau geht. Denn ich muss mich wohl oder übel derzeit auf WSDL/XSD-Import einlassen, und habe dabei gar kein so gutes Gefühl.

Ich habe noch mal nachgerechnet. Die Erstellung der XML-Datei dauert tatsächlich nur ca. 5 Minuten. Die restliche Zeit wird für Berechnungen und Prüfungen verwendet. Meine 40 Minuten waren da wohl nicht korrekt.

Mike

[Sherlock]

Du Schelm, Du! Kannst doch nem alten Mann nicht so einen Schrecken einjagen.

Sherlock

[Ajintaro]

Hi nochmal,

Wie setzt man denn mit idHTTP einen Post Befehl mit mehreren Parametern ab ? Muss eigens dafür eine for - Schleife geschrieben werden um jeden Parameter einzeln:

Delphi-Quellcode:

Params.WriteString(URLEncode(KEY + VALUE + '&'));

zu encoden ?

Meine Parameter kommen in einer Zeile wie z.B. username=Rolf&pass=Geheim&Anzug=Gruen&Ort=SanktAug ustin
Muss eine Prozedur geschrieben werden um die einzelnen Wertepaare zu ermitteln?

Delphi-Quellcode:

{++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
//submit_post
+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++}
Procedure submit_post(url_string,parameter:string;amemo:TMemo);
var
  aStream: TMemoryStream;
  Params: TStringStream;
begin
  aStream := TMemoryStream.create;
  Params := TStringStream.create('');
  try
    with Fmain.IdHTTP1 do
    begin
       
      //Params.WriteString(URLEncode('user=' + Edit1.Text + '&'));
      //Params.WriteString(URLEncode('pass=' + Edit2.Text));

      Request.ContentType := 'application/x-www-form-urlencoded';
      try
        Response.KeepAlive := False;
        Post(url_string, Params, aStream);
      except
        on E: Exception do
          showmessage('Error encountered during POST: ' + E.Message);
      end;
    end;
    aStream.WriteBuffer(#0' ', 1);
    aStream.Position := 0;
    amemo.Lines.LoadFromStream(aStream);
  except
    aStream.Free;
    Params.Free;
  end;
end;

[hathor]

#11 ist "umständlich"...

Besser so:

Delphi-Quellcode:

procedure TForm4.Button2Click(Sender: TObject);   //SAVE XML
var fs: TFileStream;  XMLadress: String;
begin
  fs := TFileStream.Create('D:\big.xml', fmCreate);
  XMLadress:='http://www.dragonlords.info/dev/big.xml';
  try
      IdHTTP1.Get(XMLadress, fs);
  finally
    fs.Free;
  end;
end;

procedure TForm4.Button3Click(Sender: TObject);   //LOAD XML
begin
Memo1.Lines.LoadFromFile('D:\big.xml');
end;

[Ajintaro]

Danke für deinen Beitrag hathor, aber ich bekomme die xml nur durch POST und einen Schwall an Parametern.

[mjustin]

Zitat:

Zitat von Ajintaro (Beitrag 1276039)

Wie setzt man denn mit idHTTP einen Post Befehl mit mehreren Parametern ab ?

Nach diesem Stackoverflow Beitrag kann man es ab Delphi 2009 so machen:

Delphi-Quellcode:

var
  Server: TIdHttp;
  Parameters,Response: TStringStream;
begin
  Response := TStringStream.Create;
  Parameters := TStringStream.Create('param1=Value1&param2=عربي/عرب&param3=Value3', TEncoding.UTF8);
  Server.Post('http://www.example.com/page.php', Parameters, Response);
end;

Den Zeichensatz sollte man vor dem Post auch noch setzen:

Delphi-Quellcode:

  Server.Request.Charset := 'utf-8';