Archivado/Noviseda_FactuGES2
Archived
0
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Cambio de componente servidor (de TROIndyHTTPServer a TROIpHTTPServer)

Browse Source 
git-svn-id: https://192.168.0.254/svn/Proyectos.Noviseda_FactuGES2/trunk@80 f33bb606-9f5c-448d-9c99-757f00063c96
This commit is contained in:
David Arranz 2010-02-01 16:10:18 +00:00
parent f7876970c1
commit e39c524647
9 changed files with 420 additions and 476 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
Source/Base/Base.dpk
View File

@ -76,7 +76,8 @@ requires
cxExportD11,
dxPSCoreD11,
RemObjects_Indy_D11,
dxCoreD11;
dxCoreD11,
dxLayoutControlD11;
contains
uDataTableUtils in 'Utiles\uDataTableUtils.pas',

139
Source/Base/Base.dproj
View File

@ -46,43 +46,7 @@
<BorlandProject>
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Package_Options><Package_Options Name="PackageDescription">Libreria base de FactuGES</Package_Options><Package_Options Name="ImplicitBuild">False</Package_Options><Package_Options Name="DesigntimeOnly">False</Package_Options><Package_Options Name="RuntimeOnly">False</Package_Options></Package_Options><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">1</VersionInfo><VersionInfo Name="MinorVer">0</VersionInfo><VersionInfo Name="Release">0</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName"></VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName"></VersionInfoKeys><VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys></VersionInfoKeys><Excluded_Packages>
<Excluded_Packages Name="$(BDS)\bin\dcloffice2k100.bpl">Microsoft Office 2000 Sample Automation Server Wrapper Components</Excluded_Packages>
<Excluded_Packages Name="$(BDS)\bin\dclofficexp100.bpl">Microsoft Office XP Sample Automation Server Wrapper Components</Excluded_Packages>
<Excluded_Packages Name="C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\RemObjects_Indy_D11.bpl">RemObjects SDK - Indy Library</Excluded_Packages>
</Excluded_Packages><Source><Source Name="MainSource">Base.dpk</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
</ProjectExtensions>
<Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
@ -90,6 +54,57 @@
<DelphiCompile Include="Base.dpk">
<MainSource>MainSource</MainSource>
</DelphiCompile>
<DCCReference Include="..\Modulos\Articulos\adortl.dcp" />
<DCCReference Include="..\Modulos\Articulos\cxDataD11.dcp" />
<DCCReference Include="..\Modulos\Articulos\cxEditorsD11.dcp" />
<DCCReference Include="..\Modulos\Articulos\cxExportD11.dcp" />
<DCCReference Include="..\Modulos\Articulos\cxExtEditorsD11.dcp" />
<DCCReference Include="..\Modulos\Articulos\cxGridD11.dcp" />
<DCCReference Include="..\Modulos\Articulos\cxLibraryD11.dcp" />
<DCCReference Include="..\Modulos\Articulos\cxPageControlD11.dcp" />
<DCCReference Include="..\Modulos\Articulos\DataAbstract_Core_D11.dcp" />
<DCCReference Include="..\Modulos\Articulos\dbrtl.dcp" />
<DCCReference Include="..\Modulos\Articulos\dclIndyCore.dcp" />
<DCCReference Include="..\Modulos\Articulos\designide.dcp" />
<DCCReference Include="..\Modulos\Articulos\dsnap.dcp" />
<DCCReference Include="..\Modulos\Articulos\dxCoreD11.dcp" />
<DCCReference Include="..\Modulos\Articulos\dxGDIPlusD11.dcp" />
<DCCReference Include="..\Modulos\Articulos\dxLayoutControlD11.dcp" />
<DCCReference Include="..\Modulos\Articulos\dxPSCoreD11.dcp" />
<DCCReference Include="..\Modulos\Articulos\dxThemeD11.dcp" />
<DCCReference Include="..\Modulos\Articulos\GUISDK_D11R.dcp" />
<DCCReference Include="..\Modulos\Articulos\IndyCore.dcp" />
<DCCReference Include="..\Modulos\Articulos\IndyProtocols.dcp" />
<DCCReference Include="..\Modulos\Articulos\IndySystem.dcp" />
<DCCReference Include="..\Modulos\Articulos\Jcl.dcp" />
<DCCReference Include="..\Modulos\Articulos\JclVcl.dcp" />
<DCCReference Include="..\Modulos\Articulos\JSDialog100.dcp" />
<DCCReference Include="..\Modulos\Articulos\JvCmpD11R.dcp" />
<DCCReference Include="..\Modulos\Articulos\JvCoreD11R.dcp" />
<DCCReference Include="..\Modulos\Articulos\JvCtrlsD11R.dcp" />
<DCCReference Include="..\Modulos\Articulos\JvDlgsD11R.dcp" />
<DCCReference Include="..\Modulos\Articulos\JvMMD11R.dcp" />
<DCCReference Include="..\Modulos\Articulos\JvNetD11R.dcp" />
<DCCReference Include="..\Modulos\Articulos\JvPageCompsD11R.dcp" />
<DCCReference Include="..\Modulos\Articulos\JvStdCtrlsD11R.dcp" />
<DCCReference Include="..\Modulos\Articulos\JvSystemD11R.dcp" />
<DCCReference Include="..\Modulos\Articulos\pckMD5.dcp" />
<DCCReference Include="..\Modulos\Articulos\pckUCDataConnector.dcp" />
<DCCReference Include="..\Modulos\Articulos\pckUserControl_RT.dcp" />
<DCCReference Include="..\Modulos\Articulos\PngComponentsD10.dcp" />
<DCCReference Include="..\Modulos\Articulos\PNG_D10.dcp" />
<DCCReference Include="..\Modulos\Articulos\RemObjects_Core_D11.dcp" />
<DCCReference Include="..\Modulos\Articulos\RemObjects_Indy_D11.dcp" />
<DCCReference Include="..\Modulos\Articulos\rtl.dcp" />
<DCCReference Include="..\Modulos\Articulos\SpTBXLib_d11.dcp" />
<DCCReference Include="..\Modulos\Articulos\tb2k_d11.dcp" />
<DCCReference Include="..\Modulos\Articulos\vcl.dcp" />
<DCCReference Include="..\Modulos\Articulos\vclactnband.dcp" />
<DCCReference Include="..\Modulos\Articulos\vcldb.dcp" />
<DCCReference Include="..\Modulos\Articulos\vcljpg.dcp" />
<DCCReference Include="..\Modulos\Articulos\VclSmp.dcp" />
<DCCReference Include="..\Modulos\Articulos\vclx.dcp" />
<DCCReference Include="..\Modulos\Articulos\xmlrtl.dcp" />
<DCCReference Include="..\Servicios\FactuGES_Intf.pas" />
<DCCReference Include="Conexion\uConfigurarConexion.pas">
<Form>fConfigurarConexion</Form>
@ -114,56 +129,13 @@
<Form>dmBase</Form>
<DesignClass>TDataModule</DesignClass>
</DCCReference>
<DCCReference Include="Utiles\adortl.dcp" />
<DCCReference Include="Utiles\ClassRegistry\uClassRegistryUtils.pas" />
<DCCReference Include="Utiles\ClassRegistry\uEditorRegistryUtils.pas" />
<DCCReference Include="Utiles\ClassRegistry\uInformeRegistryUtils.pas" />
<DCCReference Include="Utiles\ClassRegistry\uViewRegistryUtils.pas" />
<DCCReference Include="Utiles\ClipboardUtils.pas" />
<DCCReference Include="Utiles\Ctltortf.pas" />
<DCCReference Include="Utiles\cxDataD11.dcp" />
<DCCReference Include="Utiles\cxEditorsD11.dcp" />
<DCCReference Include="Utiles\cxExportD11.dcp" />
<DCCReference Include="Utiles\cxExtEditorsD11.dcp" />
<DCCReference Include="Utiles\cxGridD11.dcp" />
<DCCReference Include="Utiles\cxLibraryD11.dcp" />
<DCCReference Include="Utiles\cxPageControlD11.dcp" />
<DCCReference Include="Utiles\DataAbstract_Core_D11.dcp" />
<DCCReference Include="Utiles\dbrtl.dcp" />
<DCCReference Include="Utiles\dclIndyCore.dcp" />
<DCCReference Include="Utiles\designide.dcp" />
<DCCReference Include="Utiles\dsnap.dcp" />
<DCCReference Include="Utiles\dxCoreD11.dcp" />
<DCCReference Include="Utiles\dxGDIPlusD11.dcp" />
<DCCReference Include="Utiles\dxPSCoreD11.dcp" />
<DCCReference Include="Utiles\dxThemeD11.dcp" />
<DCCReference Include="Utiles\GUISDK_D11R.dcp" />
<DCCReference Include="Utiles\IndyCore.dcp" />
<DCCReference Include="Utiles\IndyProtocols.dcp" />
<DCCReference Include="Utiles\IndySystem.dcp" />
<DCCReference Include="Utiles\Jcl.dcp" />
<DCCReference Include="Utiles\JclVcl.dcp" />
<DCCReference Include="Utiles\JSDialog100.dcp" />
<DCCReference Include="Utiles\JvCmpD11R.dcp" />
<DCCReference Include="Utiles\JvCoreD11R.dcp" />
<DCCReference Include="Utiles\JvCtrlsD11R.dcp" />
<DCCReference Include="Utiles\JvDlgsD11R.dcp" />
<DCCReference Include="Utiles\JvMMD11R.dcp" />
<DCCReference Include="Utiles\JvNetD11R.dcp" />
<DCCReference Include="Utiles\JvPageCompsD11R.dcp" />
<DCCReference Include="Utiles\JvStdCtrlsD11R.dcp" />
<DCCReference Include="Utiles\JvSystemD11R.dcp" />
<DCCReference Include="Utiles\MidasSpeedFix.pas" />
<DCCReference Include="Utiles\pckMD5.dcp" />
<DCCReference Include="Utiles\pckUCDataConnector.dcp" />
<DCCReference Include="Utiles\pckUserControl_RT.dcp" />
<DCCReference Include="Utiles\PngComponentsD10.dcp" />
<DCCReference Include="Utiles\PNG_D10.dcp" />
<DCCReference Include="Utiles\RemObjects_Core_D11.dcp" />
<DCCReference Include="Utiles\RemObjects_Indy_D11.dcp" />
<DCCReference Include="Utiles\rtl.dcp" />
<DCCReference Include="Utiles\SpTBXLib_d11.dcp" />
<DCCReference Include="Utiles\tb2k_d11.dcp" />
<DCCReference Include="Utiles\uAppInfoUtils.pas" />
<DCCReference Include="Utiles\uCalculosUtils.pas" />
<DCCReference Include="Utiles\uDataTableUtils.pas" />
@ -185,13 +157,6 @@
<DCCReference Include="Utiles\uSistemaFunc.pas" />
<DCCReference Include="Utiles\uStringsUtils.pas" />
<DCCReference Include="Utiles\uValidacionUtils.pas" />
<DCCReference Include="Utiles\vcl.dcp" />
<DCCReference Include="Utiles\vclactnband.dcp" />
<DCCReference Include="Utiles\vcldb.dcp" />
<DCCReference Include="Utiles\vcljpg.dcp" />
<DCCReference Include="Utiles\VclSmp.dcp" />
<DCCReference Include="Utiles\vclx.dcp" />
<DCCReference Include="Utiles\xmlrtl.dcp" />
</ItemGroup>
</Project>
<!-- EurekaLog First Line

