Hoi Baldo
Hartstikke bedankt voor de oplossing. Ik zag gisteren gewoon niet wat er aan fout was, en toch wist ik dat er iet niet goed was. Dat heb je soms
Ik heb het als volgt opgelost:
Code:
procedure TWebModule1.WebModule1WebActionItem7Action(Sender: TObject;
Request: TWebRequest; Response: TWebResponse; var Handled: Boolean);
var
n: integer;
begin
Table1.Open;
try
if not Table1.Locate('Name', Request.QueryFields.Values['Name'],[]) then
Response.content := '<h2>Kan record niet opslaan!'
else begin
Table1.Edit;
for n := 1 to Table1.FieldCount - 1 do
Table1.Fields[n].Value :=
Request.QueryFields.Values[Table1.Fields[n].FieldName];
Table1.Post;
Table1.Refresh;
Response.SendRedirect(Request.ScriptName + '/country');
end; // else
finally
Table1.close;
end; //try
end;
De constructie die je hier kiest is trouwens niet de mooiste, maar dat gaf je zelf al aan.
Bedoel je het gebruik maken van TTable of bedoel je de constructie van de code? Ik ben, zoals ik eerder zei mee eens dat je hier "normaal" en Query moet gebruiken. Maar om niet de aandacht weg te trekken van hoofd doel - Het uitleggen hoe je een cgi in Delphi kan maken, heb ik gekozen om het te doen met voor iedereen iets vertrouwt - namelijk de TTable.
Als je de constructie van de code bedoel hoor ik het graag, want als beginnende Delphi programmeur moet ik nog veel leren.
Bookmarks