I'm using TsgcWSServer_HTTPAPI_WebBrokerBridge to implment a webserver using Web Sockets.
Headers are not making it to my WebMobule, and I've worked out why.
The routine:
function TsgcWebRequestHTTPAPI.GetHeaderValue(const aName: String): String;
var
oHeaders: TStringList;
begin
Result := '';
oHeaders := TStringList.Create;
Try
oHeaders.Text := String(FRequest.Headers);
if oHeaders.IndexOf(aName) > -1 then
Result := oHeaders.Values[aName];
Finally
sgcFree(oHeaders);
End;
end;
Looks for the header name expecting headers to be Name=Value, when in fact - they are Name: Value.
I've been using this setup for a while, but now I need to send a header through.
Is that a bug? Or am I doing something wrong.
Christopher Burke
Programmer at Finchcorp Systems