Webbrowser Daten per Post werden nicht komplett übertragen

[Pichel]

Hi.

Also hab schon gesucht und rumprobiert aber finde keine Lösung.

Wenn ich Daten per TWebBrowser an eine Webseiten (PHP) schicke welche diese in eine SQL-Datenbank speichern soll, wird ein Parameter immer ab ca. 80k abgeschnitten, dabei müsste die Datenmenge doch nur durch den Server begrenzt sein und weit höher liegen.

Also vermute ich den Fehler bei mir.

Zum posten verwende ich folgende Funktion:

Delphi-Quellcode:

function myBrowserPost(WebBrowser: TWebBrowser; Url, Params: String): Boolean;
var i: Integer;
    EncodedStr: string;
    Header: OleVariant;
    Post: OleVariant;
begin
  // Make the post string URL encoded
  EncodedStr := Params; //'name=SwissDelphiCenter.ch&text=Test Guestbook entry';
  // The post must be an array. But without null terminator (-1)
  Post := VarArrayCreate([0, Length(EncodedStr) - 1], varByte);
  // Put Post in array
  for I := 1 to Length(EncodedStr) do
    Post[I - 1] := Ord(EncodedStr[I]);
  Header := 'Content-Type: application/x-www-form-urlencoded' + #10#13;
  WebBrowser.Navigate(Url, EmptyParam, EmptyParam, Post, Header);
  Result := True;
end;

Hat jemand eine Lösung für mich, bitte bitte bitte

L.G.aus Kassel.

Ps. Natürlich warte ich das onDocumentComplete ab