Sites of the week

ads ads ads ads

Delphi: IWebBrowser - делаем запрос POST

Posted by admin | ActiveX, IWebBrowser, Internet | Вторник 11 Март 2008 14:59

Пример отправки POST-запроса с помощью компонента IWebBrowser.

 
 
procedure TForm1.PostWithWebBrowser(PostString: string; URL: OleVariant);
var
Data: Pointer;
PostData: OleVariant;
Flags, TargetFrame, Headers: OleVariant;
begin
PostData := VarArrayCreate([0, Length(PostString) - 1], varByte);
Data := VarArrayLock(PostData);
try
Move(PostString[1], Data^, Length(PostString));
finally
VarArrayUnlock(PostData);
end;
Flags := EmptyParam;
TargetFrameName := EmptyParam;
Headers := EmptyParam;
WebBrowser1.Navigate2(URL, Flags, TargetFrame, PostData, Headers);
end;
Страница 1 из 11