WebBrowser控件的Navigate方法怎么用?(50分)

  • 主题发起人 主题发起人 叶林
  • 开始时间 开始时间

叶林

Unregistered / Unconfirmed
GUEST, unregistred user!
我想用Navigate方法自动Post在IE里的表单数据,该怎么做?
 
我刚谢了一个,给你个例子

function Encode(const S: string): string;
var
I: Integer;
Hex: string;
begin
for I := 1 to Length(S) do

case S of
' ': result := Result + '+';
'A'..'Z', 'a'..'z', '*', '@', '.', '_', '-',
'0'..'9', '$', '!', '''', '(', ')':
result := Result + s;
else
begin
Hex := IntToHex(ord(S), 2);
if Length(Hex) = 2 then Result := Result + '%' + Hex else
Result := Result + '%0' + hex;
end;
end;
end;

function StringToVarArray(const S: string): Variant;
begin
Result := Unassigned;
if S <> '' then
begin
Result := VarArrayCreate([0, Length(S) - 1], varByte);
Move(Pointer(S)^, VarArrayLock(Result)^, Length(S));
VarArrayUnlock(Result);
end;
end;

procedure TMainForm.btnPostClick(Sender: TObject);
var
vFlags,
vTarget,
vHeaders,
vPost :OleVariant;
I : Integer;
PostData : string;
begin
vHeaders := 'Content-Type: application/x-www-form-urlencoded'#10#13;
PostData := Encode(Format('tr_id=295&amp;tr_place_id=0&amp;tr_to_nickname=%s&amp;tr_present_num=1',[EditTarget.Text]));
vPost := StringToVarArray(PostData);//一定要这样,vPost是一个SAFEARRAY
WebBrowser1.Navigate('http://www.the9.com/treasure/tr_present.php',vflags,vtarget,vPost,vHeaders);
end;
 
谢了!我已经给你加了50分
 
后退
顶部