Chromium으로 게시물 및 헤더 데이터를 보내려면 어떻게해야합니까?

Question

TWebBrowser에서 Chromium으로 일부 코드를 변환하려고 시도 중이지만 HTTP 요청으로 게시물 및 헤더 데이터를 보내는 방법을 알아내는 데 문제가 있습니다.

다음은 구현하려는 TWebBrowser 기능입니다.

var 
VHeader, PostData: OleVariant; 


PostData := VarArrayCreate([0, Length(XMLString) - 1], varByte) ;  
HeaderData := 'Content-Type: application/x-www-form-urlencoded'+ '\n'; 

WebBrowser1.Navigate(StrUrl,EmptyParam,EmptyParam,PostData,VHeader); 

Chromium과 동등한 작업을 수행하려면 어떻게해야합니까?

Answer 1

Delphi Chromium Embedded에 대한 설명서가 없기 때문에 CEF의 C++ 버전에 대한 웹 요청을 보내는 데 필요한 요구 사항을 참조하겠습니다. 따라서 Chromium에서 요청을 전송하려면 LoadRequest 메소드를 사용해야합니다. 이를 사용하려면 요청 헤더 및 데이터 지정을 위해 HeaderMap 및 CefPostData 개체와 함께 CefRequest 요청 개체 클래스의 개체 인스턴스가 필요합니다.

uses 
    ceflib; 

function CreateField(const AValue: AnsiString): ICefPostDataElement; 
begin 
    Result := TCefPostDataElementRef.New; 
    Result.SetToBytes(Length(AValue), PAnsiChar(AValue)); 
end; 

procedure TForm1.Button1Click(Sender: TObject); 
var 
    Header: ICefStringMultimap; 
    Data: ICefPostData; 
    Request: ICefRequest; 
begin 
    Header := TCefStringMultimapOwn.Create; 
    Header.Append('Content-Type', 'application/x-www-form-urlencoded'); 

    Data := TCefPostDataRef.New; 
    Data.AddElement(CreateField('Data.id=27')); 
    Data.AddElement(CreateField('&Data.title=title')); 
    Data.AddElement(CreateField('&Data.body=body')); 

    Request := TCefRequestRef.New; 
    Request.Flags := WUR_FLAG_NONE; 
    Request.Assign('http://example.com/', 'POST', Data, Header); 

    Chromium1.Browser.MainFrame.LoadRequest(Request); 
end; 

이 같은 위의 코드의 다른 버전을 수행해야합니다 this thread에서 예 앙리 Gourvest의 (델파이 CEF 래퍼의 저자)에 확장

, 당신은 델파이에서 다음 의사 코드 같은 것을 시도 할 수 있습니다 이 글

procedure TForm1.Button1Click(Sender: TObject); 
var 
    Header: ICefStringMultimap; 
    Data: ICefPostData; 
    Request: ICefRequest; 
begin 
    Request := TCefRequestRef.New; 
    Request.Url := 'http://example.com/'; 
    Request.Method := 'POST'; 
    Request.Flags := WUR_FLAG_NONE; 

    Header := TCefStringMultimapOwn.Create; 
    Header.Append('Content-Type', 'application/x-www-form-urlencoded'); 
    Request.SetHeaderMap(Header); 

    Data := TCefPostDataRef.New; 
    Data.AddElement(CreateField('Data.id=27')); 
    Data.AddElement(CreateField('&Data.title=title')); 
    Data.AddElement(CreateField('&Data.body=body')); 
    Request.PostData := Data; 

    Chromium1.Browser.MainFrame.LoadRequest(Request); 
end;