With transaction pattern (langage) - Historique des versions

Flfay : /* withP private long transaction do */

2013-03-18T09:13:53Z

withP private long transaction do

Syfre : /* withP long transaction do */

2011-09-16T12:44:05Z

withP long transaction do

Syfre : /* withP long transaction do */

2011-09-16T12:40:10Z

withP long transaction do

Syfre : /* withP private long transaction do */

2011-09-16T12:38:39Z

withP private long transaction do

Syfre : /* withP private transaction do */

2011-09-16T12:38:23Z

withP private transaction do

Syfre : /* withP private long transaction do */

2011-09-16T12:34:26Z

withP private long transaction do

Syfre : /* withP long transaction do */

2011-09-16T12:33:29Z

withP long transaction do

Syfre le 15 septembre 2011 à 13:51

2011-09-15T13:51:26Z

Syfre le 20 avril 2010 à 11:04

2010-04-20T11:04:47Z

Syfre : Page créée avec « Le pattern transaction permet d'encapsuler une transaction. ===with transaction do=== Ce pattern gère une transaction. Le code généré par ce pattern est le suivant : <… »

2010-04-20T10:04:17Z

Page créée avec « Le pattern transaction permet d'encapsuler une transaction. ===with transaction do=== Ce pattern gère une transaction. Le code généré par ce pattern est le suivant : <… »

Nouvelle page

Le pattern transaction permet d'encapsuler une transaction.

===with transaction do===
Ce pattern gère une transaction.

Le code généré par ce pattern est le suivant :

<source lang="delphi">
begin
// with transaction do
//
ClassManager.BeginTran;
try
//
glbWorkerPool.BeginParallel;
try
h.RunAnonymous(f.sAEntry);
finally
glbWorkerPool.EndParallel;
end;
//
ClassManager.Commit([]);
except
ClassManager.RollBack;
raise;
end;
end;
</source>

Exemple :

<source lang="delphi">
begin
// Create an instance
with transaction do
begin
inst := MyClass.Create;
inst.Caption := 'A new instance';
end;
end;
</source>

===with private transaction do===
Ce pattern gère une transaction privée.

Le code généré par le pattern est le suivant :

<source lang="delphi">
begin
// with private transaction do
//
old := ClassManager.NewTransContext;
try
ClassManager.BeginTran;
try
glbWorkerPool.BeginParallel;
try
h.RunAnonymous(f.sAEntry);
finally
glbWorkerPool.EndParallel;
end;
//
ClassManager.Commit([]);
except
ClassManager.RollBack;
raise;
end;
finally
ClassManager.ActivateContext(old);
end;
end;
</source>

Exemple :

<source lang="delphi">
var inst:WFClasseB;
begin
with private Transaction do
for var idx:=1 to 100 do
begin
inst := WFClasseB.Create;
inst.unCode := 'B'+inttostr(index);
inst.Caption := 'Objet B'+inttostr(index);
end;
end;
</source>

===with long transaction do===
Ce pattern gère une transaction longue.

Le code généré par ce pattern est le suivant :

<source lang="delphi">
begin
// with long(batchSize) transaction do
//
ClassManager.BeginLongTran(batchSize);
if batchSize>0 then
begin
ClassManager.CurrentTran.AutoBatch := True;
ClassManager.CurrentTran.AutoBatchOptions := [coDontShowEngineError];
end;
try
{$IFDEF PARALLEL}
glbWorkerPool.BeginParallel;
try
{$ENDIF}
h.RunAnonymous(f.sAEntry);
{$IFDEF PARALLEL}
finally
if not glbWorkerPool.EndParallel(E) then raise E;
end;
{$ENDIF}

ClassManager.CommitLongTran([coDontShowEngineError,coNoConfirmDialog]);
except
ClassManager.RollBackLongTran;
raise;
end;
end;
</source>

Exemple :

<source lang="delphi">
begin
end;
</source>

===with private long transaction do===
Ce pattern gère une transaction longue privé.

Le code généré par ce pattern est le suivant :

