2010-04-07 17:04:25 -04:00
|
|
|
procedure ps_OpenWebPage( const url : string); extdecl;
|
|
|
|
begin
|
|
|
|
OpenWebPage(url)
|
|
|
|
end;
|
|
|
|
|
|
|
|
function ps_GetPage(const S: String): String; extdecl;
|
2010-01-25 08:59:44 -05:00
|
|
|
begin
|
2010-04-07 08:01:26 -04:00
|
|
|
result := CurrThread.MInternet.GetPage(S);
|
2010-01-25 08:59:44 -05:00
|
|
|
end;
|
2010-02-13 11:56:46 -05:00
|
|
|
|
2010-03-02 16:27:49 -05:00
|
|
|
function ps_InitializeHTTPClient(HandleCookies: Boolean): Integer; extdecl;
|
2010-02-13 11:56:46 -05:00
|
|
|
begin
|
2010-02-20 18:12:51 -05:00
|
|
|
result := CurrThread.MInternet.CreateHTTPClient(HandleCookies);
|
2010-02-13 11:56:46 -05:00
|
|
|
end;
|
|
|
|
|
|
|
|
procedure ps_FreeHTTPClient(Client: Integer); extdecl;
|
|
|
|
begin;
|
2010-03-02 16:27:49 -05:00
|
|
|
CurrThread.MInternet.FreeHTTPClient(client);
|
2010-02-13 11:56:46 -05:00
|
|
|
end;
|
|
|
|
|
2010-04-07 17:04:25 -04:00
|
|
|
function ps_GetHTTPPage(Client: Integer;const URL: string): string; extdecl;
|
2010-02-13 11:56:46 -05:00
|
|
|
begin
|
|
|
|
result := CurrThread.MInternet.GetHTTPClient(Client).GetHTTPPage(url);
|
|
|
|
end;
|
2010-04-07 17:04:25 -04:00
|
|
|
procedure ps_SetHTTPUserAgent(Client: Integer;const Agent: string); extdecl;
|
2010-02-13 11:56:46 -05:00
|
|
|
begin
|
|
|
|
CurrThread.MInternet.GetHTTPClient(Client).SetHTTPUserAgent(agent);
|
|
|
|
end;
|
|
|
|
|
2010-04-07 17:04:25 -04:00
|
|
|
function ps_PostHTTPPage(Client: Integer;const Url,PostData: string): string; extdecl;
|
2010-02-13 11:56:46 -05:00
|
|
|
begin
|
|
|
|
result := CurrThread.MInternet.GetHTTPClient(Client).PostHTTPPage(url,postdata);
|
|
|
|
end;
|
|
|
|
|
2010-04-07 17:04:25 -04:00
|
|
|
function ps_PostHTTPPageEx(Client: Integer;const Url: string): string; extdecl;
|
2010-02-13 11:56:46 -05:00
|
|
|
begin
|
|
|
|
result := CurrThread.MInternet.GetHTTPClient(Client).PostHTTPPage(url);
|
|
|
|
end;
|
|
|
|
|
|
|
|
procedure ps_ClearPostData(Client: Integer); extdecl;
|
|
|
|
begin
|
|
|
|
CurrThread.MInternet.GetHTTPClient(Client).ClearPostData;
|
|
|
|
end;
|
|
|
|
|
2010-04-07 17:04:25 -04:00
|
|
|
procedure ps_AddPostVariable(Client: Integer;const VarName, VarValue: string); extdecl;
|
2010-02-13 11:56:46 -05:00
|
|
|
begin
|
|
|
|
CurrThread.MInternet.GetHTTPClient(Client).AddPostVariable(varname,varvalue);
|
|
|
|
end;
|
|
|
|
|
|
|
|
function ps_GetRawHeaders(Client: Integer): string; extdecl;
|
|
|
|
begin
|
|
|
|
result := CurrThread.MInternet.GetHTTPClient(client).GetRawHeaders;
|
|
|
|
end;
|
2010-06-10 12:35:49 -04:00
|
|
|
|
|
|
|
procedure ps_SetProxy(Client : Integer; pHost, pPort : String); extdecl;
|
|
|
|
begin
|
|
|
|
CurrThread.MInternet.GetHTTPClient(client).SetProx y(pHost, pPort);
|
|
|
|
end;
|