Delphi a la CGI-scripts
hvis man laver et delphi-exe-program og kører det på en iis-server, der laver en \"rapport\" over datafelter med indhold - efter opskriften i denne \"e-bog\" (under databaser): http://www.209software.com/books/wpid/får jeg et fint resultat bortset fra at når jeg ændrer i databasen og kører \"scritet\" igen - vises de gamle datafelter før opdateringen.Er der nogen der kan forklare mig hvorfor og osse gerne hvad jeg skal gøre for at få den til at registrere de løbende opdateringer.Det var jo osse det der skulle være fidusen.Koden er noget i denne stil:
procedure TWebModule1.WebModule1WebActionItem1Action(Sender: TObject;
Request: TWebRequest; Response: TWebResponse; var Handled: Boolean);
var
sl:tstringlist;
t:integer;
begin
sl:=TStringList.Create;
try
Response.ContentType:=\'text/html\';
sl.add(\'<html><head></head><body>\');
sl.add( format(\'<h1>%s</h1>\',[Table1.tablename]));
Table1.Open;
sl.add( format(\'(%d records)\',[Table1.RecordCount]));
sl.add(\'<p><table border=\"1\">\');
sl.add(\'<tr>\');
for t:=0 to table1.Fields.Count -1 do
begin
sl.add( format(\'<th>%s</th>\',[table1.fields[t].Displayname]) );
end;
While not Table1.Eof do
begin
sl.add(\'<tr>\');
for t:=0 to table1.Fields.Count -1 do
begin
if table1.fields[t].IsNull
then
sl.add( format(\'<td>%s</td>\',[\'<font color=\"silver\" size=\"-2\"><null></font>\']) )
else
sl.add( format(\'<td>%s</td>\',[table1.fields[t].Displaytext]) );
end;
sl.add(\'<tr>\');
table1.Next;
end;
sl.add(\'</table>\');
sl.Add(\'</body></html>\');
response.content:=sl.Text;
finally
sl.Free;
end;
handled:=true;
end;
