Сайту требуются администраторы и авторы статей. С предложениями пишите на rock-n-roll@tut.by.
11 марта 2008

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

Пример отправки 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;

Категория IWebBrowser, Internet, ActiveX | 1 CommentВерсия для печати Версия для печати

Друзья

  • Рубрики

  • Разное
  • Прочее