TMyComObjectFactory = 
class
(TComObjectFactory)
  public
    
procedure
 UpdateRegistry(Register: Boolean); override;
    
// pokud se zakompiluje do exe, tak si jednotka ComServ mysli,

    
//~e jde o outprocesni com a vola registraci, takze jsem to tu prepsal,

    
//aby se to neregistrovalo

end
;


function
 CreateXMLTree:IXMLTree;
var

  Factory: TComObjectFactory;
begin

  Factory := ComClassManager.GetFactoryFromClassID(Class_XMLTreeRW);
  Result := Factory.CreateComObject(
nil
) 
as
 IXMLTree;
end
;

function
 CreateMSGRW:IMSGRW;
var

  Factory: TComObjectFactory;
begin

  Factory := ComClassManager.GetFactoryFromClassID(CLASS_MsgRW);
  Result := Factory.CreateComObject(
nil
) 
as
 IMSGRW;
end
;

function
 StringToWideStream(s:
string
):WideString;
begin

  Result := s;
end
;


{ TMyComObjectFactory }

Syntax higlighted by Syntax highlighter, available at www.4ITDevelopers.net and www.JakNaWin.com

 
public
 
void
 TTPNaplnCmb(DropDownList aCmb, Cache aPageCache) 
//ATTP

  {
 aCmb.Items.Clear();
 
string
[,] ATTP;
 ATTP = (
string
[,])(aPageCache[
"ATTP"
]);

 
for
 (
int
 i=
0
; i <= (ATTP.Length / 
2
) - 
1
; i++)
  aCmb.Items.Add(ATTP[i, 
1
].ToString());
  }

Syntax higlighted by Syntax highlighter, available at www.4ITDevelopers.net and www.JakNaWin.com

public
 
void
 InsertTopicToCache(Cache aPageCache)
{
 
//nacteni TTP temat

  DataSet ds = SelCmd(
"SELECT * FROM TTPList"
);

  
//pocet zaznamu

  
int
 PocetTTP = (
int
)(ds.Tables[
0
].Rows.Count);
  
//inicializace pole

  
string
[,] ATTP = 
new
 
string
[PocetTTP, 
2
];
  
//cyklus ktery naplni pole

  
for
 (
int
 i1 = 
0
; i1 <= PocetTTP - 
1
; i1++)
   {
ATTP[i1, 
0
] = ds.Tables[
0
].Rows[i1][
"TTPNo"
].ToString();
ATTP[i1, 
1
] = ds.Tables[
0
].Rows[i1][
"Name"
].ToString();
   }
  
//prirazeni do cache

  aPageCache[
"ATTP"
] = ATTP;
 
//nacteni TTP temat end*



 
//nacteni Articles temat

  DataSet ds2 = SelCmd(
"SELECT * FROM ArticleEnv"
);

  
//pocet zaznamu

  
int
 PocetAAT = (
int
)(ds2.Tables[
0
].Rows.Count);
  
//inicializace pole

  
string
[,] AAT = 
new
 
string
[PocetAAT, 
2
];
  
//cyklus ktery naplni pole

  
for
 (
int
 i2 = 
0
; i2 <= PocetAAT - 
1
; i2++)
   {
AAT[i2, 
0
] = ds2.Tables[
0
].Rows[i2][
"EnvNo"
].ToString();
AAT[i2, 
1
] = ds2.Tables[
0
].Rows[i2][
"Name"
].ToString();
   }
  
//prirazeni do cache

  aPageCache[
"AAT"
] = AAT;
 
//nacteni Articles temat end*


 
//nacteni Forum temat

  DataSet ds3 = SelCmd(
"SELECT * FROM ForumList"
);

  
//pocet zaznamu

  
int
 PocetAFT = (
int
)(ds3.Tables[
0
].Rows.Count);
  
//inicializace pole

  
string
[,] AFT = 
new
 
string
[PocetAFT, 
2
];
  
//cyklus ktery naplni pole

  
for
 (
int
 i3 = 
0
; i3 <= PocetAFT - 
1
; i3++)
   {
AFT[i3, 
0
] = ds3.Tables[
0
].Rows[i3][
"ForumNo"
].ToString();
AFT[i3, 
1
] = ds3.Tables[
0
].Rows[i3][
"Name"
].ToString();
   }
  
//prirazeni do cache

  aPageCache[
"AFT"
] = AFT;
 
//nacteni Forum temat end*

}

Syntax higlighted by Syntax highlighter, available at www.4ITDevelopers.net and www.JakNaWin.com