<source lang="delphi">
begin
// with private long(batchSize) transaction do
//
old := ClassManager.NewTransContext;
try
ClassManager.BeginLongTran(batchSize);
if batchSize>0 then
begin
ClassManager.CurrentTran.AutoBatch := True;
ClassManager.CurrentTran.AutoBatchOptions := [coDontShowEngineError];
end;
try
{$IFDEF PARALLEL}
glbWorkerPool.BeginParallel;
try
{$ENDIF}
h.RunAnonymous(f.sAEntry);
{$IFDEF PARALLEL}
finally
if not glbWorkerPool.EndParallel(E) then raise E;
end;
{$ENDIF}
//
ClassManager.CommitLongTran([coDontShowEngineError,coNoConfirmDialog]);
except
ClassManager.RollBackLongTran;
raise;
end;
finally
ClassManager.ActivateContext(old);
end;
end;
</source>

Exemple :

<source lang="delphi">
begin
end;
</source>

[[Category:Langage]]
[[Category:Code pattern]]

@@ Ligne 150 : / Ligne 150 : @@
 </source>
-{{tip|Les patterns gérant des transactions longues utilisent le mode AutoBatch}}
+{{tip|Les patterns gérant des transactions longues utilisent le mode [[TranAutoBatch_(CM)|AutoBatch]]}}
 ===withP private long transaction do===

@@ Ligne 149 : / Ligne 149 : @@
 end;
 </source>
 ===withP private long transaction do===

← Version précédente		Version du 16 septembre 2011 à 12:38
Ligne 198 :		Ligne 198 :

	[[Category:Langage]]		[[Category:Langage]]
		+	[[Category:Transaction]]
	[[Category:Code pattern]]		[[Category:Code pattern]]

@@ Ligne 42 : / Ligne 42 : @@
 ===withP private transaction do===
-Ce pattern gère une transaction privée.
+Ce pattern gère une [[Transaction privée|transaction privée]].
 Le code généré par le pattern est le suivant :

@@ Ligne 151 : / Ligne 151 : @@
 ===withP private long transaction do===
-Ce pattern gère une transaction longue privé.
+Ce pattern gère une [[Transaction privée|transaction longue privée]].
 Le code généré par ce pattern est le suivant :

@@ Ligne 192 : / Ligne 192 : @@
 </source>
 [[Category:Langage]]
 [[Category:Transaction]]
 [[Category:Code pattern]]

@@ Ligne 125 : / Ligne 125 : @@
 <source lang="delphi">
 begin
 end;
 </source>

@@ Ligne 1 : / Ligne 1 : @@
 Le pattern transaction permet d'encapsuler une transaction.
-===with transaction do===
+===withP transaction do===
 Ce pattern gère une transaction.
@@ Ligne 33 : / Ligne 33 : @@
 begin
    // Create an instance
-   with transaction do
+   withP transaction do
     begin
       inst := MyClass.Create;
@@ Ligne 41 : / Ligne 41 : @@
 </source>
-===with private transaction do===
+===withP private transaction do===
 Ce pattern gère une transaction privée.
@@ Ligne 48 : / Ligne 48 : @@
 <source lang="delphi">
 begin
-   // with private transaction do
+   // withP private transaction do
    //
    old := ClassManager.NewTransContext;
@@ Ligne 77 : / Ligne 77 : @@
 var inst:WFClasseB;
 begin
-   with private Transaction do
+   withP private Transaction do
     for var idx:=1 to 100 do
      begin
@@ Ligne 87 : / Ligne 87 : @@
 </source>
-===with long transaction do===
+===withP long transaction do===
 Ce pattern gère une transaction longue.
@@ Ligne 129 : / Ligne 129 : @@
 </source>
-===with private long transaction do===
+===withP private long transaction do===
 Ce pattern gère une transaction longue privé.
@@ Ligne 136 : / Ligne 136 : @@
 <source lang="delphi">
 begin
-   // with private long(batchSize) transaction do
+   // with privateP long(batchSize) transaction do
    //
    old := ClassManager.NewTransContext;

@@ Ligne 28 : / Ligne 28 : @@
 </source>
-Exemple :
+Exemple d'utilisation :
 <source lang="delphi">
@@ Ligne 72 : / Ligne 72 : @@
 </source>
-Exemple :
+Exemple d'utilisation :
 <source lang="delphi">
@@ Ligne 122 : / Ligne 122 : @@
 </source>
-Exemple :
+Exemple d'utilisation :
 <source lang="delphi">
@@ Ligne 169 : / Ligne 169 : @@
 </source>
-Exemple :
+Exemple d'utilisation :
 <source lang="delphi">