pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

+ Indy TCP server listner ( FPC & Delphi )

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@217 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
inoussa
2007-07-20 00:25:29 +00:00
parent b78e642342
commit fd170582cf
6 changed files with 581 additions and 190 deletions
Download Patch File Download Diff File Expand all files Collapse all files

33
wst/trunk/indy_http_server.pas
View File

@ -94,35 +94,14 @@ implementation
uses uses
{$IFNDEF FPC} {$IFNDEF FPC}
ActiveX, ActiveX,
{$IFDEF INDY_9}
wst_indy9_utils,
{$ENDIF}
{$ENDIF} {$ENDIF}
base_service_intf, base_service_intf,
server_service_intf, server_service_imputils, server_service_intf, server_service_imputils,
metadata_wsdl; metadata_wsdl;
{$IFNDEF FPC}
type
TwstIndy9Thread = class(TIdPeerThread)
protected
procedure AfterExecute; override;
procedure BeforeExecute; override;
end;
{ TwstIndy9Thread }
procedure TwstIndy9Thread.AfterExecute;
begin
CoUninitialize();
inherited;
end;
procedure TwstIndy9Thread.BeforeExecute;
begin
inherited;
CoInitialize(nil);
end;
{$ENDIF}
function ExtractNextPathElement(var AFullPath : string):string; function ExtractNextPathElement(var AFullPath : string):string;
var var
i : SizeInt; i : SizeInt;
@ -273,8 +252,8 @@ var
b : TIdSocketHandle; b : TIdSocketHandle;
begin begin
inherited Create(); inherited Create();
FHTTPServerObject := TIdHTTPServer.Create({$IFNDEF INDY_10}nil{$ENDIF}); FHTTPServerObject := TIdHTTPServer.Create({$IFDEF INDY_9}nil{$ENDIF});
{$IFNDEF FPC} {$IFDEF INDY_9}
FHTTPServerObject.ThreadClass := TwstIndy9Thread; FHTTPServerObject.ThreadClass := TwstIndy9Thread;
{$ENDIF} {$ENDIF}
b := FHTTPServerObject.Bindings.Add(); b := FHTTPServerObject.Bindings.Add();
@ -310,7 +289,7 @@ end;
class function TwstIndyHttpListener.GetDescription: string; class function TwstIndyHttpListener.GetDescription: string;
begin begin
Result := 'Indy HTTP Listener'; Result := 'WST Indy HTTP Listener';
end; end;
initialization initialization

245
wst/trunk/indy_tcp_server.pas Normal file
View File

@ -0,0 +1,245 @@
{
This file is part of the Web Service Toolkit
Copyright (c) 2006 by Inoussa OUEDRAOGO
This file is provide under modified LGPL licence
( the files COPYING.modifiedLGPL and COPYING.LGPL).
This program is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
}
unit indy_tcp_server;
{$INCLUDE wst_global.inc}
//{$DEFINE WST_DBG}
interface
uses
Classes, SysUtils,
IdTCPServer,
{$IFDEF INDY_10}
IdContext, IdCustomTCPServer,
{$ENDIF}
{$IFDEF INDY_9}
//IdTCPServer,
{$ENDIF}
IdSocketHandle,
server_listener;
{$INCLUDE wst.inc}
{$INCLUDE wst_delphi.inc}
type
{$IFDEF INDY_9}
TIdBytes = array of Byte;
{$ENDIF}
{ TwstIndyTcpListener }
TwstIndyTcpListener = class(TwstListener)
private
FTCPServerObject: TIdTCPServer;
FDefaultTime : PtrInt;
protected
procedure Handle_OnExecute(
{$IFDEF INDY_10}
AContext : TIdContext
{$ENDIF}
{$IFDEF INDY_9}
AContext : TIdPeerThread
{$ENDIF}
);
public
constructor Create(
const AServerIpAddress : string = '127.0.0.1';
const AListningPort : Integer = 1234;
const ADefaultClientPort : Integer = 25000
);
destructor Destroy(); override;
class function GetDescription() : string;override;
procedure Start();override;
procedure Stop();override;
end;
implementation
uses
{$IFNDEF FPC}
ActiveX,
{$IFDEF INDY_9}
wst_indy9_utils,
{$ENDIF}
{$ENDIF}
IdGlobal, binary_streamer, server_service_intf, server_service_imputils;
{ TwstIndyTcpListener }
procedure TwstIndyTcpListener.Handle_OnExecute(
{$IFDEF INDY_10}
AContext : TIdContext
{$ENDIF}
{$IFDEF INDY_9}
AContext : TIdPeerThread
{$ENDIF}
);
function ReadInputBuffer(AStream : TStream) : Integer;
var
strBuff : TIdBytes;
bufferLen : LongInt;
i, j, c : PtrInt;
begin
Result := 0;
bufferLen := 0;
try
SetLength(strBuff,SizeOf(bufferLen));
{$IFDEF INDY_10}
AContext.Connection.IOHandler.ReadBytes(strBuff,SizeOf(bufferLen),False);
{$ENDIF}
{$IFDEF INDY_9}
AContext.Connection.ReadBuffer(strBuff[0],SizeOf(bufferLen));
{$ENDIF}
Move(strBuff[0],bufferLen,SizeOf(bufferLen));
bufferLen := Reverse_32(bufferLen);
AStream.Size := bufferLen;
if ( bufferLen > 0 ) then begin
c := 0;
i := 1024;
if ( i > bufferLen ) then
i := bufferLen;
SetLength(strBuff,i);
repeat
{$IFDEF INDY_10}
AContext.Connection.IOHandler.ReadBytes(strBuff,i,False);
{$ENDIF}
{$IFDEF INDY_9}
AContext.Connection.ReadBuffer(strBuff[0],i);
{$ENDIF}
AStream.Write(strBuff[0],i);
Inc(c,i);
if ( ( bufferLen - c ) > 1024 ) then
i := 1024
else
i := bufferLen - c;
until ( i = 0 );
end;
AStream.Position := 0;
Result := AStream.Size;
finally
SetLength(strBuff,0);
end;
end;
var
locInStream, locOutStream : TMemoryStream;
wrtr : IDataStore;
rdr : IDataStoreReader;
buff, trgt,ctntyp, frmt : string;
rqst : IRequestBuffer;
i : PtrUInt;
begin
{$IFNDEF FPC}
//CoInitialize(nil);
//try
{$ENDIF}
locOutStream := nil;
locInStream := TMemoryStream.Create();
try
locOutStream := TMemoryStream.Create();
{$IFDEF INDY_10}
if ( Self.FDefaultTime <> 0 ) then
AContext.Connection.IOHandler.ReadTimeout := Self.FDefaultTime;
{$ENDIF}
if ( ReadInputBuffer(locInStream) >= SizeOf(LongInt) ) then begin
rdr := CreateBinaryReader(locInStream);
trgt := rdr.ReadStr();
ctntyp := rdr.ReadStr();
frmt := rdr.ReadStr();
buff := rdr.ReadStr();
{$IFDEF WST_DBG}
WriteLn(buff);
{$ENDIF}
rdr := nil;
locInStream.Size := 0;
locInStream.Write(buff[1],Length(buff));
locInStream.Position := 0;
rqst := TRequestBuffer.Create(trgt,ctntyp,locInStream,locOutStream,frmt);
HandleServiceRequest(rqst);
i := locOutStream.Size;
SetLength(buff,i);
locOutStream.Position := 0;
locOutStream.Read(buff[1],i);
locOutStream.Size := 0;
wrtr := CreateBinaryWriter(locOutStream);
wrtr.WriteStr(buff);
locOutStream.Position := 0;
{$IFDEF INDY_10}
AContext.Connection.IOHandler.Write(locOutStream,locOutStream.Size,False);
{$ENDIF}
{$IFDEF INDY_9}
AContext.Connection.WriteStream(locOutStream,True,False,locOutStream.Size);
{$ENDIF}
end;
finally
FreeAndNil(locOutStream);
FreeAndNil(locInStream);
end;
{$IFNDEF FPC}
//finally
//CoUninitialize();
//end;
{$ENDIF}
end;
constructor TwstIndyTcpListener.Create(
const AServerIpAddress : string;
const AListningPort : Integer;
const ADefaultClientPort : Integer
);
var
b : TIdSocketHandle;
begin
inherited Create();
FTCPServerObject := TIdTCPServer.Create({$IFNDEF INDY_10}nil{$ENDIF});
{$IFDEF INDY_9}
FTCPServerObject.ThreadClass := TwstIndy9Thread;
{$ENDIF}
b := FTCPServerObject.Bindings.Add();
b.IP := AServerIpAddress;
b.port := AListningPort;
FTCPServerObject.DefaultPort := ADefaultClientPort;
FTCPServerObject.OnExecute := {$IFDEF FPC}@{$ENDIF}Handle_OnExecute;
end;
destructor TwstIndyTcpListener.Destroy();
begin
if ( FTCPServerObject <> nil ) then
Stop();
FreeAndNil(FTCPServerObject);
inherited Destroy();
end;
class function TwstIndyTcpListener.GetDescription() : string;
begin
Result := 'WST Indy TCP Listener';
end;
procedure TwstIndyTcpListener.Start();
begin
if not FTCPServerObject.Active then
FTCPServerObject.Active := True;
end;
procedure TwstIndyTcpListener.Stop();
begin
if FTCPServerObject.Active then
FTCPServerObject.Active := False;
end;
end.

