mirror of
https://github.com/moparisthebest/Simba
synced 2024-08-13 16:53:59 -04:00
87c496ca85
Simba now has some parameters (-o/--open to open a file and -r/--run to run that file at startup). Simba now opens a file correctly if you double click an associated .simb file. Initalized several TPA-functions-results.. (BoxFromTPA could return random values when sending an empty TPA). Opening/Creating a 'script' will now happen in a new tab (unless the current tab is the same as the default script) Restructured the internets unit (+ implemented all of the HTTP-client stuff). And updated the Synapse units. git-svn-id: http://www.villavu.com/repositories/merlijn/mufasa@538 3f818213-9676-44b0-a9b4-5e4c4e03d09d
49 lines
1.4 KiB
PHP
49 lines
1.4 KiB
PHP
function ps_GetPage(S: String): String; extdecl;
|
|
begin
|
|
result := GetPage(S);
|
|
end;
|
|
|
|
function ps_InitializeHTTPClient(HandleCookies, HandleRedirects: Boolean): Integer; extdecl;
|
|
begin
|
|
result := CurrThread.MInternet.CreateHTTPClient(HandleCookies); extdecl;
|
|
end;
|
|
|
|
procedure ps_FreeHTTPClient(Client: Integer); extdecl;
|
|
begin;
|
|
CurrThread.MInternet.GetHTTPClient(Client).Free;
|
|
end;
|
|
|
|
function ps_GetHTTPPage(Client: Integer; URL: string): string; extdecl;
|
|
begin
|
|
result := CurrThread.MInternet.GetHTTPClient(Client).GetHTTPPage(url);
|
|
end;
|
|
procedure ps_SetHTTPUserAgent(Client: Integer; Agent: string); extdecl;
|
|
begin
|
|
CurrThread.MInternet.GetHTTPClient(Client).SetHTTPUserAgent(agent);
|
|
end;
|
|
|
|
function ps_PostHTTPPage(Client: Integer; Url: string; PostData: string): string; extdecl;
|
|
begin
|
|
result := CurrThread.MInternet.GetHTTPClient(Client).PostHTTPPage(url,postdata);
|
|
end;
|
|
|
|
function ps_PostHTTPPageEx(Client: Integer; Url: string): string; extdecl;
|
|
begin
|
|
result := CurrThread.MInternet.GetHTTPClient(Client).PostHTTPPage(url);
|
|
end;
|
|
|
|
procedure ps_ClearPostData(Client: Integer); extdecl;
|
|
begin
|
|
CurrThread.MInternet.GetHTTPClient(Client).ClearPostData;
|
|
end;
|
|
|
|
procedure ps_AddPostVariable(Client: Integer; VarName, VarValue: string); extdecl;
|
|
begin
|
|
CurrThread.MInternet.GetHTTPClient(Client).AddPostVariable(varname,varvalue);
|
|
end;
|
|
|
|
function ps_GetRawHeaders(Client: Integer): string; extdecl;
|
|
begin
|
|
result := CurrThread.MInternet.GetHTTPClient(client).GetRawHeaders;
|
|
end;
|