Could be the same used in game connection or have option to use another.
Thanks.
Code: Select all
Program New;
var
body, header, post : String;
UseProxy : Boolean;
ProxyIP : String[15];
ProxyPort : Word;
ProxyAuthMethod : Byte;
ProxyType : Byte;
//ProxyAuthLogin : String[48];
//ProxyAuthPass : String[48];
Procedure test;
begin
post := 'http://pastebin.com/raw/9A307WCB';
HTTP_Get(post);
header:=HTTP_Header;
body:=HTTP_Body;
addtosystemjournal('Body: ' + body + ' - Header: ' + header);
end;
begin
UseProxy := True;
ProxyIP := '201.1.1.1'; //invalid proxy, for testing
ProxyPort := 1234;
ProxyType := 0; // http
ProxyAuthMethod := 0; // no auth
test;
SetARStatus(True);
end.
Code: Select all
21:20:37:997 [xxx]: Compiling
21:20:38:013 [xxx]: Compiled succesfully
21:20:38:055 [xxx]: Body: HTTP/1.1 200 OK - Header: all hail the vizi king!
21:20:38:056 [xxx]: Succesfully executed
21:20:38:056 [xxx]: Script proxytest.sc stopped successfuly
21:21:01:082 [xxx]: Unknown Name: Login Client Error; EIdSocketError : Socket Error # 10060
Connection timed out.
21:21:01:083 [xxx]: Character Unknown Name Disconnected.