Помощь в коде Tchromium Beforeresourceload

Slavik

Принятый Кодер
Ofline
Код:
procedure TForm3.Chromium1BeforeResourceLoad(Sender: TObject;
  const browser: ICefBrowser; const frame: ICefFrame;
  const request: ICefRequest; out Result: Boolean);
begin
Request.PostData.GetElements(request.PostData.GetCount);
end;
Request.PostData.GetElements возвращает IInterfaceList мне необходимо вытащить все данные в строку или в tstringlist
Сама функция в ceflib.pas
Код:
function TCefPostDataRef.GetElements(Count: NativeUInt): IInterfaceList;
var
  items: PCefPostDataElementArray;
  i: Integer;
begin
  Result := TInterfaceList.Create;
  GetMem(items, SizeOf(PCefPostDataElement) * Count);
  FillChar(items^, SizeOf(PCefPostDataElement) * Count, 0);
  try
    PCefPostData(FData)^.get_elements(PCefPostData(FData), @Count, items);
    for i := 0 to Count - 1 do
      Result.Add(TCefPostDataElementRef.UnWrap(items[i]));
  finally
    FreeMem(items);
  end;
end;
помогите с решением данной задачи, либо ткните носом где можно прочитать подробно про IInterfaceList и как с ними работать либо подобный пример, заранее огромное спасибо
 
Код:
var
  List: IInterfaceList;
begin
  List := TInterfaceList.Create;
  List.Add(nil);
  List.Delete(0);
end;
 
Назад
Сверху Снизу