TWebBrowser ==> EdgeOnly로 post방식으로 보내는게 안됩니다

[문상연]

기존에는 아래처럼 POST를 구현을 하고 잇었습니다

var
  strData: string;
  PostData: OleVariant;
  Headers: OleVariant;
  i: Integer;
begin
  {1. you must create a string with parameter names and values
  Result string must be in the next format:
  Param1=Value1&Param2=Value2&Param3=Value3...}
  strData := 'Param1Name=' + HTTPEncode(Param1Value) + '&' +
    'Param2Name=' + HttpEncode(Param2Value) + ...;

  {2. you must convert a string into variant array of bytes and
   every character from string is a value in array}
  PostData := VarArrayCreate([0, Length(strData) - 1], varByte);

  { copy the ordinal value of the character into the PostData array}
  for i := 1 to Length(strData) do
    PostData[i-1] := Ord(strData[i]);

  {3. prepare headers which will be sent to remote web-server}
  Headers := 'Content-Type: application/x-www-form-urlencoded' + #10#13;

  {4. you must navigate to the URL with your script and send as parameters
  your array with POST-data and headers}
 
  yourWebBrowserComponent.Navigate2('http://www.XXX.com/TEST.asp',
     EmptyParam, EmptyParam, PostData, Headers);
end;
 

그런데 WebBrowseR를 EdgeOnly로 변경하면 

  yourWebBrowserComponent.Navigate2('http://www.XXX.com/TEST.asp',
     EmptyParam, EmptyParam, PostData, Headers);

여기에서 에러가 발생합니다

Project TEST.exe raised exception class ENotImplemented with message 'Operation not supported by Edge WebView2 control'.

 

 

POST로 넘겨야하는데  어떻게 해야하나요?

 

 

 

Edited 7월 1일, 2022 by 문상연