Что нового
  • Что бы вступить в ряды "Принятый кодер" Вам нужно:
    Написать 10 полезных сообщений или тем и Получить 10 симпатий.
    Для того кто не хочет терять время,может пожертвовать средства для поддержки сервеса, и вступить в ряды VIP на месяц, дополнительная информация в лс.

  • Пользаватели которые будут спамить, уходят в бан без предупреждения. Спам сообщения определяется администрацией и модератором.

  • Гость, Что бы Вы хотели увидеть на нашем Форуме? Изложить свои идеи и пожелания по улучшению форума Вы можете поделиться с нами здесь. ----> Перейдите сюда
  • Все пользователи не прошедшие проверку электронной почты будут заблокированы. Все вопросы с разблокировкой обращайтесь по адресу электронной почте : info@guardianelinks.com . Не пришло сообщение о проверке или о сбросе также сообщите нам.

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

Slavik

Принятый Кодер
Регистрация
17 Июл 2017
Сообщения
7
Баллы
30
Возраст
30
Код:
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 и как с ними работать либо подобный пример, заранее огромное спасибо
 

Sascha

Заместитель Администратора
Команда форума
Администратор
Регистрация
9 Май 2015
Сообщения
1,062
Баллы
155
Возраст
47
Код:
var
  List: IInterfaceList;
begin
  List := TInterfaceList.Create;
  List.Add(nil);
  List.Delete(0);
end;
 
Вверх