Login ProductsSalesSupportDownloadsAbout |
Home » Technical Support » DBISAM Technical Support » Incident Reports » Incident Reports Reported for Version 4.16 » View Incident Report |
Serious |
Reported By: Robert Cram/John Hay Reported On: 1/14/2005 For: Version 4.16 Build 1 |
unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Button2: TButton; procedure Button2Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} uses DBISAMtb; var LastSessionValue: Integer; SessionNameSection: TRTLCriticalSection; function GetNewSession: TDBISAMSession; begin EnterCriticalSection(SessionNameSection); try LastSessionValue:=LastSessionValue+1; Result:=TDBISAMSession.Create(nil); Result.SessionName:='Serverextensions'+IntToStr(LastSessionValue); finally LeaveCriticalSection(SessionNameSection); end; end; procedure TForm1.Button2Click(Sender: TObject); var i: Integer; FDBISAMSession: TDBISAMSession; begin Screen.Cursor := crHourGlass; i := 0; try try repeat Inc(i); FDBISAMSession := GetNewSession; FDBISAMSession.SessionType := stRemote; FDBISAMSession.RemoteCompression := 0; FDBISAMSession.RemoteHost := '127.0.0.1'; FDBISAMSession.RemotePort := 12005; FDBISAMSession.RemoteUser:= 'admin'; FDBISAMSession.RemotePassword := 'DBAdmin'; FDBISAMSession.Open; FDBISAMSession.Close; FreeAndNil(FDBISAMSession); until i=1000; finally Screen.Cursor := crDefault; end; except ShowMessage('Error in iteration '+IntToStr(i)); raise; end; end; initialization LastSessionValue:=0; InitializeCriticalSection(SessionNameSection); finalization DeleteCriticalSection(SessionNameSection); end.
This web page was last updated on Wednesday, March 20, 2024 at 07:22 AM | Privacy PolicySite Map © 2024 Elevate Software, Inc. All Rights Reserved Questions or comments ? E-mail us at info@elevatesoft.com |