2
wst/trunk/samples/delphi/http_server/http_server.dpr
View File

@ -22,7 +22,7 @@ uses
server_service_intf in '..\..\..\server_service_intf.pas'; server_service_intf in '..\..\..\server_service_intf.pas';
var var
AppObject : TwstIndyHttpListener; AppObject : TwstListener; AppObject2 : TwstListener;
begin begin
Server_service_RegisterBinaryFormat(); Server_service_RegisterBinaryFormat();
Server_service_RegisterSoapFormat(); Server_service_RegisterSoapFormat();

418
wst/trunk/samples/http_server/http_server.lpi
View File

@ -12,7 +12,7 @@
<MainUnit Value="0"/> <MainUnit Value="0"/>
<IconPath Value="./"/> <IconPath Value="./"/>
<TargetFileExt Value=".exe"/> <TargetFileExt Value=".exe"/>
<ActiveEditorIndexAtStart Value="3"/> <ActiveEditorIndexAtStart Value="0"/>
</General> </General>
<VersionInfo> <VersionInfo>
<ProjectVersion Value=""/> <ProjectVersion Value=""/>
@ -34,15 +34,15 @@
<PackageName Value="indylaz"/> <PackageName Value="indylaz"/>
</Item1> </Item1>
</RequiredPackages> </RequiredPackages>
<Units Count="55"> <Units Count="72">
<Unit0> <Unit0>
<Filename Value="http_server.pas"/> <Filename Value="http_server.pas"/>
<IsPartOfProject Value="True"/> <IsPartOfProject Value="True"/>
<UnitName Value="http_server"/> <UnitName Value="http_server"/>
<CursorPos X="3" Y="34"/> <CursorPos X="1" Y="35"/>
<TopLine Value="1"/> <TopLine Value="11"/>
<EditorIndex Value="0"/> <EditorIndex Value="0"/>
<UsageCount Value="121"/> <UsageCount Value="131"/>
<Loaded Value="True"/> <Loaded Value="True"/>
</Unit0> </Unit0>
<Unit1> <Unit1>
@ -50,15 +50,15 @@
<UnitName Value="app_object"/> <UnitName Value="app_object"/>
<CursorPos X="42" Y="214"/> <CursorPos X="42" Y="214"/>
<TopLine Value="200"/> <TopLine Value="200"/>
<UsageCount Value="31"/> <UsageCount Value="30"/>
</Unit1> </Unit1>
<Unit2> <Unit2>
<Filename Value="..\..\base_service_intf.pas"/> <Filename Value="..\..\base_service_intf.pas"/>
<UnitName Value="base_service_intf"/> <UnitName Value="base_service_intf"/>
<CursorPos X="1" Y="1"/> <CursorPos X="1" Y="1"/>
<TopLine Value="1"/> <TopLine Value="1"/>
<EditorIndex Value="8"/> <EditorIndex Value="21"/>
<UsageCount Value="58"/> <UsageCount Value="62"/>
<Loaded Value="True"/> <Loaded Value="True"/>
</Unit2> </Unit2>
<Unit3> <Unit3>
@ -66,8 +66,8 @@
<UnitName Value="metadata_wsdl"/> <UnitName Value="metadata_wsdl"/>
<CursorPos X="80" Y="80"/> <CursorPos X="80" Y="80"/>
<TopLine Value="66"/> <TopLine Value="66"/>
<EditorIndex Value="9"/> <EditorIndex Value="22"/>
<UsageCount Value="59"/> <UsageCount Value="63"/>
<Loaded Value="True"/> <Loaded Value="True"/>
</Unit3> </Unit3>
<Unit4> <Unit4>
@ -75,24 +75,24 @@
<UnitName Value="metadata_service_imp"/> <UnitName Value="metadata_service_imp"/>
<CursorPos X="1" Y="1"/> <CursorPos X="1" Y="1"/>
<TopLine Value="1"/> <TopLine Value="1"/>
<UsageCount Value="32"/> <UsageCount Value="31"/>
</Unit4> </Unit4>
<Unit5> <Unit5>
<Filename Value="..\user_service_intf_imp.pas"/> <Filename Value="..\user_service_intf_imp.pas"/>
<UnitName Value="user_service_intf_imp"/> <UnitName Value="user_service_intf_imp"/>
<CursorPos X="46" Y="21"/> <CursorPos X="46" Y="21"/>
<TopLine Value="1"/> <TopLine Value="1"/>
<EditorIndex Value="6"/> <EditorIndex Value="19"/>
<UsageCount Value="56"/> <UsageCount Value="60"/>
<Loaded Value="True"/> <Loaded Value="True"/>
</Unit5> </Unit5>
<Unit6> <Unit6>
<Filename Value="..\user_service_intf_binder.pas"/> <Filename Value="..\user_service_intf_binder.pas"/>
<UnitName Value="user_service_intf_binder"/> <UnitName Value="user_service_intf_binder"/>
<CursorPos X="39" Y="83"/> <CursorPos X="37" Y="247"/>
<TopLine Value="224"/> <TopLine Value="224"/>
<EditorIndex Value="3"/> <EditorIndex Value="16"/>
<UsageCount Value="42"/> <UsageCount Value="46"/>
<Loaded Value="True"/> <Loaded Value="True"/>
</Unit6> </Unit6>
<Unit7> <Unit7>
@ -101,8 +101,8 @@
<UnitName Value="user_service_intf"/> <UnitName Value="user_service_intf"/>
<CursorPos X="7" Y="3"/> <CursorPos X="7" Y="3"/>
<TopLine Value="1"/> <TopLine Value="1"/>
<EditorIndex Value="7"/> <EditorIndex Value="20"/>
<UsageCount Value="72"/> <UsageCount Value="82"/>
<Loaded Value="True"/> <Loaded Value="True"/>
</Unit7> </Unit7>
<Unit8> <Unit8>
@ -110,8 +110,8 @@
<UnitName Value="metadata_repository"/> <UnitName Value="metadata_repository"/>
<CursorPos X="1" Y="1"/> <CursorPos X="1" Y="1"/>
<TopLine Value="7"/> <TopLine Value="7"/>
<EditorIndex Value="12"/> <EditorIndex Value="25"/>
<UsageCount Value="59"/> <UsageCount Value="63"/>
<Loaded Value="True"/> <Loaded Value="True"/>
</Unit8> </Unit8>
<Unit9> <Unit9>
@ -119,15 +119,15 @@
<UnitName Value="semaphore"/> <UnitName Value="semaphore"/>
<CursorPos X="1" Y="141"/> <CursorPos X="1" Y="141"/>
<TopLine Value="117"/> <TopLine Value="117"/>
<UsageCount Value="25"/> <UsageCount Value="24"/>
</Unit9> </Unit9>
<Unit10> <Unit10>
<Filename Value="..\..\server_service_intf.pas"/> <Filename Value="..\..\server_service_intf.pas"/>
<UnitName Value="server_service_intf"/> <UnitName Value="server_service_intf"/>
<CursorPos X="1" Y="1"/> <CursorPos X="1" Y="1"/>
<TopLine Value="1"/> <TopLine Value="1"/>
<EditorIndex Value="5"/> <EditorIndex Value="18"/>
<UsageCount Value="58"/> <UsageCount Value="62"/>
<Loaded Value="True"/> <Loaded Value="True"/>
</Unit10> </Unit10>
<Unit11> <Unit11>
@ -135,171 +135,173 @@
<UnitName Value="server_service_soap"/> <UnitName Value="server_service_soap"/>
<CursorPos X="17" Y="22"/> <CursorPos X="17" Y="22"/>
<TopLine Value="1"/> <TopLine Value="1"/>
<UsageCount Value="40"/> <UsageCount Value="39"/>
</Unit11> </Unit11>
<Unit12> <Unit12>
<Filename Value="..\..\base_soap_formatter.pas"/> <Filename Value="..\..\base_soap_formatter.pas"/>
<UnitName Value="base_soap_formatter"/> <UnitName Value="base_soap_formatter"/>
<CursorPos X="36" Y="1576"/> <CursorPos X="36" Y="1576"/>
<TopLine Value="1586"/> <TopLine Value="1586"/>
<UsageCount Value="41"/> <UsageCount Value="40"/>
</Unit12> </Unit12>
<Unit13> <Unit13>
<Filename Value="..\..\server_service_imputils.pas"/> <Filename Value="..\..\server_service_imputils.pas"/>
<UnitName Value="server_service_imputils"/> <UnitName Value="server_service_imputils"/>
<CursorPos X="1" Y="1"/> <CursorPos X="1" Y="1"/>
<TopLine Value="1"/> <TopLine Value="1"/>
<UsageCount Value="35"/> <UsageCount Value="34"/>
</Unit13> </Unit13>
<Unit14> <Unit14>
<Filename Value="..\..\..\..\..\..\lazarus_23_215\others_package\indy\indy-10.2.0.1\fpc\Protocols\IdCustomHTTPServer.pas"/> <Filename Value="..\..\..\..\..\..\lazarus_23_215\others_package\indy\indy-10.2.0.1\fpc\Protocols\IdCustomHTTPServer.pas"/>
<UnitName Value="IdCustomHTTPServer"/> <UnitName Value="IdCustomHTTPServer"/>
<CursorPos X="1" Y="1"/> <CursorPos X="1" Y="1"/>
<TopLine Value="1"/> <TopLine Value="1"/>
<UsageCount Value="2"/> <UsageCount Value="1"/>
</Unit14> </Unit14>
<Unit15> <Unit15>
<Filename Value="..\..\..\..\..\..\lazarus23_213\fpc\2.1.3\source\rtl\i386\i386.inc"/> <Filename Value="..\..\..\..\..\..\lazarus23_213\fpc\2.1.3\source\rtl\i386\i386.inc"/>
<CursorPos X="49" Y="1252"/> <CursorPos X="49" Y="1252"/>
<TopLine Value="1231"/> <TopLine Value="1231"/>
<UsageCount Value="2"/> <UsageCount Value="1"/>
</Unit15> </Unit15>
<Unit16> <Unit16>
<Filename Value="..\..\wst.inc"/> <Filename Value="..\..\wst.inc"/>
<CursorPos X="1" Y="1"/> <CursorPos X="1" Y="1"/>
<TopLine Value="1"/> <TopLine Value="1"/>
<UsageCount Value="1"/> <UsageCount Value="0"/>
</Unit16> </Unit16>
<Unit17> <Unit17>
<Filename Value="..\..\xmlrpc_formatter.pas"/> <Filename Value="..\..\xmlrpc_formatter.pas"/>
<UnitName Value="xmlrpc_formatter"/> <UnitName Value="xmlrpc_formatter"/>
<CursorPos X="1" Y="1"/> <CursorPos X="1" Y="1"/>
<TopLine Value="28"/> <TopLine Value="28"/>
<UsageCount Value="2"/> <UsageCount Value="1"/>
</Unit17> </Unit17>
<Unit18> <Unit18>
<Filename Value="..\..\server_service_xmlrpc.pas"/> <Filename Value="..\..\server_service_xmlrpc.pas"/>
<UnitName Value="server_service_xmlrpc"/> <UnitName Value="server_service_xmlrpc"/>
<CursorPos X="21" Y="22"/> <CursorPos X="21" Y="22"/>
<TopLine Value="7"/> <TopLine Value="7"/>
<UsageCount Value="38"/> <UsageCount Value="37"/>
</Unit18> </Unit18>
<Unit19> <Unit19>
<Filename Value="..\..\server_binary_formatter.pas"/> <Filename Value="..\..\server_binary_formatter.pas"/>
<UnitName Value="server_binary_formatter"/> <UnitName Value="server_binary_formatter"/>
<CursorPos X="1" Y="1"/> <CursorPos X="1" Y="1"/>
<TopLine Value="1"/> <TopLine Value="1"/>
<UsageCount Value="36"/> <UsageCount Value="35"/>
</Unit19> </Unit19>
<Unit20> <Unit20>
<Filename Value="..\..\base_xmlrpc_formatter.pas"/> <Filename Value="..\..\base_xmlrpc_formatter.pas"/>
<UnitName Value="base_xmlrpc_formatter"/> <UnitName Value="base_xmlrpc_formatter"/>
<CursorPos X="3" Y="985"/> <CursorPos X="3" Y="985"/>
<TopLine Value="974"/> <TopLine Value="974"/>
<UsageCount Value="36"/> <UsageCount Value="35"/>
</Unit20> </Unit20>
<Unit21> <Unit21>
<Filename Value="..\..\..\..\..\..\lazarus23_213\others_package\indy\indy-10.2.0.1\fpc\Core\IdSocketHandle.pas"/> <Filename Value="..\..\..\..\..\..\lazarus23_213\others_package\indy\indy-10.2.0.1\fpc\Core\IdSocketHandle.pas"/>
<UnitName Value="IdSocketHandle"/> <UnitName Value="IdSocketHandle"/>
<CursorPos X="1" Y="1"/> <CursorPos X="1" Y="1"/>
<TopLine Value="1"/> <TopLine Value="1"/>
<UsageCount Value="2"/> <UsageCount Value="1"/>
</Unit21> </Unit21>
<Unit22> <Unit22>
<Filename Value="..\..\..\..\..\..\lazarus_23_215XX\others_package\indy\indy-10.2.0.1\lazarus\IdAboutVCL.pas"/> <Filename Value="..\..\..\..\..\..\lazarus_23_215XX\others_package\indy\indy-10.2.0.1\lazarus\IdAboutVCL.pas"/>
<UnitName Value="IdAboutVCL"/> <UnitName Value="IdAboutVCL"/>
<CursorPos X="19" Y="1"/> <CursorPos X="19" Y="1"/>
<TopLine Value="1"/> <TopLine Value="1"/>
<UsageCount Value="3"/> <UsageCount Value="2"/>
</Unit22> </Unit22>
<Unit23> <Unit23>
<Filename Value="..\..\..\..\..\..\lazarus_23_215XX\others_package\indy\indy-10.2.0.1\fpc\System\IdGlobal.pas"/> <Filename Value="..\..\..\..\..\..\lazarus_23_215XX\others_package\indy\indy-10.2.0.1\fpc\System\IdGlobal.pas"/>
<UnitName Value="IdGlobal"/> <UnitName Value="IdGlobal"/>
<CursorPos X="59" Y="982"/> <CursorPos X="14" Y="510"/>
<TopLine Value="981"/> <TopLine Value="497"/>
<UsageCount Value="3"/> <EditorIndex Value="13"/>
<UsageCount Value="13"/>
<Loaded Value="True"/>
</Unit23> </Unit23>
<Unit24> <Unit24>
<Filename Value="..\..\..\..\..\..\lazarus_23_215XX\fpc\source\rtl\inc\systemh.inc"/> <Filename Value="..\..\..\..\..\..\lazarus_23_215XX\fpc\source\rtl\inc\systemh.inc"/>
<CursorPos X="21" Y="208"/> <CursorPos X="21" Y="208"/>
<TopLine Value="193"/> <TopLine Value="193"/>
<EditorIndex Value="11"/> <EditorIndex Value="24"/>
<UsageCount Value="40"/> <UsageCount Value="44"/>
<Loaded Value="True"/> <Loaded Value="True"/>
</Unit24> </Unit24>
<Unit25> <Unit25>
<Filename Value="..\..\..\..\..\..\lazarus_23_215XX\fpc\source\rtl\inc\innr.inc"/> <Filename Value="..\..\..\..\..\..\lazarus_23_215XX\fpc\source\rtl\inc\innr.inc"/>
<CursorPos X="1" Y="1"/> <CursorPos X="1" Y="1"/>
<TopLine Value="42"/> <TopLine Value="42"/>
<UsageCount Value="3"/> <UsageCount Value="2"/>
</Unit25> </Unit25>
<Unit26> <Unit26>
<Filename Value="..\..\..\..\..\..\lazarus_23_215XX\fpc\source\rtl\i386\fastmove.inc"/> <Filename Value="..\..\..\..\..\..\lazarus_23_215XX\fpc\source\rtl\i386\fastmove.inc"/>
<CursorPos X="11" Y="835"/> <CursorPos X="11" Y="835"/>
<TopLine Value="821"/> <TopLine Value="821"/>
<UsageCount Value="4"/> <UsageCount Value="3"/>
</Unit26> </Unit26>
<Unit27> <Unit27>
<Filename Value="..\..\..\..\..\..\lazarus_23_215XX\fpc\source\rtl\inc\system.inc"/> <Filename Value="..\..\..\..\..\..\lazarus_23_215XX\fpc\source\rtl\inc\system.inc"/>
<CursorPos X="11" Y="306"/> <CursorPos X="11" Y="306"/>
<TopLine Value="285"/> <TopLine Value="285"/>
<UsageCount Value="37"/> <UsageCount Value="36"/>
</Unit27> </Unit27>
<Unit28> <Unit28>
<Filename Value="..\..\..\..\..\..\lazarus_23_215XX\fpc\source\rtl\inc\generic.inc"/> <Filename Value="..\..\..\..\..\..\lazarus_23_215XX\fpc\source\rtl\inc\generic.inc"/>
<CursorPos X="5" Y="1289"/> <CursorPos X="5" Y="1289"/>
<TopLine Value="1"/> <TopLine Value="1"/>
<UsageCount Value="10"/> <UsageCount Value="9"/>
</Unit28> </Unit28>
<Unit29> <Unit29>
<Filename Value="..\..\..\..\..\..\lazarus_23_215XX\fpc\source\rtl\inc\system.fpd"/> <Filename Value="..\..\..\..\..\..\lazarus_23_215XX\fpc\source\rtl\inc\system.fpd"/>
<CursorPos X="22" Y="17"/> <CursorPos X="22" Y="17"/>
<TopLine Value="1"/> <TopLine Value="1"/>
<UsageCount Value="3"/> <UsageCount Value="2"/>
</Unit29> </Unit29>
<Unit30> <Unit30>
<Filename Value="..\..\wst_fpc_xml.pas"/> <Filename Value="..\..\wst_fpc_xml.pas"/>
<UnitName Value="wst_fpc_xml"/> <UnitName Value="wst_fpc_xml"/>
<CursorPos X="1" Y="1"/> <CursorPos X="1" Y="1"/>
<TopLine Value="1"/> <TopLine Value="1"/>
<UsageCount Value="36"/> <UsageCount Value="35"/>
</Unit30> </Unit30>
<Unit31> <Unit31>
<Filename Value="..\..\..\..\..\..\lazarus_23_215XX\fpc\source\rtl\objpas\sysutils\sysstrh.inc"/> <Filename Value="..\..\..\..\..\..\lazarus_23_215XX\fpc\source\rtl\objpas\sysutils\sysstrh.inc"/>
<CursorPos X="11" Y="66"/> <CursorPos X="11" Y="66"/>
<TopLine Value="52"/> <TopLine Value="52"/>
<UsageCount Value="36"/> <UsageCount Value="35"/>
</Unit31> </Unit31>
<Unit32> <Unit32>
<Filename Value="..\..\..\..\..\..\lazarus_23_215XX\fpc\source\rtl\objpas\sysutils\sysstr.inc"/> <Filename Value="..\..\..\..\..\..\lazarus_23_215XX\fpc\source\rtl\objpas\sysutils\sysstr.inc"/>
<CursorPos X="6" Y="44"/> <CursorPos X="6" Y="44"/>
<TopLine Value="30"/> <TopLine Value="30"/>
<UsageCount Value="3"/> <UsageCount Value="2"/>
</Unit32> </Unit32>
<Unit33> <Unit33>
<Filename Value="..\..\..\..\..\..\lazarus_23_215XX\fpc\source\rtl\win\sysosh.inc"/> <Filename Value="..\..\..\..\..\..\lazarus_23_215XX\fpc\source\rtl\win\sysosh.inc"/>
<CursorPos X="1" Y="1"/> <CursorPos X="1" Y="1"/>
<TopLine Value="51"/> <TopLine Value="51"/>
<UsageCount Value="3"/> <UsageCount Value="2"/>
</Unit33> </Unit33>
<Unit34> <Unit34>
<Filename Value="..\..\..\..\..\..\lazarus_23_215XX\fpc\source\rtl\inc\objpash.inc"/> <Filename Value="..\..\..\..\..\..\lazarus_23_215XX\fpc\source\rtl\inc\objpash.inc"/>
<CursorPos X="25" Y="216"/> <CursorPos X="25" Y="216"/>
<TopLine Value="203"/> <TopLine Value="203"/>
<UsageCount Value="8"/> <UsageCount Value="7"/>
</Unit34> </Unit34>
<Unit35> <Unit35>
<Filename Value="..\..\..\..\..\..\lazarus_23_215XX\fpc\source\rtl\inc\varianth.inc"/> <Filename Value="..\..\..\..\..\..\lazarus_23_215XX\fpc\source\rtl\inc\varianth.inc"/>
<CursorPos X="1" Y="1"/> <CursorPos X="1" Y="1"/>
<TopLine Value="1"/> <TopLine Value="1"/>
<UsageCount Value="3"/> <UsageCount Value="2"/>
</Unit35> </Unit35>
<Unit36> <Unit36>
<Filename Value="..\..\..\..\..\..\lazarus_23_215XX\fpc\source\rtl\inc\rtti.inc"/> <Filename Value="..\..\..\..\..\..\lazarus_23_215XX\fpc\source\rtl\inc\rtti.inc"/>
<CursorPos X="36" Y="64"/> <CursorPos X="59" Y="101"/>
<TopLine Value="101"/> <TopLine Value="101"/>
<EditorIndex Value="4"/> <EditorIndex Value="17"/>
<UsageCount Value="47"/> <UsageCount Value="51"/>
<Loaded Value="True"/> <Loaded Value="True"/>
</Unit36> </Unit36>
<Unit37> <Unit37>
@ -307,20 +309,20 @@
<UnitName Value="metadata_service"/> <UnitName Value="metadata_service"/>
<CursorPos X="26" Y="13"/> <CursorPos X="26" Y="13"/>
<TopLine Value="1"/> <TopLine Value="1"/>
<UsageCount Value="32"/> <UsageCount Value="31"/>
</Unit37> </Unit37>
<Unit38> <Unit38>
<Filename Value="..\..\wst_rtti_filter\cursor_intf.pas"/> <Filename Value="..\..\wst_rtti_filter\cursor_intf.pas"/>
<UnitName Value="cursor_intf"/> <UnitName Value="cursor_intf"/>
<CursorPos X="1" Y="1"/> <CursorPos X="1" Y="1"/>
<TopLine Value="1"/> <TopLine Value="1"/>
<UsageCount Value="21"/> <UsageCount Value="20"/>
</Unit38> </Unit38>
<Unit39> <Unit39>
<Filename Value="..\user_service_intf.wst"/> <Filename Value="..\user_service_intf.wst"/>
<CursorPos X="1" Y="1"/> <CursorPos X="1" Y="1"/>
<TopLine Value="1"/> <TopLine Value="1"/>
<UsageCount Value="4"/> <UsageCount Value="3"/>
<SyntaxHighlighter Value="None"/> <SyntaxHighlighter Value="None"/>
</Unit39> </Unit39>
<Unit40> <Unit40>
@ -328,15 +330,15 @@
<UnitName Value="DOM"/> <UnitName Value="DOM"/>
<CursorPos X="42" Y="228"/> <CursorPos X="42" Y="228"/>
<TopLine Value="215"/> <TopLine Value="215"/>
<UsageCount Value="12"/> <UsageCount Value="11"/>
</Unit40> </Unit40>
<Unit41> <Unit41>
<Filename Value="..\..\..\..\..\..\lazarus_23_215XX\fpc\source\rtl\objpas\typinfo.pp"/> <Filename Value="..\..\..\..\..\..\lazarus_23_215XX\fpc\source\rtl\objpas\typinfo.pp"/>
<UnitName Value="typinfo"/> <UnitName Value="typinfo"/>
<CursorPos X="1" Y="1"/> <CursorPos X="1" Y="1"/>
<TopLine Value="115"/> <TopLine Value="115"/>
<EditorIndex Value="10"/> <EditorIndex Value="23"/>
<UsageCount Value="41"/> <UsageCount Value="45"/>
<Loaded Value="True"/> <Loaded Value="True"/>
</Unit41> </Unit41>
<Unit42> <Unit42>
@ -344,14 +346,14 @@
<UnitName Value="user_service_intf_proxy"/> <UnitName Value="user_service_intf_proxy"/>
<CursorPos X="1" Y="1"/> <CursorPos X="1" Y="1"/>
<TopLine Value="1"/> <TopLine Value="1"/>
<UsageCount Value="29"/> <UsageCount Value="28"/>
</Unit42> </Unit42>
<Unit43> <Unit43>
<Filename Value="..\..\..\..\..\..\lazarus_23_215XX\others_package\indy\indy-10.2.0.1\fpc\Protocols\IdCustomHTTPServer.pas"/> <Filename Value="..\..\..\..\..\..\lazarus_23_215XX\others_package\indy\indy-10.2.0.1\fpc\Protocols\IdCustomHTTPServer.pas"/>
<UnitName Value="IdCustomHTTPServer"/> <UnitName Value="IdCustomHTTPServer"/>
<CursorPos X="14" Y="252"/> <CursorPos X="14" Y="252"/>
<TopLine Value="239"/> <TopLine Value="239"/>
<UsageCount Value="6"/> <UsageCount Value="5"/>
</Unit43> </Unit43>
<Unit44> <Unit44>
<Filename Value="..\..\type_lib_edtr\uabout.pas"/> <Filename Value="..\..\type_lib_edtr\uabout.pas"/>
@ -361,7 +363,7 @@
<UnitName Value="uabout"/> <UnitName Value="uabout"/>
<CursorPos X="1" Y="1"/> <CursorPos X="1" Y="1"/>
<TopLine Value="1"/> <TopLine Value="1"/>
<UsageCount Value="6"/> <UsageCount Value="5"/>
</Unit44> </Unit44>
<Unit45> <Unit45>
<Filename Value="..\..\type_lib_edtr\uwsttypelibraryedit.pas"/> <Filename Value="..\..\type_lib_edtr\uwsttypelibraryedit.pas"/>
@ -370,7 +372,7 @@
<UnitName Value="uwsttypelibraryedit"/> <UnitName Value="uwsttypelibraryedit"/>
<CursorPos X="1" Y="1"/> <CursorPos X="1" Y="1"/>
<TopLine Value="1"/> <TopLine Value="1"/>
<UsageCount Value="5"/> <UsageCount Value="4"/>
</Unit45> </Unit45>
<Unit46> <Unit46>
<Filename Value="..\..\ide\lazarus\wstimportdlg.pas"/> <Filename Value="..\..\ide\lazarus\wstimportdlg.pas"/>
@ -380,15 +382,15 @@
<UnitName Value="wstimportdlg"/> <UnitName Value="wstimportdlg"/>
<CursorPos X="27" Y="7"/> <CursorPos X="27" Y="7"/>
<TopLine Value="1"/> <TopLine Value="1"/>
<UsageCount Value="6"/> <UsageCount Value="5"/>
</Unit46> </Unit46>
<Unit47> <Unit47>
<Filename Value="..\..\indy_http_server.pas"/> <Filename Value="..\..\indy_http_server.pas"/>
<UnitName Value="indy_http_server"/> <UnitName Value="indy_http_server"/>
<CursorPos X="1" Y="317"/> <CursorPos X="1" Y="1"/>
<TopLine Value="293"/> <TopLine Value="1"/>
<EditorIndex Value="2"/> <EditorIndex Value="2"/>
<UsageCount Value="33"/> <UsageCount Value="37"/>
<Loaded Value="True"/> <Loaded Value="True"/>
</Unit47> </Unit47>
<Unit48> <Unit48>
@ -396,32 +398,32 @@
<UnitName Value="server_listener"/> <UnitName Value="server_listener"/>
<CursorPos X="28" Y="33"/> <CursorPos X="28" Y="33"/>
<TopLine Value="26"/> <TopLine Value="26"/>
<UsageCount Value="21"/> <UsageCount Value="20"/>
</Unit48> </Unit48>
<Unit49> <Unit49>
<Filename Value="..\..\..\..\..\..\lazarus_23_215XX\fpc\source\rtl\inc\aliases.inc"/> <Filename Value="..\..\..\..\..\..\lazarus_23_215XX\fpc\source\rtl\inc\aliases.inc"/>
<CursorPos X="84" Y="14"/> <CursorPos X="84" Y="14"/>
<TopLine Value="1"/> <TopLine Value="1"/>
<UsageCount Value="11"/> <UsageCount Value="10"/>
</Unit49> </Unit49>
<Unit50> <Unit50>
<Filename Value="..\..\..\..\..\..\lazarus_23_215XX\fpc\source\rtl\inc\variant.inc"/> <Filename Value="..\..\..\..\..\..\lazarus_23_215XX\fpc\source\rtl\inc\variant.inc"/>
<CursorPos X="11" Y="24"/> <CursorPos X="11" Y="24"/>
<TopLine Value="29"/> <TopLine Value="29"/>
<UsageCount Value="11"/> <UsageCount Value="10"/>
</Unit50> </Unit50>
<Unit51> <Unit51>
<Filename Value="..\..\..\..\..\..\lazarus_23_215XX\fpc\source\rtl\objpas\sysutils\osutilsh.inc"/> <Filename Value="..\..\..\..\..\..\lazarus_23_215XX\fpc\source\rtl\objpas\sysutils\osutilsh.inc"/>
<CursorPos X="53" Y="37"/> <CursorPos X="53" Y="37"/>
<TopLine Value="30"/> <TopLine Value="30"/>
<UsageCount Value="14"/> <UsageCount Value="13"/>
</Unit51> </Unit51>
<Unit52> <Unit52>
<Filename Value="..\..\..\..\..\..\lazarus_23_215XX\fpc\source\rtl\win\sysutils.pp"/> <Filename Value="..\..\..\..\..\..\lazarus_23_215XX\fpc\source\rtl\win\sysutils.pp"/>
<UnitName Value="sysutils"/> <UnitName Value="sysutils"/>
<CursorPos X="45" Y="1084"/> <CursorPos X="45" Y="1084"/>
<TopLine Value="1076"/> <TopLine Value="1076"/>
<UsageCount Value="14"/> <UsageCount Value="13"/>
</Unit52> </Unit52>
<Unit53> <Unit53>
<Filename Value="..\..\config_objects.pas"/> <Filename Value="..\..\config_objects.pas"/>
@ -429,136 +431,280 @@
<CursorPos X="59" Y="16"/> <CursorPos X="59" Y="16"/>
<TopLine Value="1"/> <TopLine Value="1"/>
<EditorIndex Value="1"/> <EditorIndex Value="1"/>
<UsageCount Value="22"/> <UsageCount Value="26"/>
<Loaded Value="True"/> <Loaded Value="True"/>
</Unit53> </Unit53>
<Unit54> <Unit54>
<Filename Value="..\..\wst_delphi.inc"/> <Filename Value="..\..\wst_delphi.inc"/>
<CursorPos X="22" Y="5"/> <CursorPos X="22" Y="5"/>
<TopLine Value="1"/> <TopLine Value="1"/>
<UsageCount Value="8"/> <UsageCount Value="7"/>
</Unit54> </Unit54>
<Unit55>
<Filename Value="..\..\indy_tcp_server.pas"/>
<IsPartOfProject Value="True"/>
<UnitName Value="indy_tcp_server"/>
<CursorPos X="1" Y="1"/>
<TopLine Value="1"/>
<EditorIndex Value="3"/>
<UsageCount Value="30"/>
<Loaded Value="True"/>
</Unit55>
<Unit56>
<Filename Value="..\..\..\..\..\..\lazarus_23_215XX\others_package\indy\indy-10.2.0.1\fpc\Core\IdTCPServer.pas"/>
<UnitName Value="IdTCPServer"/>
<CursorPos X="38" Y="32"/>
<TopLine Value="19"/>
<UsageCount Value="10"/>
</Unit56>
<Unit57>
<Filename Value="..\..\..\..\..\..\lazarus_23_215XX\others_package\indy\indy-10.2.0.1\fpc\Core\IdCustomTCPServer.pas"/>
<UnitName Value="IdCustomTCPServer"/>
<CursorPos X="74" Y="260"/>
<TopLine Value="238"/>
<EditorIndex Value="4"/>
<UsageCount Value="14"/>
<Loaded Value="True"/>
</Unit57>
<Unit58>
<Filename Value="..\..\..\..\..\..\lazarus_23_215XX\others_package\indy\indy-10.2.0.1\fpc\System\IdSys.pas"/>
<UnitName Value="IdSys"/>
<CursorPos X="1" Y="1"/>
<TopLine Value="1"/>
<EditorIndex Value="15"/>
<UsageCount Value="13"/>
<Loaded Value="True"/>
</Unit58>
<Unit59>
<Filename Value="..\..\..\..\..\..\lazarus_23_215XX\others_package\indy\indy-10.2.0.1\fpc\Core\IdThread.pas"/>
<UnitName Value="IdThread"/>
<CursorPos X="1" Y="1"/>
<TopLine Value="1"/>
<UsageCount Value="9"/>
</Unit59>
<Unit60>
<Filename Value="..\..\..\..\..\..\lazarus_23_215XX\others_package\indy\indy-10.2.0.1\fpc\Core\IdYarn.pas"/>
<UnitName Value="IdYarn"/>
<CursorPos X="1" Y="1"/>
<TopLine Value="21"/>
<UsageCount Value="9"/>
</Unit60>
<Unit61>
<Filename Value="..\..\..\..\..\..\lazarus_23_215XX\others_package\indy\indy-10.2.0.1\fpc\Core\IdTask.pas"/>
<UnitName Value="IdTask"/>
<CursorPos X="6" Y="32"/>
<TopLine Value="19"/>
<EditorIndex Value="14"/>
<UsageCount Value="13"/>
<Loaded Value="True"/>
</Unit61>
<Unit62>
<Filename Value="..\..\..\..\..\..\lazarus_23_215XX\others_package\indy\indy-10.2.0.1\fpc\Core\IdIOHandler.pas"/>
<UnitName Value="IdIOHandler"/>
<CursorPos X="3" Y="906"/>
<TopLine Value="902"/>
<UsageCount Value="10"/>
</Unit62>
<Unit63>
<Filename Value="..\..\..\..\..\..\lazarus_23_215XX\others_package\indy\indy-10.2.0.1\fpc\Core\IdBuffer.pas"/>
<UnitName Value="IdBuffer"/>
<CursorPos X="17" Y="432"/>
<TopLine Value="427"/>
<EditorIndex Value="12"/>
<UsageCount Value="13"/>
<Loaded Value="True"/>
</Unit63>
<Unit64>
<Filename Value="..\..\..\..\..\..\lazarus_23_215XX\others_package\indy\indy-10.2.0.1\fpc\Core\IdTCPConnection.pas"/>
<UnitName Value="IdTCPConnection"/>
<CursorPos X="15" Y="357"/>
<TopLine Value="340"/>
<EditorIndex Value="5"/>
<UsageCount Value="13"/>
<Loaded Value="True"/>
</Unit64>
<Unit65>
<Filename Value="..\..\..\..\..\..\lazarus_23_215XX\others_package\indy\indy-10.2.0.1\fpc\Core\IdIOHandlerSocket.pas"/>
<UnitName Value="IdIOHandlerSocket"/>
<CursorPos X="1" Y="1"/>
<TopLine Value="1"/>
<EditorIndex Value="10"/>
<UsageCount Value="13"/>
<Loaded Value="True"/>
</Unit65>
<Unit66>
<Filename Value="..\..\..\..\..\..\lazarus_23_215XX\others_package\indy\indy-10.2.0.1\fpc\Core\IdIOHandlerStack.pas"/>
<UnitName Value="IdIOHandlerStack"/>
<CursorPos X="3" Y="400"/>
<TopLine Value="438"/>
<EditorIndex Value="6"/>
<UsageCount Value="13"/>
<Loaded Value="True"/>
</Unit66>
<Unit67>
<Filename Value="..\..\..\..\..\..\lazarus_23_215XX\others_package\indy\indy-10.2.0.1\fpc\Core\IdExceptionCore.pas"/>
<UnitName Value="IdExceptionCore"/>
<CursorPos X="33" Y="108"/>
<TopLine Value="95"/>
<EditorIndex Value="9"/>
<UsageCount Value="13"/>
<Loaded Value="True"/>
</Unit67>
<Unit68>
<Filename Value="..\..\..\..\..\..\lazarus_23_215XX\others_package\indy\indy-10.2.0.1\fpc\System\IdException.pas"/>
<UnitName Value="IdException"/>
<CursorPos X="3" Y="183"/>
<TopLine Value="160"/>
<UsageCount Value="9"/>
</Unit68>
<Unit69>
<Filename Value="..\..\..\..\..\..\lazarus_23_215XX\others_package\indy\indy-10.2.0.1\fpc\System\IdObjs.pas"/>
<UnitName Value="IdObjs"/>
<CursorPos X="3" Y="94"/>
<TopLine Value="78"/>
<EditorIndex Value="11"/>
<UsageCount Value="13"/>
<Loaded Value="True"/>
</Unit69>
<Unit70>
<Filename Value="..\..\..\..\..\..\lazarus_23_215XX\others_package\indy\indy-10.2.0.1\fpc\Core\IdSocketHandle.pas"/>
<UnitName Value="IdSocketHandle"/>
<CursorPos X="1" Y="1"/>
<TopLine Value="1"/>
<EditorIndex Value="7"/>
<UsageCount Value="13"/>
<Loaded Value="True"/>
</Unit70>
<Unit71>
<Filename Value="..\..\..\..\..\..\lazarus_23_215XX\others_package\indy\indy-10.2.0.1\fpc\System\IdStack.pas"/>
<UnitName Value="IdStack"/>
<CursorPos X="14" Y="200"/>
<TopLine Value="176"/>
<EditorIndex Value="8"/>
<UsageCount Value="13"/>
<Loaded Value="True"/>
</Unit71>
</Units> </Units>
<JumpHistory Count="30" HistoryIndex="29"> <JumpHistory Count="30" HistoryIndex="29">
<Position1> <Position1>
<Filename Value="..\..\base_service_intf.pas"/> <Filename Value="..\..\indy_tcp_server.pas"/>
<Caret Line="1002" Column="23" TopLine="989"/> <Caret Line="77" Column="43" TopLine="74"/>
</Position1> </Position1>
<Position2> <Position2>
<Filename Value="..\..\base_service_intf.pas"/> <Filename Value="..\..\..\..\..\..\lazarus_23_215XX\others_package\indy\indy-10.2.0.1\fpc\Core\IdBuffer.pas"/>
<Caret Line="2094" Column="54" TopLine="2093"/> <Caret Line="521" Column="10" TopLine="514"/>
</Position2> </Position2>
<Position3> <Position3>
<Filename Value="..\..\base_service_intf.pas"/> <Filename Value="..\..\indy_tcp_server.pas"/>
<Caret Line="1004" Column="37" TopLine="996"/> <Caret Line="100" Column="6" TopLine="83"/>
</Position3> </Position3>
<Position4> <Position4>
<Filename Value="..\..\base_service_intf.pas"/> <Filename Value="..\..\indy_tcp_server.pas"/>
<Caret Line="1095" Column="1" TopLine="1070"/> <Caret Line="131" Column="9" TopLine="114"/>
</Position4> </Position4>
<Position5> <Position5>
<Filename Value="..\..\base_service_intf.pas"/> <Filename Value="..\..\indy_tcp_server.pas"/>
<Caret Line="1061" Column="23" TopLine="1048"/> <Caret Line="106" Column="24" TopLine="91"/>
</Position5> </Position5>
<Position6> <Position6>
<Filename Value="..\..\base_service_intf.pas"/> <Filename Value="..\..\indy_tcp_server.pas"/>
<Caret Line="2204" Column="1" TopLine="2192"/> <Caret Line="63" Column="77" TopLine="49"/>
</Position6> </Position6>
<Position7> <Position7>
<Filename Value="..\..\base_service_intf.pas"/> <Filename Value="..\..\indy_tcp_server.pas"/>
<Caret Line="1" Column="1" TopLine="1"/> <Caret Line="139" Column="43" TopLine="117"/>
</Position7> </Position7>
<Position8> <Position8>
<Filename Value="..\user_service_intf_imp.pas"/> <Filename Value="..\..\indy_tcp_server.pas"/>
<Caret Line="21" Column="46" TopLine="1"/> <Caret Line="139" Column="41" TopLine="117"/>
</Position8> </Position8>
<Position9> <Position9>
<Filename Value="..\..\server_service_intf.pas"/> <Filename Value="..\..\indy_tcp_server.pas"/>
<Caret Line="177" Column="52" TopLine="164"/> <Caret Line="139" Column="42" TopLine="117"/>
</Position9> </Position9>
<Position10> <Position10>
<Filename Value="..\..\base_service_intf.pas"/> <Filename Value="..\..\indy_tcp_server.pas"/>
<Caret Line="156" Column="41" TopLine="145"/> <Caret Line="79" Column="41" TopLine="63"/>
</Position10> </Position10>
<Position11> <Position11>
<Filename Value="..\..\base_service_intf.pas"/> <Filename Value="..\..\indy_tcp_server.pas"/>
<Caret Line="4398" Column="3" TopLine="4393"/> <Caret Line="75" Column="40" TopLine="63"/>
</Position11> </Position11>
<Position12> <Position12>
<Filename Value="..\..\base_service_intf.pas"/> <Filename Value="..\..\..\..\..\..\lazarus_23_215XX\others_package\indy\indy-10.2.0.1\fpc\Core\IdIOHandlerStack.pas"/>
<Caret Line="1" Column="1" TopLine="1"/> <Caret Line="361" Column="25" TopLine="359"/>
</Position12> </Position12>
<Position13> <Position13>
<Filename Value="..\..\base_service_intf.pas"/> <Filename Value="..\..\..\..\..\..\lazarus_23_215XX\others_package\indy\indy-10.2.0.1\fpc\Core\IdSocketHandle.pas"/>
<Caret Line="94" Column="30" TopLine="81"/> <Caret Line="409" Column="24" TopLine="382"/>
</Position13> </Position13>
<Position14> <Position14>
<Filename Value="..\..\base_service_intf.pas"/> <Filename Value="..\..\..\..\..\..\lazarus_23_215XX\others_package\indy\indy-10.2.0.1\fpc\Core\IdSocketHandle.pas"/>
<Caret Line="1077" Column="30" TopLine="1064"/> <Caret Line="387" Column="19" TopLine="368"/>
</Position14> </Position14>
<Position15> <Position15>
<Filename Value="..\..\base_service_intf.pas"/> <Filename Value="..\..\..\..\..\..\lazarus_23_215XX\others_package\indy\indy-10.2.0.1\fpc\Core\IdSocketHandle.pas"/>
<Caret Line="2149" Column="47" TopLine="2136"/> <Caret Line="482" Column="31" TopLine="480"/>
</Position15> </Position15>
<Position16> <Position16>
<Filename Value="..\..\base_service_intf.pas"/> <Filename Value="..\..\..\..\..\..\lazarus_23_215XX\others_package\indy\indy-10.2.0.1\fpc\Core\IdSocketHandle.pas"/>
<Caret Line="1" Column="1" TopLine="1"/> <Caret Line="204" Column="14" TopLine="188"/>
</Position16> </Position16>
<Position17> <Position17>
<Filename Value="..\..\base_service_intf.pas"/> <Filename Value="..\..\..\..\..\..\lazarus_23_215XX\others_package\indy\indy-10.2.0.1\fpc\Core\IdIOHandlerStack.pas"/>
<Caret Line="94" Column="22" TopLine="81"/> <Caret Line="361" Column="25" TopLine="359"/>
</Position17> </Position17>
<Position18> <Position18>
<Filename Value="..\..\base_service_intf.pas"/> <Filename Value="..\..\..\..\..\..\lazarus_23_215XX\others_package\indy\indy-10.2.0.1\fpc\Core\IdIOHandlerStack.pas"/>
<Caret Line="1054" Column="22" TopLine="1041"/> <Caret Line="1" Column="1" TopLine="1"/>
</Position18> </Position18>
<Position19> <Position19>
<Filename Value="..\..\base_service_intf.pas"/> <Filename Value="..\..\..\..\..\..\lazarus_23_215XX\others_package\indy\indy-10.2.0.1\fpc\Core\IdIOHandlerStack.pas"/>
<Caret Line="1077" Column="22" TopLine="1064"/> <Caret Line="493" Column="16" TopLine="490"/>
</Position19> </Position19>
<Position20> <Position20>
<Filename Value="..\..\base_service_intf.pas"/> <Filename Value="..\..\indy_tcp_server.pas"/>
<Caret Line="2149" Column="39" TopLine="2136"/> <Caret Line="75" Column="42" TopLine="63"/>
</Position20> </Position20>
<Position21> <Position21>
<Filename Value="..\..\base_service_intf.pas"/> <Filename Value="http_server.pas"/>
<Caret Line="2152" Column="18" TopLine="2139"/> <Caret Line="36" Column="22" TopLine="8"/>
</Position21> </Position21>
<Position22> <Position22>
<Filename Value="..\..\base_service_intf.pas"/> <Filename Value="http_server.pas"/>
<Caret Line="4325" Column="16" TopLine="4312"/> <Caret Line="35" Column="41" TopLine="10"/>
</Position22> </Position22>
<Position23> <Position23>
<Filename Value="..\..\base_service_intf.pas"/> <Filename Value="..\..\indy_http_server.pas"/>
<Caret Line="4341" Column="16" TopLine="4328"/> <Caret Line="313" Column="18" TopLine="288"/>
</Position23> </Position23>
<Position24> <Position24>
<Filename Value="..\..\base_service_intf.pas"/> <Filename Value="..\..\indy_tcp_server.pas"/>
<Caret Line="4439" Column="35" TopLine="4417"/> <Caret Line="114" Column="17" TopLine="94"/>
</Position24> </Position24>
<Position25> <Position25>
<Filename Value="..\..\base_service_intf.pas"/> <Filename Value="..\..\indy_tcp_server.pas"/>
<Caret Line="4457" Column="44" TopLine="4437"/> <Caret Line="16" Column="9" TopLine="1"/>
</Position25> </Position25>
<Position26> <Position26>
<Filename Value="..\..\base_service_intf.pas"/> <Filename Value="..\..\indy_tcp_server.pas"/>
<Caret Line="1" Column="1" TopLine="1"/> <Caret Line="81" Column="55" TopLine="65"/>
</Position26> </Position26>
<Position27> <Position27>
<Filename Value="..\..\base_service_intf.pas"/> <Filename Value="http_server.pas"/>
<Caret Line="94" Column="22" TopLine="81"/> <Caret Line="35" Column="41" TopLine="10"/>
</Position27> </Position27>
<Position28> <Position28>
<Filename Value="..\..\base_service_intf.pas"/> <Filename Value="..\..\indy_tcp_server.pas"/>
<Caret Line="4412" Column="5" TopLine="4381"/> <Caret Line="36" Column="15" TopLine="27"/>
</Position28> </Position28>
<Position29> <Position29>
<Filename Value="..\..\server_service_intf.pas"/> <Filename Value="http_server.pas"/>
<Caret Line="158" Column="35" TopLine="44"/> <Caret Line="15" Column="19" TopLine="10"/>
</Position29> </Position29>
<Position30> <Position30>
<Filename Value="..\..\server_service_intf.pas"/> <Filename Value="http_server.pas"/>
<Caret Line="177" Column="79" TopLine="157"/> <Caret Line="12" Column="69" TopLine="1"/>
</Position30> </Position30>
</JumpHistory> </JumpHistory>
</ProjectOptions> </ProjectOptions>
@ -570,7 +716,7 @@
</Target> </Target>
<SearchPaths> <SearchPaths>
<IncludeFiles Value="..\..\;$(LazarusDir)\others_package\indy\indy-10.2.0.1\fpc\Inc\"/> <IncludeFiles Value="..\..\;$(LazarusDir)\others_package\indy\indy-10.2.0.1\fpc\Inc\"/>
<OtherUnitFiles Value="..\;..\..\;..\..\wst_rtti_filter\"/> <OtherUnitFiles Value="..\;..\..\;..\..\wst_rtti_filter\;$(LazarusDir)\others_package\indy\indy-10.2.0.1\fpc\Core\;$(LazarusDir)\others_package\indy\indy-10.2.0.1\fpc\Protocols\;$(LazarusDir)\others_package\indy\indy-10.2.0.1\fpc\System\;$(LazarusDir)\others_package\indy\indy-10.2.0.1\fpc\Inc\"/>
<UnitOutputDirectory Value="obj"/> <UnitOutputDirectory Value="obj"/>
<SrcPath Value="$(LazarusDir)\others_package\indy\indy-10.2.0.1\fpc\Core\;$(LazarusDir)\others_package\indy\indy-10.2.0.1\fpc\Protocols\;$(LazarusDir)\others_package\indy\indy-10.2.0.1\fpc\System\;$(LazarusDir)\others_package\indy\indy-10.2.0.1\fpc\Inc\"/> <SrcPath Value="$(LazarusDir)\others_package\indy\indy-10.2.0.1\fpc\Core\;$(LazarusDir)\others_package\indy\indy-10.2.0.1\fpc\Protocols\;$(LazarusDir)\others_package\indy\indy-10.2.0.1\fpc\System\;$(LazarusDir)\others_package\indy\indy-10.2.0.1\fpc\Inc\"/>
</SearchPaths> </SearchPaths>