BIN
Source/Base/Base.res
View File

Binary file not shown.

6
Source/Base/Conexion/uDataModuleConexion.dfm
View File

@ -13,9 +13,9 @@ object dmConexion: TdmConexion
UserAgent = 'RemObjects SDK'
TargetURL = 'http://localhost:8099/bin'
TrustInvalidCA = False
ServerLocators = <>
DispatchOptions = []
Left = 48
Top = 8
ServerLocators = <>
Left = 40
Top = 24
end
end

49
Source/Servicios/FactuGES_Intf.pas
View File

@ -56,6 +56,7 @@ const
{ Event ID's }
type
TSeekOrigin = Classes.TSeekOrigin; // fake declaration
{ Forward declarations }
IsrvContactos = interface;
IsrvLogin = interface;
@ -836,11 +837,10 @@ begin
if (iSource is TRdxEmpresasArray) then begin
lSource := TRdxEmpresasArray(iSource);
Clear();
Resize(lSource.Count);
for i := 0 to Count-1 do begin
Resize(lSource.Count);
for i := 0 to lSource.Count-1 do
Items[i] := lSource.Items[i];
end;
end
else begin
inherited Assign(iSource);
@ -942,8 +942,9 @@ var
i: integer;
begin
for i := 0 to Count-1 do begin
with TROSerializer(ASerializer) do
with TROSerializer(ASerializer) do begin
ReadInteger(GetArrayElementName(GetItemType, GetItemRef(i)), otSLong, lval, i);
end;
Items[i] := lval;
end;
end;
@ -966,11 +967,10 @@ begin
if (iSource is TIntegerArray) then begin
lSource := TIntegerArray(iSource);
Clear();
Resize(lSource.Count);
for i := 0 to Count-1 do begin
Resize(lSource.Count);
for i := 0 to lSource.Count-1 do
Items[i] := lSource.Items[i];
end;
end
else begin
inherited Assign(iSource);
@ -1072,8 +1072,9 @@ var
i: integer;
begin
for i := 0 to Count-1 do begin
with TROSerializer(ASerializer) do
with TROSerializer(ASerializer) do begin
ReadInteger(GetArrayElementName(GetItemType, GetItemRef(i)), otSLong, lval, i);
end;
Items[i] := lval;
end;
end;
@ -1247,7 +1248,6 @@ begin
__Message.Finalize;
__TransportChannel.Dispatch(__Message);
ListaID.Free;
__Message.Read('Result', TypeInfo(Binary), result, []);
finally
@ -1265,7 +1265,6 @@ begin
__Message.Finalize;
__TransportChannel.Dispatch(__Message);
ListaID.Free;
__Message.Read('Result', TypeInfo(Binary), result, []);
finally
@ -1599,7 +1598,6 @@ begin
__Message.Finalize;
__TransportChannel.Dispatch(__Message);
ListaID.Free;
__Message.Read('Result', TypeInfo(Binary), result, []);
finally
@ -1643,7 +1641,6 @@ begin
__Message.Finalize;
__TransportChannel.Dispatch(__Message);
ListaID.Free;
__Message.Read('Result', TypeInfo(Binary), result, []);
finally
@ -1690,7 +1687,6 @@ begin
__Message.Finalize;
__TransportChannel.Dispatch(__Message);
ListaID.Free;
__Message.Read('Result', TypeInfo(Binary), result, []);
finally
@ -1734,7 +1730,6 @@ begin
__Message.Finalize;
__TransportChannel.Dispatch(__Message);
ListaID.Free;
__Message.Read('Result', TypeInfo(Binary), result, []);
finally
@ -1786,7 +1781,6 @@ begin
__Message.Finalize;
__TransportChannel.Dispatch(__Message);
ListaID.Free;
__Message.Read('Result', TypeInfo(Binary), result, []);
finally
@ -1820,7 +1814,6 @@ begin
__Message.Finalize;
__TransportChannel.Dispatch(__Message);
ListaID.Free;
__Message.Read('Result', TypeInfo(Binary), result, []);
finally
@ -1859,7 +1852,6 @@ begin
__Message.Finalize;
__TransportChannel.Dispatch(__Message);
ListaID.Free;
__Message.Read('Result', TypeInfo(Binary), result, []);
finally
@ -1891,7 +1883,6 @@ begin
__Message.Finalize;
__TransportChannel.Dispatch(__Message);
ListaID.Free;
__Message.Read('Result', TypeInfo(Binary), result, []);
finally
@ -1911,7 +1902,6 @@ begin
__Message.Finalize;
__TransportChannel.Dispatch(__Message);
ListaID.Free;
__Message.Read('Result', TypeInfo(Binary), result, []);
finally
@ -1946,7 +1936,6 @@ begin
__Message.Finalize;
__TransportChannel.Dispatch(__Message);
ListaID.Free;
__Message.Read('Result', TypeInfo(Binary), result, []);
finally
@ -1978,7 +1967,6 @@ begin
__Message.Finalize;
__TransportChannel.Dispatch(__Message);
ListaID.Free;
__Message.Read('Result', TypeInfo(Binary), result, []);
finally
@ -2013,7 +2001,6 @@ begin
__Message.Finalize;
__TransportChannel.Dispatch(__Message);
ListaID.Free;
__Message.Read('Result', TypeInfo(Binary), result, []);
finally
@ -2235,7 +2222,6 @@ begin
__Message.Finalize;
__TransportChannel.Dispatch(__Message);
Fichero.Free;
__Message.Read('Result', TypeInfo(Boolean), result, []);
finally
@ -2308,7 +2294,6 @@ begin
__Message.Finalize;
__TransportChannel.Dispatch(__Message);
ListaIDClientes.Free;
__Message.Read('Result', TypeInfo(Binary), result, []);
finally
@ -2332,7 +2317,6 @@ begin
__Message.Finalize;
__TransportChannel.Dispatch(__Message);
ListaIDProveedores.Free;
__Message.Read('Result', TypeInfo(Binary), result, []);
finally
@ -2358,7 +2342,6 @@ begin
__Message.Finalize;
__TransportChannel.Dispatch(__Message);
ListadoIDClientes.Free;
__Message.Read('Result', TypeInfo(Binary), result, []);
finally
@ -2384,7 +2367,6 @@ begin
__Message.Finalize;
__TransportChannel.Dispatch(__Message);
ListaIDProveedores.Free;
__Message.Read('Result', TypeInfo(Binary), result, []);
finally
@ -2410,7 +2392,6 @@ begin
__Message.Finalize;
__TransportChannel.Dispatch(__Message);
ListaIDClientes.Free;
__Message.Read('Result', TypeInfo(Binary), result, []);
finally
@ -2436,7 +2417,6 @@ begin
__Message.Finalize;
__TransportChannel.Dispatch(__Message);
ListaIDProveedores.Free;
__Message.Read('Result', TypeInfo(Binary), result, []);
finally
@ -2462,7 +2442,6 @@ begin
__Message.Finalize;
__TransportChannel.Dispatch(__Message);
ListaIDClientes.Free;
__Message.Read('Result', TypeInfo(Binary), result, []);
finally
@ -2488,7 +2467,6 @@ begin
__Message.Finalize;
__TransportChannel.Dispatch(__Message);
ListaIDProveedores.Free;
__Message.Read('Result', TypeInfo(Binary), result, []);
finally
@ -2514,7 +2492,6 @@ begin
__Message.Finalize;
__TransportChannel.Dispatch(__Message);
ListaIDClientes.Free;
__Message.Read('Result', TypeInfo(Binary), result, []);
finally
@ -2540,7 +2517,6 @@ begin
__Message.Finalize;
__TransportChannel.Dispatch(__Message);
ListaIDProveedores.Free;
__Message.Read('Result', TypeInfo(Binary), result, []);
finally
@ -2564,7 +2540,6 @@ begin
__Message.Finalize;
__TransportChannel.Dispatch(__Message);
ListaIDClientes.Free;
__Message.Read('Result', TypeInfo(Binary), result, []);
finally
@ -2588,7 +2563,6 @@ begin
__Message.Finalize;
__TransportChannel.Dispatch(__Message);
ListaIDProveedores.Free;
__Message.Read('Result', TypeInfo(Binary), result, []);
finally
@ -2631,6 +2605,9 @@ initialization
RegisterProxyClass(IsrvGestorDocumentos_IID, TsrvGestorDocumentos_Proxy);
RegisterProxyClass(IsrvGestorInformes_IID, TsrvGestorInformes_Proxy);
RegisterEnumMapping(TROEnumMapping.Create('ColumnSortDirection', 'Ascending', 'Ascending'));
RegisterEnumMapping(TROEnumMapping.Create('ColumnSortDirection', 'Descending', 'Descending'));
RegisterEnumMapping(TROEnumMapping.Create('TRdxAlmacenes', 'Presupuestos', 'Presupuestos'));
finalization
UnregisterROClass(TRdxLoginInfo);
@ -2666,4 +2643,6 @@ finalization
UnregisterProxyClass(IsrvGestorDocumentos_IID);
UnregisterProxyClass(IsrvGestorInformes_IID);
UnRegisterEnumMappings();
end.

1
Source/Servicios/FactuGES_Invk.pas
View File

@ -20,6 +20,7 @@ uses
{Generated:} FactuGES_Intf;
type
TSeekOrigin = Classes.TSeekOrigin; // fake declaration
TsrvContactos_Invoker = class(TDataAbstractService_Invoker)
private
protected

12
Source/Servidor/FactuGES_Server.dproj
View File

@ -1,4 +1,4 @@
<?xml version="1.0" encoding="utf-8"?>
<?xml version="1.0" encoding="utf-8"?>
<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
<PropertyGroup>
<ProjectGuid>{ebdcd25d-40d7-4146-91ec-a0ea4aa1dcd1}</ProjectGuid>
@ -26,16 +26,16 @@
<DCC_GenerateStackFrames>True</DCC_GenerateStackFrames>
<DCC_DebugInfoInExe>True</DCC_DebugInfoInExe>
<DCC_DebugVN>True</DCC_DebugVN>
<DCC_UnitSearchPath>$(BDS)\lib\Debug</DCC_UnitSearchPath>
<DCC_ResourcePath>$(BDS)\lib\Debug</DCC_ResourcePath>
<DCC_ObjPath>$(BDS)\lib\Debug</DCC_ObjPath>
<DCC_IncludePath>$(BDS)\lib\Debug</DCC_IncludePath>
<DCC_UnitSearchPath>$(BDS)\Lib\Debug\Indy10;$(BDS)\lib\Debug</DCC_UnitSearchPath>
<DCC_ResourcePath>$(BDS)\Lib\Debug\Indy10;$(BDS)\lib\Debug</DCC_ResourcePath>
<DCC_ObjPath>$(BDS)\Lib\Debug\Indy10;$(BDS)\lib\Debug</DCC_ObjPath>
<DCC_IncludePath>$(BDS)\Lib\Debug\Indy10;$(BDS)\lib\Debug</DCC_IncludePath>
</PropertyGroup>
<ProjectExtensions>
<Borland.Personality>Delphi.Personality</Borland.Personality>
<Borland.ProjectType />
<BorlandProject>
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters><Parameters Name="RunParams">/standalone</Parameters></Parameters><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">1</VersionInfo><VersionInfo Name="MinorVer">0</VersionInfo><VersionInfo Name="Release">0</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName"></VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName"></VersionInfoKeys><VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys><VersionInfoKeys Name="CompileDate">miércoles, 20 de enero de 2010 19:52</VersionInfoKeys></VersionInfoKeys><Excluded_Packages></Excluded_Packages><Source><Source Name="MainSource">FactuGES_Server.dpr</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters><Parameters Name="RunParams">/standalone</Parameters></Parameters><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">1</VersionInfo><VersionInfo Name="MinorVer">0</VersionInfo><VersionInfo Name="Release">0</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName"></VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName"></VersionInfoKeys><VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys><VersionInfoKeys Name="CompileDate">lunes, 01 de febrero de 2010 9:47</VersionInfoKeys></VersionInfoKeys><Excluded_Packages></Excluded_Packages><Source><Source Name="MainSource">FactuGES_Server.dpr</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
</ProjectExtensions>
<Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
<ItemGroup>

28
Source/Servidor/uDataModuleServer.dfm
View File

@ -4,21 +4,6 @@ object dmServer: TdmServer
OnDestroy = DataModuleDestroy
Height = 285
Width = 292
object HTTPServer: TROIndyHTTPServer
Dispatchers = <
item
Name = 'BINMessage'
Message = BINMessage
Enabled = True
PathInfo = 'Bin'
end>
OnBeforeServerActivate = HTTPServerBeforeServerActivate
IndyServer.Bindings = <>
IndyServer.DefaultPort = 8099
Port = 8099
Left = 40
Top = 16
end
object BINMessage: TROBinMessage
Envelopes = <>
Left = 136
@ -76,4 +61,17 @@ object dmServer: TdmServer
Left = 224
Top = 80
end
object HTTPServer: TROIpHTTPServer
Dispatchers = <
item
Name = 'BINMessage'
Message = BINMessage
Enabled = True
PathInfo = 'Bin'
end>
Port = 8099
SendExceptionsAs500 = False
Left = 40
Top = 16
end
end

4
Source/Servidor/uDataModuleServer.pas
View File

@ -6,7 +6,7 @@ uses
SysUtils, Classes, SyncObjs, uDAEngine, uDAIBXDriver, JvLogFile, uROSessions,
JvComponentBase, JvAppStorage, JvAppRegistryStorage, uDAClasses,
uDADriverManager, uROClient, uROBinMessage, uROServer, uROIndyTCPServer,
uROIndyHTTPServer, uDAInterfaces;
uROIndyHTTPServer, uDAInterfaces, uROIpHttpServer;
const
SERVER_PORT = '8099'; // Puerto por defecto
@ -16,7 +16,6 @@ const
type
TdmServer = class(TDataModule)
HTTPServer: TROIndyHTTPServer;
BINMessage: TROBinMessage;
DriverManager: TDADriverManager;
JvAppRegistryStorage: TJvAppRegistryStorage;
@ -24,6 +23,7 @@ type
JvLogFile1: TJvLogFile;
DAIBXDriver: TDAIBXDriver;
ConnectionManager: TDAConnectionManager;
HTTPServer: TROIpHTTPServer;
procedure DataModuleCreate(Sender: TObject);
procedure DataModuleDestroy(Sender: TObject);
procedure HTTPServerBeforeServerActivate(Sender: TObject);