webbroker-ting
Har fundet denne lille programstump som jeg prøver at tilpasse mine ønsker, men mine evner HTML/Delphi er måske for hobby-betonedetil at gennemskue hvordan jeg løser et foreløbigt 'lille' ønske på vejen mod mit mål.Koden:
sl.add( format('<td><a href="http://%s">(*) </a></td>',[query1.fields[t].Displaytext]) );
der er den 13-ende-sidste linie indeholder som I ser en (*) der viser linket i tabellen og det fungerer osse - men der er jo ingen sjov ved en tabel med bare stjernereferencer til links - hvordan får jeg referencen til at blive vist sammen med linket ?.Det er vistnok et HTML-problem,
men der er jo kommet en masse delphi oveni - så jeg håber nogen forbarmer sig og gider læse 'tingen' igennem.
program scriptvejl3;
{$APPTYPE CONSOLE}
uses
WebBroker,
CGIApp,
Unitvejl3 in 'Unitvejl3.pas' {WebModule1: TWebModule};
{$R *.RES}
begin
Application.Initialize;
Application.CreateForm(TWebModule1, WebModule1);
Application.Run;
end.
unit Unitvejl3;
interface
uses
Windows, Messages, SysUtils, Classes, HTTPApp, Db, DBTables;
type
TWebModule1 = class(TWebModule)
Database1: TDatabase;
Table1: TTable;
Query1: TQuery;
DataSource1: TDataSource;
Table1Titel: TStringField;
Table1Emne: TStringField;
Table1Evaluate: TStringField;
Query1Titel: TStringField;
Query1Emne: TStringField;
Query1Evaluate: TStringField;
procedure WebModule1WebActionItem1Action(Sender: TObject;
Request: TWebRequest; Response: TWebResponse; var Handled: Boolean);
private
{ Private declarations }
public
{ Public declarations }
end;
var
WebModule1: TWebModule1;
implementation
{$R *.DFM}
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><body bgcolor="#FF80c0"><CENTER>');
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 query1.Fields.Count -1 do
begin
sl.add( format('<th>%s</th>',[query1.fields[t].Displayname]) );
end;
While not query1.Eof do
begin
sl.add('<tr>');
for t:=0 to query1.Fields.Count -1 do
begin
if query1.fields[t].IsNull
then
sl.add( format('<td>%s</td>',['<font color="silver" size="-2"><null></font>']) )
else
sl.add( format('<td><a href="http://%s">(*) </a></td>',[query1.fields[t].Displaytext]) );
end;
sl.add('<tr>');
query1.Next;
end;
sl.add('</table>');
sl.Add('</body></html>');
response.content:=sl.Text;
finally
sl.Free;
end;
end;
end.
