Составление Records структуры.

[BDA]

Все же не мешает проверить чарльзом отправляемый пакет.

[=master=]

Нет тут строгая адресация на сервере и считываются параметры

Что-бы сие значило?

а после клиентом распределяется по значениям

Есть понятия - сериализиции/десерилизации в JSON и обратно. И есть готовые решения этого процесса.

[C_R_E_S_C_H]

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

Все же не мешает проверить чарльзом отправляемый пакет.

Естественно т.к. там есть sign-code это md5 отправляемого пакета в связке с некоторыми значениями он служит для проверки подлинности запроса

[C_R_E_S_C_H]

Сообщение от =master=

Что-бы сие значило?
Есть понятия - сериализиции/десерилизации в JSON и обратно. И есть готовые решения этого процесса.

Ну вообще то я в этих пакетах начал с утра разберется с 0 а делфи изучаю примерно пол года, а сам вообще на электрика учусь

[BDA]

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

Естественно т.к. там есть sign-code это md5 отправляемого пакета в связке с некоторыми значениями он служит для проверки подлинности запроса

Я писал ботов для игр вк.
Сначала нужно добиться, чтобы все поля, отправляемые из дельфи, совпали с теми, что отправляются из браузера.
Для этого настраиваем работу дельфи приложения через прокси чарльза. Затем отправляем и проверяем, чтобы все editы правильно заносились в пакет.

[C_R_E_S_C_H]

При компиляции появляется следующее........
Checking project dependencies...
Compiling Project1.dproj (Debug, Win32)
dcc command line for "Project1.dpr"
c:\program files (x86)\embarcadero\rad studio\9.0\bin\dcc32.exe -$O- -$W+ --no-config -M -Q -TX.exe
-AGenerics.Collections=System.Generi cs.Collections;Generics.Defaults=Sy stem.Generics.Defaults;WinTypes=Win dows;WinProcs=Windows;DbiTypes=BDE;
DbiProcs=BDE;DbiErrs=BDE -DDEBUG -E.\Win32\Debug -I"c:\program files (x86)\embarcadero\rad studio\9.0\lib\Win32\release";
"C:\Users\C_R_E_S_C_H\Documents \RAD Studio\9.0\Imports";"c:\program files (x86)\embarcadero\rad studio\9.0\Imports";
"C:\Users\C_R_E_S_C_H\Documents \RAD Studio\9.0\Dcp";"c:\program files (x86)\embarcadero\rad studio\9.0\include";"C:\Program Files
(x86)\FastReports\LibD16";"c:\progr am files (x86)\embarcadero\rad studio\9.0\RaveReports\Lib";"C:\Pro gram Files (x86)\Raize\CS5\Lib\RS-XE2\Win32"
-LE"C:\Users\C_R_E_S_C_H\Documents\R AD Studio\9.0\Bpl" -LN"C:\Users\C_R_E_S_C_H\Documents\R AD Studio\9.0\Dcp" -N0.\Win32\Debug -NSWinapi;System.Win;
Data.Win;Datasnap.Win;Web.Win;Soap. Win;Xml.Win;Bde;System;Xml;Data;Dat asnap;Web;Soap;Vcl;Vcl.Imaging;Vcl. Touch;Vcl.Samples;Vcl.Shell; -O"c:\program
files (x86)\embarcadero\rad studio\9.0\lib\Win32\release";"C:\U sers\C_R_E_S_C_H\Documents\RAD Studio\9.0\Imports";"c:\program files
(x86)\embarcadero\rad studio\9.0\Imports";"C:\Users\C_R_E _S_C_H\Documents\RAD Studio\9.0\Dcp";"c:\program files (x86)\embarcadero\rad
studio\9.0\include";"C:\Program Files (x86)\FastReports\LibD16";"c:\progr am files (x86)\embarcadero\rad studio\9.0\RaveReports\Lib";"C:\Pro gram Files
(x86)\Raize\CS5\Lib\RS-XE2\Win32" -R"c:\program files (x86)\embarcadero\rad studio\9.0\lib\Win32\release";"C:\U sers\C_R_E_S_C_H\Documents\RAD
Studio\9.0\Imports";"c:\program files (x86)\embarcadero\rad studio\9.0\Imports";"C:\Users\C_R_E _S_C_H\Documents\RAD Studio\9.0\Dcp";"c:\program files
(x86)\embarcadero\rad studio\9.0\include";"C:\Program Files (x86)\FastReports\LibD16";"c:\progr am files (x86)\embarcadero\rad
studio\9.0\RaveReports\Lib";"C:\Pro gram Files (x86)\Raize\CS5\Lib\RS-XE2\Win32" -U"c:\program files (x86)\embarcadero\rad
studio\9.0\lib\Win32\release";"C:\U sers\C_R_E_S_C_H\Documents\RAD Studio\9.0\Imports";"c:\program files (x86)\embarcadero\rad studio\9.0\Imports";
"C:\Users\C_R_E_S_C_H\Documents \RAD Studio\9.0\Dcp";"c:\program files (x86)\embarcadero\rad studio\9.0\include";"C:\Program Files
(x86)\FastReports\LibD16";"c:\progr am files (x86)\embarcadero\rad studio\9.0\RaveReports\Lib";"C:\Pro gram Files (x86)\Raize\CS5\Lib\RS-XE2\Win32" -V
-VN -NB"C:\Users\C_R_E_S_C_H\Documents\R AD Studio\9.0\Dcp" -NH"C:\Users\C_R_E_S_C_H\Documents\R AD Studio\9.0\hpp" -NO.\Win32\Debug Project1.dpr
[DCC Fatal Error] Unit1.pas(4390946): F2084 Internal Error: AV089E19F5-W00390441-1
[DCC Fatal Error] Exception EAccessViolation: Access violation at address 089BF160 in module 'dcc32160.dll'. Write of address D7D2DB04
[DCC Error] Разрушительный сбой (Exception from HRESULT: 0x8000FFFF (E_UNEXPECTED))
Failed
Elapsed time: 00:00:00.3



