Index: freexp/xp4o.inc
===================================================================
RCS file: /server/cvs/freexp/xp4o.inc,v
retrieving revision 1.25
retrieving revision 1.26
diff -u -r1.25 -r1.26
--- freexp/xp4o.inc 2 Jan 2006 12:28:49 -0000 1.25
+++ freexp/xp4o.inc 13 Mar 2006 08:25:05 -0000 1.26
@@ -8,7 +8,7 @@
{ Die Nutzungsbedingungen fuer diesen Quelltext finden Sie in der }
{ Datei SLIZENZ.TXT oder auf www.crosspoint.de/oldlicense.html. }
{ --------------------------------------------------------------- }
-{ $Id: xp4o.inc,v 1.25 2006/01/02 12:28:49 mw Exp $ }
+{ $Id: xp4o.inc,v 1.26 2006/03/13 08:25:05 mw Exp $ }
{ XP4O - Reorganisation }
@@ -144,7 +144,7 @@
n,ndel,
nbesch : longint;
bt,dbt,
- bbt : longint;
+ bbt : integer64;
disp : string[90];
hzeit : integer16;
hzahl : boolean;
@@ -165,9 +165,9 @@
gotoxy(x+wdt+3,y+4); write(n:7);
gotoxy(x+wdt+3,y+5); write(ndel:7);
gotoxy(x+wdt+3,y+6); write(nbesch:7);
- gotoxy(x+wdt+12,y+4); write(bt div 1024:7);
- gotoxy(x+wdt+12,y+5); write(dbt div 1024:7);
- gotoxy(x+wdt+12,y+6); write(bbt div 1024:7);
+ gotoxy(x+wdt+12,y+4); write(bt/1024:9:0);
+ gotoxy(x+wdt+12,y+5); write(dbt/1024:9:0);
+ gotoxy(x+wdt+12,y+6); write(bbt/1024:9:0);
mon;
end;
@@ -234,7 +234,8 @@
if _mbrett=_brett then begin
inc(n);
dbReadN(mbase,mb_msgsize,msize);
- inc(bt,msize);
+ {inc(bt,msize);}
+ bt:=bt+msize;
dbReadN(mbase,mb_groesse,groesse);
dbReadN(mbase,mb_ablage,ablage);
dbReadN(mbase,mb_typ,typ);
@@ -258,7 +259,7 @@
hflags:=2; { Nachricht defekt }
dbWriteN(mbase,mb_halteflags,hflags);
if repair then msgaddmark;
- inc(nbesch); inc(bbt,msize);
+ inc(nbesch); {inc(bbt,msize);} bbt:=bbt+msize;
end;
dbReadN(mbase,mb_empfdatum,edat);
dbReadN(mbase,mb_unversandt,uvs);
@@ -266,7 +267,8 @@
((uvs and 1=0) and ((hflags=2) or ((hflags<>1) and htimeout)))
then begin
inc(ndel);
- inc(dbt,msize);
+ {inc(dbt,msize);}
+ dbt:=dbt+msize;
if _del and (hflags<>2) then begin
hflags:=2;
dbWriteN(mbase,mb_halteflags,hflags);
@@ -293,9 +295,9 @@
if not repair then MausInfoReorg;
wdt:=length(getres2(448,4));
msgbox(max(45,wdt+33),iif(_del,9,10),getres2(448,iif(_del,1,iif(repair,2,3))),x,y);
- mwrt(x+3,y+4,getres2(448,4)+' / KB'); { 'Nachrichten:' }
- mwrt(x+3,y+5,getres2(448,5)+' / KB'); { 'auf Löschen:' }
- mwrt(x+3,y+6,getres2(448,6)+' / KB'); { 'fehlerhaft: ' }
+ mwrt(x+3,y+4,getres2(448,4)+' / KB'); { 'Nachrichten:' }
+ mwrt(x+3,y+5,getres2(448,5)+' / KB'); { 'auf Löschen:' }
+ mwrt(x+3,y+6,getres2(448,6)+' / KB'); { 'fehlerhaft: ' }
n:=0; ndel:=0; nbesch:=0;
bt:=0; dbt:=0; bbt:=0;
getablsizes;
@@ -727,6 +729,10 @@
end;
{
$Log: xp4o.inc,v $
+ Revision 1.26 2006/03/13 08:25:05 mw
+ MW: - Beseitigung eines Anzeigefehlers beim Reorg, bei sehr großem
+ Datenbestand (mehr als 2 GB Gesamtgröße aller MPUFFER).
+
Revision 1.25 2006/01/02 12:28:49 mw
MW: - Frohes neues Jahr 2006
Index: freexp/xp4o.pas
===================================================================
RCS file: /server/cvs/freexp/xp4o.pas,v
retrieving revision 1.58
retrieving revision 1.59
diff -u -r1.58 -r1.59
--- freexp/xp4o.pas 7 Mar 2006 18:08:03 -0000 1.58
+++ freexp/xp4o.pas 13 Mar 2006 08:25:06 -0000 1.59
@@ -8,12 +8,12 @@
{ Die Nutzungsbedingungen fuer diesen Quelltext finden Sie in der }
{ Datei SLIZENZ.TXT oder auf www.crosspoint.de/oldlicense.html. }
{ --------------------------------------------------------------- }
-{ $Id: xp4o.pas,v 1.58 2006/03/07 18:08:03 mw Exp $ }
+{ $Id: xp4o.pas,v 1.59 2006/03/13 08:25:06 mw Exp $ }
{ CrossPoint - Overlayroutinen, die von XP4 aufgerufen werden }
{$I XPDEFINE.INC }
-{$O+,F+}
+{$O+,F+,E+,N+}
{.$DEFINE sDebug}
@@ -2960,6 +2960,10 @@
end.
{
$Log: xp4o.pas,v $
+ Revision 1.59 2006/03/13 08:25:06 mw
+ MW: - Beseitigung eines Anzeigefehlers beim Reorg, bei sehr großem
+ Datenbestand (mehr als 2 GB Gesamtgröße aller MPUFFER).
+
Revision 1.58 2006/03/07 18:08:03 mw
MW: - fileio.Validfilemode() kennt jetzt einen Savemode, der das
unbeabsichtigte Anlegen von LFNs verhindert.
Index: freexp/Trial/newsnap.asc
===================================================================
RCS file: /server/cvs/freexp/Trial/newsnap.asc,v
retrieving revision 1.3
retrieving revision 1.4
diff -u -r1.3 -r1.4
--- freexp/Trial/newsnap.asc 7 Mar 2006 19:00:48 -0000 1.3
+++ freexp/Trial/newsnap.asc 13 Mar 2006 08:27:08 -0000 1.4
@@ -233,16 +233,22 @@
MW: - Überarbeitete Servers.dat u.a. auf Vorschläge in c.f.d
SERVERS.INC, SERVERS.DAT
-01.02.2006:
+01.03.2006:
MW: - Wegfall der Beschränkung auf 20 anzeigbare Server im
RFC/Client-Auswahldialog.
XP9.INC
-07.02.2006:
+07.03.2006:
MW: - fileio.Validfilemode() kennt jetzt einen Savemode, der das
unbeabsichtigte Anlegen von LFNs verhindert.
FILEIO.PAS, DOCFORM.PAS, MAGGI.PAS, UUCICO.PAS, XP1O.PAS, XP1S.INC,
XP2C.PAS
XP3O.PAS, XP4.PAS, XP4O.PAS, XP7.PAS, XP9.PAS, XP9SEL.PAS, XP-FM.PAS,
XPVIEW.PAS
YUP2PKT.PAS, ZFIDO.PAS
+
+13.03.2006:
+
+MW: - Beseitigung eines Anzeigefehlers beim Reorg, bei sehr großem
+ Datenbestand (mehr als 2 GB Gesamtgröße aller MPUFFER).
+ XP4O.PAS, XP4O.INC
------------------------------------------------------------------------
FreeXP CVS-Mailingliste
CVS-List@freexp.de
http://www.freexp.de/cgi-bin/mailman/listinfo/cvs-list
