| 33 |
interface |
interface |
| 34 |
|
|
| 35 |
uses |
uses |
| 36 |
Windows, SysUtils, WinInet; |
Windows, SysUtils, WinInet, YofUtils; |
| 37 |
|
|
| 38 |
type |
type |
| 39 |
TDolibSession = class(TObject) |
TDolibSession = class(TObject) |
| 227 |
Buf: array[0..4096] of Char; |
Buf: array[0..4096] of Char; |
| 228 |
UserInfo: string; |
UserInfo: string; |
| 229 |
UserAgent: string; |
UserAgent: string; |
| 230 |
|
Header: string; |
| 231 |
cb: DWORD; |
cb: DWORD; |
| 232 |
Delim: Integer; |
Delim: Integer; |
| 233 |
begin |
begin |
| 256 |
if not Assigned(hRequest) then |
if not Assigned(hRequest) then |
| 257 |
MakeError(FSession, GetLastError()) |
MakeError(FSession, GetLastError()) |
| 258 |
else begin |
else begin |
| 259 |
UserInfo := Format('ID=%s&PW=%s', [ID, Pass]); |
UserInfo := Format('ID=%s&PW=%s', [HttpEncode(ID), HttpEncode(Pass)]); |
| 260 |
|
Header := 'Content-Type: application/x-www-form-urlencoded'#13#10; |
| 261 |
UserAgent := Format('%s %s', [DOLIB_2CH_UA, ClientUA]) + #13#10; |
UserAgent := Format('%s %s', [DOLIB_2CH_UA, ClientUA]) + #13#10; |
| 262 |
if not HttpSendRequest(hRequest, PChar(UserAgent), DWORD(-1), PChar(UserInfo), Length(UserInfo)) then |
Header := Header + UserAgent; |
| 263 |
|
if not HttpSendRequest(hRequest, PChar(Header), DWORD(-1), PChar(UserInfo), Length(UserInfo)) then |
| 264 |
MakeError(FSession, GetLastError()) |
MakeError(FSession, GetLastError()) |
| 265 |
else begin |
else begin |
| 266 |
if not InternetReadFile(hRequest, @Buf, SizeOf(Buf), cb) then |
if not InternetReadFile(hRequest, @Buf, SizeOf(Buf), cb) then |