и красным выделяется самая последняя строчка
end.
это как понять?

[BDA]

Приведите и сам код.

[C_R_E_S_C_H]

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

Приведите и сам код.

там ошибка была с кодировкой)))) пропустил 1 место

но тут теперь другая проблема
{"f":["vk41649419"],"i":"vk41649419","k":"02e92bd6bb03 fd2c286ec38119c6ec96","l":"","s":{" d":"Ð*˜Ð*ІÐ*°Ð*Ð…;Ð*ÑŸÐ*Ñ•Ð*Ò‘Ð*Ñ•Ð* »СЏÐ*Ñ”;NaN;ru_RU;0;;","i":"vk41649419"," l":"ru-RU","n":"Ð*˜Ð*ІÐ*°Ð*Ð… Ð*ÑŸÐ*Ñ•Ð*Ò‘Ð*Ñ•Ð*»СЏÐ*Ñ”","u":"http://cs4382.userapi.com/u41649419/a_5014f5f6.jpg","x":"NaN"},"u":"vk4 1649419","v":252,"w":40}


вот это то что я передаю серверу

а он в ответ мне 400

procedure TForm1.Button1Click(Sender: TObject);
var
pac:TStringList;
begin
pac:=TStringList.Create;
pac.Text:='{"f":["vk41649419"],"i":"vk41649419","k":"02e92bd6bb03fd2c286ec38119c6ec96","l":"","s":{"d":"'+ansitoutf8(edit3.text)+';'+ansitoutf8(edit4.text)+';NaN;ru_RU;0;;","i":"vk41649419","l":"ru-RU","n":"'+ansitoutf8(edit1.text)+' '+ansitoutf8(edit1.text)+'","u":"http://cs4382.userapi.com/u41649419/a_5014f5f6.jpg","x":"NaN"},"u":"vk41649419","v":252,"w":40}';
idHTTP1.Request.CustomHeaders.Values['locale-name']:='ru-RU';
idHTTP1.Request.CustomHeaders.Values['client-ver']:='client-ver: 252';
idHTTP1.Request.CustomHeaders.Values['server-method']:='SignIn';
idHttp1.Request.ContentLength:=length(pac.Text);
idHTTP1.Request.CustomHeaders.Values['sign-code']:=SKGen(pac.text,ansitoutf8(Edit1.Text),ansitoutf8(Edit2.Text));
Memo1.Lines.Add(idhttp1.post('http://209.190.120.218/Geo/Segment01/segment.ashx',pac));
pac.free;
end;


function TForm1.SKGen(pach, idh, auth: string): string;
begin

SKGen:=LowerCase(MD5DigestToStr(MD5String('The Matrix has you...' +pach +idh +auth)));
end;

[BDA]

400 Bad Request — сервер обнаружил в запросе клиента синтаксическую ошибку. Появился в HTTP/1.0.
Может быть, вместо:

idHTTP1.Request.CustomHeaders.Values['client-ver']:='client-ver: 252';

Нужно

idHTTP1.Request.CustomHeaders.Values['client-ver']:='252';

Да и длину контента, по-моему, можно не выставлять вручную.

[C_R_E_S_C_H]

Чарлес при 400