jeg har brugt bde-alias, men jeg vil meget gerne prøve hvis du vil forklare mig hvordan jeg kan tilgå den med odbc.Det har jeg nemlig nok gjort på mit gamle syst. men glemt lige hvordan.
Programmet til cgi-delen har jeg fundet på
http://www.209software.com/books/wpid/og var meget glad for det.
Jeg har prøvet at compilere det på min xp-maskine, men delphi siger så jeg mangler "textmodule" ??.Så nu håber jeg bare jeg kan få det til at fungere med det færdigkompilerede program.
Programmet ser sådan ud.
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;