dbExpress driver is 7.2.4 + Direct mode.
Delphi XE1
My Step:
1. Create WebBroker application use Indy VCL Application.
2. Create a TDataModule and drop a TSQLConnection / TCRSQLConnection in it.
3. Set SQLConnection.Open/Close in DataModule.OnCreate/OnDestory event.
4. WebModule default action code below:
Code: Select all
procedure TWebModule2.WebModule2DefaultHandlerAction(Sender: TObject;
Request: TWebRequest; Response: TWebResponse; var Handled: Boolean);
begin
DataModule1.SQLConnection1.ExecuteDirect('print ''Hello'' ');
Response.Content := '<html><heading/><body>Web Server Application</body></html>';
end;
procedure TWebModule2.WebModuleCreate(Sender: TObject);
begin
DataModule1 := TDataModule1.Create(Self);
end;
Problem project url: https://www.dropbox.com/s/ouxb89fw8x1fc ... 6.zip?dl=0
The code is wrong?