Delphi - база знаний


Как получить POST данные?


Как получить POST данные?



Взято из FAQ:
Перевод материала с сайта members.home.com/hfournier/webbrowser.htm
 
Если данные передаются в формате 'animal=cat& color=brown' и т.д.,
то попробуйте использовать следующий код:

procedure TDBModule.Navigate(stURL, stPostData: Stringvar wbWebBrowser: TWebBrowser);
var
  vWebAddr, vPostData, vFlags, vFrame, vHeaders: OleVariant;
  iLoop: Integer;
begin
{Are we posting data to this Url?}  
if Length(stPostData)> 0 then  
begin  
{Require this header information if there is stPostData.}  
vHeaders:= 'Content-Type: application/x-www-form-urlencoded'+ #10#13#0;  
{Set the variant type for the vPostData.}  
vPostData:= VarArrayCreate([0, Length(stPostData)], varByte);  
for iLoop := 0 to Length(stPostData)- 1 do // Iterate  
begin  
  vPostData[iLoop]:= Ord(stPostData[iLoop+ 1]);  
end// for  
{Final terminating Character.}  
vPostData[Length(stPostData)]:= 0;  
{Set the type of Variant, cast}  
TVarData(vPostData).vType:= varArray;  
end;  
{And the other stuff.}  
vWebAddr:= stURL;  
{Make the call Rex.}  
wbWebBrowser.Navigate2(vWebAddr, vFlags, vFrame, vPostData, vHeaders);  
end{End of Navigate procedure.}

Автор: Craig Foley Ответ: А это другой способ:

procedure TForm1.SubmitPostForm;
var
strPostData: string;
Data: Pointer;
URL, Flags, TargetFrameName, PostData, Headers: OleVariant;
begin
{  
< !-- submit this html form: -->  
< form method=" post" action=" http://127.0.0.1/cgi-bin/register.pl" >  
< input type=" text" name=" FIRSTNAME" value=" Hans" >  
< input type=" text" name=" LASTNAME" value=" Gulo" >  
< input type=" text" name=" NOTE" value=" thats it" >  
< input type=" submit" >  
< /form>  
}  
strPostData := 'FIRSTNAME=Hans& LASTNAME=Gulo& NOTE=thats+it';  
PostData := VarArrayCreate([0, Length(strPostData) - 1], varByte);  
Data := VarArrayLock(PostData);  
try  
  Move(strPostData[1], Data^, Length(strPostData));  
finally  
  VarArrayUnlock(PostData);  
end;  
URL := 'http://127.0.0.1/cgi-bin/register.pl';  
Flags := EmptyParam;  
TargetFrameName := EmptyParam;  
Headers := EmptyParam; // TWebBrowse  
// эти заголовки соответствующими зна?ениями  
WebBrowser1.Navigate2(URL, Flags, TargetFrameName, PostData, Headers);  
end;

Автор: Hans Gulo.





Начало  Назад  Вперед



Книжный магазин