Develop and Download Open Source Software

Browse CVS Repository

Diff of /gikonavigoeson/gikonavi/Dolib.pas

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch Patch

revision 1.6 by h677, Tue May 25 13:02:48 2004 UTC revision 1.7 by h677, Sat Jul 10 07:52:22 2010 UTC
# Line 33  unit Dolib; Line 33  unit Dolib;
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)
# Line 227  var Line 227  var
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
# Line 255  begin Line 256  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

Legend:
Removed from v.1.6  
changed lines
  Added in v.1.7

Back to OSDN">Back to OSDN
ViewVC Help
Powered by ViewVC 1.1.26