Code:
var i: Integer;
EncodedStr: string;
Header: OleVariant;
Post: OleVariant;
begin
// Make the post string
URL encoded
EncodedStr :=
'id='+edtID.Text+'&x=75&y=9';
// 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;
wbMain.Navigate(
'http://www.xxxxx.de/asdf/asdf.php'
, EmptyParam,
EmptyParam, Post, Header);
Soah...damit verschicke ich ein Form...Nur leider hat das Script eine Reload Sperre...d.h. der Referrer müsste geändern werden und das "müsste" doch eigentlich in den Header, oder?
mfg
NeoXan