public:howto:httpgetpage [Ararat Synapse]

This page is read only. You can view the source, but not change it. Ask your administrator if you think this is wrong.

For newbies like me, here's how to connect to a web server to either download a page, or send data through a GET call:

<code delphi>
uses
  SysUtils,Classes,httpsend,synacode;

var
  sl : TStringList;
  data : String;

begin
  //Encode input to handle unauthorized characters
  data := 'name=' + ParamStr(1);
  data := data + '&' + 'number=' + ParamStr(2);
  data := data + '&' + 'date=' + ParamStr(3);
  data := data + '&' + 'time=' + ParamStr(4);
  data := EncodeURL(data);
  //WriteLn = console application; Use ShowMessage() for GUI application  
  WriteLn(data);
  
  sl := TStringList.Create;
  with THTTPSend.Create do
  begin
    if HttpGetText('http://localhost/input.php?' + data,sl) then
    try
      WriteLn(sl.text);
    except
      WriteLn('Cannot get');
    end;
    sl.Free;
    Free;
  end;
end.
</code>