Supap1ex
Member | Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
Цитата:| Лучше сделать маленькую тестовую программку и выложить. |
Вот минимальный вариант... (Д2007) (сервер запускается на 88 порту, база в комплекте)
http://rapidshare.com/files/290577389/test.rar.htm
Это если протестить...
h--p://www.realthinclient.com/forum/files/RTCWebStressTool.zip?sid=
----------------------------------------------------------------------------------------------------------------
Код: unit testserv;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ABSMain, DB, IdBaseComponent, IdComponent, IdCustomTCPServer,
IdCustomHTTPServer, IdHTTPServer, IdContext;
type
TForm3 = class(TForm)
server: TIdHTTPServer;
dbq: TABSQuery;
db: TABSDatabase;
procedure serverCommandGet(AContext: TIdContext; ARequestInfo: TIdHTTPRequestInfo; AResponseInfo: TIdHTTPResponseInfo);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form3: TForm3;
implementation
{$R *.dfm}
procedure TForm3.serverCommandGet(AContext: TIdContext;
ARequestInfo: TIdHTTPRequestInfo; AResponseInfo: TIdHTTPResponseInfo);
begin
if (ARequestInfo.Document='/test') then
begin
with dbq do begin
Close;
SQL.Text:='SELECT username, status from users where uid=1';
Open;
end;
AresponseInfo.ContentText:=dbq['username']+' : '+dbq['status'];
end else begin
AresponseInfo.ContentText:=ARequestInfo.Document;
end;
end;
end.
object server: TIdHTTPServer
Active = True
Bindings = <>
DefaultPort = 88
MaxConnections = 500
AutoStartSession = True
KeepAlive = True
ServerSoftware = 'test'
SessionState = True
SessionTimeOut = 30000
OnCommandGet = serverCommandGet
Left = 328
end
object dbq: TABSQuery
CurrentVersion = '6.02 '
DatabaseName = 'users'
SessionName = 'Default'
InMemory = False
ReadOnly = False
Left = 264
end
object db: TABSDatabase
Connected = True
CurrentVersion = '6.02 '
DatabaseFileName = 'test.data'
DatabaseName = 'users'
Exclusive = False
HandleShared = True
MaxConnections = 500
MultiUser = True
SessionName = 'Default'
SilentMode = True
Left = 296
end |
|
Всего записей: 257 | Зарегистр. 30-07-2003 | Отправлено: 10:31 09-10-2009 | Исправлено: Supap1ex, 14:43 09-10-2009 |
|