43
wst/trunk/samples/tcp_server/tcp_server.lpi
View File

@ -12,7 +12,7 @@
<MainUnit Value="0"/> <MainUnit Value="0"/>
<IconPath Value=".\"/> <IconPath Value=".\"/>
<TargetFileExt Value=".exe"/> <TargetFileExt Value=".exe"/>
<ActiveEditorIndexAtStart Value="0"/> <ActiveEditorIndexAtStart Value="7"/>
</General> </General>
<VersionInfo> <VersionInfo>
<ProjectVersion Value=""/> <ProjectVersion Value=""/>
@ -35,8 +35,8 @@
<Filename Value="tcp_server.pas"/> <Filename Value="tcp_server.pas"/>
<IsPartOfProject Value="True"/> <IsPartOfProject Value="True"/>
<UnitName Value="tcp_server"/> <UnitName Value="tcp_server"/>
<CursorPos X="33" Y="40"/> <CursorPos X="34" Y="52"/>
<TopLine Value="29"/> <TopLine Value="13"/>
<EditorIndex Value="0"/> <EditorIndex Value="0"/>
<UsageCount Value="84"/> <UsageCount Value="84"/>
<Loaded Value="True"/> <Loaded Value="True"/>
@ -117,7 +117,7 @@
<UnitName Value="user_service_intf"/> <UnitName Value="user_service_intf"/>
<CursorPos X="3" Y="27"/> <CursorPos X="3" Y="27"/>
<TopLine Value="5"/> <TopLine Value="5"/>
<EditorIndex Value="11"/> <EditorIndex Value="10"/>
<UsageCount Value="84"/> <UsageCount Value="84"/>
<Loaded Value="True"/> <Loaded Value="True"/>
</Unit11> </Unit11>
@ -152,7 +152,7 @@
<UnitName Value="user_service_intf_binder"/> <UnitName Value="user_service_intf_binder"/>
<CursorPos X="48" Y="34"/> <CursorPos X="48" Y="34"/>
<TopLine Value="11"/> <TopLine Value="11"/>
<EditorIndex Value="10"/> <EditorIndex Value="9"/>
<UsageCount Value="39"/> <UsageCount Value="39"/>
<Loaded Value="True"/> <Loaded Value="True"/>
</Unit15> </Unit15>
@ -218,7 +218,7 @@
<UnitName Value="server_service_intf"/> <UnitName Value="server_service_intf"/>
<CursorPos X="1" Y="1"/> <CursorPos X="1" Y="1"/>
<TopLine Value="46"/> <TopLine Value="46"/>
<EditorIndex Value="9"/> <EditorIndex Value="8"/>
<UsageCount Value="17"/> <UsageCount Value="17"/>
<Loaded Value="True"/> <Loaded Value="True"/>
</Unit25> </Unit25>
@ -233,7 +233,7 @@
<UnitName Value="user_service_intf_imp"/> <UnitName Value="user_service_intf_imp"/>
<CursorPos X="1" Y="56"/> <CursorPos X="1" Y="56"/>
<TopLine Value="40"/> <TopLine Value="40"/>
<EditorIndex Value="12"/> <EditorIndex Value="11"/>
<UsageCount Value="41"/> <UsageCount Value="41"/>
<Loaded Value="True"/> <Loaded Value="True"/>
</Unit27> </Unit27>
@ -297,11 +297,9 @@
<Unit36> <Unit36>
<Filename Value="..\..\synapse_tcp_server.pas"/> <Filename Value="..\..\synapse_tcp_server.pas"/>
<UnitName Value="synapse_tcp_server"/> <UnitName Value="synapse_tcp_server"/>
<CursorPos X="40" Y="92"/> <CursorPos X="1" Y="251"/>
<TopLine Value="67"/> <TopLine Value="237"/>
<EditorIndex Value="7"/>
<UsageCount Value="19"/> <UsageCount Value="19"/>
<Loaded Value="True"/>
</Unit36> </Unit36>
<Unit37> <Unit37>
<Filename Value="..\..\semaphore.pas"/> <Filename Value="..\..\semaphore.pas"/>
@ -378,9 +376,9 @@
<Unit47> <Unit47>
<Filename Value="..\..\server_listener.pas"/> <Filename Value="..\..\server_listener.pas"/>
<UnitName Value="server_listener"/> <UnitName Value="server_listener"/>
<CursorPos X="3" Y="28"/> <CursorPos X="37" Y="36"/>
<TopLine Value="21"/> <TopLine Value="21"/>
<EditorIndex Value="8"/> <EditorIndex Value="7"/>
<UsageCount Value="11"/> <UsageCount Value="11"/>
<Loaded Value="True"/> <Loaded Value="True"/>
</Unit47> </Unit47>
@ -393,8 +391,8 @@
<Unit49> <Unit49>
<Filename Value="..\..\..\..\..\..\lazarus_23_215XX\others_package\synapse\blcksock.pas"/> <Filename Value="..\..\..\..\..\..\lazarus_23_215XX\others_package\synapse\blcksock.pas"/>
<UnitName Value="blcksock"/> <UnitName Value="blcksock"/>
<CursorPos X="1" Y="2407"/> <CursorPos X="7" Y="1397"/>
<TopLine Value="2393"/> <TopLine Value="1375"/>
<UsageCount Value="10"/> <UsageCount Value="10"/>
</Unit49> </Unit49>
<Unit50> <Unit50>
@ -405,19 +403,11 @@
<UsageCount Value="10"/> <UsageCount Value="10"/>
</Unit50> </Unit50>
</Units> </Units>
<JumpHistory Count="3" HistoryIndex="2"> <JumpHistory Count="1" HistoryIndex="0">
<Position1> <Position1>
<Filename Value="..\..\synapse_tcp_server.pas"/>
<Caret Line="92" Column="40" TopLine="81"/>
</Position1>
<Position2>
<Filename Value="tcp_server.pas"/> <Filename Value="tcp_server.pas"/>
<Caret Line="40" Column="33" TopLine="29"/> <Caret Line="52" Column="34" TopLine="29"/>
</Position2> </Position1>
<Position3>
<Filename Value="..\..\server_service_soap.pas"/>
<Caret Line="32" Column="42" TopLine="16"/>
</Position3>
</JumpHistory> </JumpHistory>
</ProjectOptions> </ProjectOptions>
<CompilerOptions> <CompilerOptions>
@ -430,6 +420,7 @@
<IncludeFiles Value="..\..\;..\"/> <IncludeFiles Value="..\..\;..\"/>
<OtherUnitFiles Value="..\;..\..\;..\..\wst_rtti_filter\;$(LazarusDir)\others_package\synapse\"/> <OtherUnitFiles Value="..\;..\..\;..\..\wst_rtti_filter\;$(LazarusDir)\others_package\synapse\"/>
<UnitOutputDirectory Value="obj"/> <UnitOutputDirectory Value="obj"/>
<SrcPath Value="$(LazarusDir)\others_package\synapse\"/>
</SearchPaths> </SearchPaths>
<Parsing> <Parsing>
<SyntaxOptions> <SyntaxOptions>

30
wst/trunk/wst_indy9_utils.pas Normal file
View File

@ -0,0 +1,30 @@
unit wst_indy9_utils;
interface
uses SysUtils, IdTCPServer;
type
TwstIndy9Thread = class(TIdPeerThread)
protected
procedure AfterExecute; override;
procedure BeforeExecute; override;
end;
implementation
uses ActiveX;
{ TwstIndy9Thread }
procedure TwstIndy9Thread.AfterExecute;
begin
CoUninitialize();
inherited;
end;
procedure TwstIndy9Thread.BeforeExecute;
begin
inherited;
CoInitialize(nil);
end;
end.