Отправка POST запроса

[vipok72]

Требуется сделать следующее:
У меня есть компонент Chromium Embedded, на нем я авторизован на одном сайте, куки соответственно сохранены, нужно совершить одно действие с помощью POST запроса, требуется чтобы куки сами были отправлены а я ввел только нужные данные для post запроса...
idHTTP для этого не подошел ибо нужно самому куки вводить и т.д. и т.п., кароч муторно с ним, нашел одну тему на форуме тык в этой теме идет отправка post запроса с помощью этого компонента, ошибка у меня возникает на строке 17 (см. 1 пост) ошибка: Access violation at address 00000000. Read of address 00000000 (если закомментировать все Request, Header и Data - ошибки нет), в чем дело понять не могу, прошу помощи

[p51x]

Read of address 00000000

Чтение из несозданного/незаданного массива/объекта.

[vipok72]

Сообщение от p51x

Чтение из несозданного/незаданного массива/объекта.

Дело в том что вроде как все задано... ну лично у меня в программе Request.Url задан

var
 Request: ICefRequest;
begin
 Request := TCefRequestRef.New;
 Request.Url := ''; //тут и происходит ошибка, хоть в программе ссылка задана, и чтения нет тут... тут запись вроде как

[Stilet]

TCefRequestRef.New

Может нужно TCefRequestRef.Create?
Что это вообще за метод такой необычноназванный?

[p51x]

ну лично у меня в программе Request.Url задан

а метод? а заголовки? а данные? гадать будем или код покажите?

Может нужно TCefRequestRef.Create?
Что это вообще за метод такой необычноназванный?

Не. Там так. http://stackoverflow.com/questions/1...-with-chromium

[vipok72]

Сообщение от Stilet

Может нужно TCefRequestRef.Create?
Что это вообще за метод такой необычноназванный?

Дело в том что я пока не особо знаю Delphi, сейчас начинаю понимать что там куча ошибок

[vipok72]

Сообщение от p51x

а метод? а заголовки? а данные? гадать будем или код покажите?


Не. Там так. http://stackoverflow.com/questions/1...-with-chromium

в начале где объявляются переменные

var
  Header: ICefStringMultimap;
  Data: ICefPostData;
  Request: ICefRequest;

функция

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

остальную часть кода переделал и сделал идентичным первому коду пользователя TLama в указанной вами ссылке

Request := TCefRequestRef.New;
Header := TCefStringMultimapOwn.Create;
Header.Append('Host', 'steamcommunity.com');
Header.Append('User-Agent', 'Mozilla/5.0 (Windows NT 5.1; rv:30.0) Gecko/20100101 Firefox/30.0');
Header.Append('Accept', '*/*');
Header.Append('Accept-Language', 'ru-RU,ru;q=0.8,en-US;q=0.5,en;q=0.3');
Header.Append('Accept-Encoding', 'gzip, deflate');
Header.Append('Content-Type', 'application/x-www-form-urlencoded; charset=UTF-8');
Header.Append('Referer','http://steamcommunity.com/market/listings/'+IntToStr(nomer)+'/'+name);
Header.Append('Origin', 'http://steamcommunity.com');
Header.Append('Connection', 'keep-alive');
Header.Append('Pragma', 'no-cache');
Header.Append('Cache-Control', 'no-cache');

Data := TCefPostDataRef.New;

Data.AddElement(CreateField('sessionid='+Form1.Edit2.Text));
Data.AddElement(CreateField('&currency=1'));
Data.AddElement(CreateField('&subtotal='+subtotal));
Data.AddElement(CreateField('&fee='+fee));
Data.AddElement(CreateField('&total='+FloatToStr(total)));
Data.AddElement(CreateField('&quantity=1'));
					
Request := TCefRequestRef.New;
Request.Flags := [UR_FLAG_ALLOW_CACHED_CREDENTIALS,UR_FLAG_ALLOW_COOKIES];
Request.Assign('http://steamcommunity.com/market/buylisting/'+listingid, 'POST', Data, Header);

try
form1.Chromium1.Browser.MainFrame.LoadRequest(Request);
except
end;

Но тем не менее возникает другая уже ошибка:
Проект вызвал исключение класса EAccessVioation с сообщением 'Access vioation at address 75823E8D in module 'oleaut32.dll'. Read at address 5EC20041'
Кстати post запрос должен отправится при некоторых условиях, при этом до этого идет работа с интернетом, в httpanalyzer7 все отображается кроме этого самого post запроса, если запускать не из под отладчика возникает какая то ошибка которая завершает работу программы

P.S. Заметил что 2 раза написал строчку

Request := TCefRequestRef.New;

удалил в коде первую строчку
теперь Read of address 6625FFFC

[Krasiosoft]

А на какой строчке кода возникает ошибка: Read of address 6625FFFC ?

[vipok72]

Сообщение от Krasiosoft

А на какой строчке кода возникает ошибка: Read of address 6625FFFC ?

Как я понимаю в строчке:

Request := TCefRequestRef.New;

[Stilet]

Нет, скорее всего XXX.New просто не создает нужные объекты, а сама ошибка возникает на строках ниже. Нужно поставить бряк, и проверить чему равна Request после присваивания. Если нулю - значит хромиум тебя послал