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}
질문
문상연
기존에는 아래처럼 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로 넘겨야하는데 어떻게 해야하나요?
이 댓글 링크
다른 사이트에 공유하기
0 answers to this question
Recommended Posts
이 토의에 참여하세요
지금 바로 의견을 남길 수 있습니다. 그리고 나서 가입해도 됩니다. 이미 회원이라면, 지금 로그인하고 본인 계정으로 의견을 남기세요.