I am getting an exception when I replace tokens in
my HTML file when using RtcParse. This is the exception I am getting:
raise exception ERtcParse with message
'Unknown Variable: person_name'.
My TRtcDataProvider OnCheckRequest event is coded like this:
procedure TPage_Provider.PageProviderCheckRequest(Sender: TRtcConnection);
var
fname:string;
begin
with TRtcDataServer(Sender) do
begin
fname:=GetFullFileName(Request.FileName);
if (fname<>'') and (File_Exists(fname)) then
begin
Accept;
Request.Info['fname']:=fname;
end;
end;
end;
The OnDataReceived event is coded like this:
procedure TPage_Provider.PageProviderDataReceived(Sender: TRtcConnection);
var
Svr: TRtcDataServer;
page: TRtcParse;
fname: string;
begin
Svr := TrtcDataServer(Sender);
if Svr.Request.Complete then
begin
Svr.Request.Params.AddText(Svr.Read);
fname:=Svr.Request.Info['fname'];
if File_Exists(fname) then
begin
page := TRtcParse.Create(fname);
try
page['person_name'] := 'Manfredt Kavetu';
Svr.Write(page.Output);
finally
page.Free;
end;
end
else
Write;
end;
end;
The person_name token is wrapped in a P tag in my HTML file like this:
<P>The Deeds office has started a scanning effort of all deeds
from 1980 until present. Scan statistics.
Total to date <%person_name%>
</P>
My HTML file references external images and CSS. If I disable the line
page['person_name'] := 'Manfredt Kavetu' in my code (in the OnDataReceived event)
my HTML file is displayed nicely in the Firefox browser.
What am I doing wrong? How can I parse my HTML file and ENSURES the referenced
external images and CSS are included in the file when Outputting the
HTML file with the RtcParse object?
Manfredt Kavetu
