On 31-Ago-2014 18:12, Florian Hector wrote:
No luck with all sorts of ways. When I define the tags statically at design
time and step through
the code, the content of the variable TAGS is much different from when it is
done at runtime.
Supposing you have a stringlist filled this way:
TagValueList.Values['Date']:=DateToStr(Date);
TagValueList.Values['Time']:=TimeToStr(Time);
You can convert this list to an array of TVarRec using this code:
setlength(tags,TagValueList.count*2);
i:=0;
while i<TagValueList.count do
begin
tags[i].VType:=vtPChar;
tags[i].Vpchar:=pointer(strnew(pchar(TagValueList.Names[i])));
tags[i+1].VType:=vtPChar;
tags[i+1].Vpchar:=pointer(strnew(pchar(TagValueList.ValueFromIndex[i])));
inc(i,2);
end;
ClientCnx.AnswerPage(Flags,'','','status.html',nil,tags);
for i:=low(tags) to high(tags) do
strdispose(tags[i].vpchar);
--
To unsubscribe or change your settings for TWSocket mailing list
please goto http://lists.elists.org/cgi-bin/mailman/listinfo/twsocket
Visit our website at http://www.overbyte.be
