Library Wgtplug;

Uses SysUtils, WinTypes, WinProcs;

Const  md_Forward = $01;
       md_Bin     = $02;
       md_Comp    = $04;
       md_Trans   = $08;
       md_NoUnDel = $10;
.      md_Voice   = $20;

{--- MsgFlags ---}

       mf_Ack      = $01;
       mf_Private  = $02;
       mf_Bulletin = $04;
       mf_System   = $08;
       mf_Readed   = $10;
       mf_Hold     = $20;   {--- dodano 17.6.97 ---}

       HFILE_ERROR = $FFFF;

Type TSenderStr = String[6];
     TBoardStr  = String[8];
     TBidStr    = String[12];
     TMBXStr    = String[40];
     TTitleStr  = String[80];



CONST fa_OK            = $0000;
      fa_Hold          = $0001;
      fa_Delete        = $0002;

      TheFilterVersion = $0100;

      TheFilterInfo    = 'Beta-Demofilter fuer WinBox und WinGT >= 3.00 (c)1997 Gerd Mitlaender';

Function FilterVersion: Word; export;
         Begin
            Result:= TheFilterVersion;
         end;

Function FilterInfo(AInfo: PChar; MaxLen: Word): Word; export;
         Begin
            Try
               StrPCopy(AInfo, Copy(TheFilterInfo, 1, MaxLen));
               Result:= strlen(AInfo);
            Except
               Result:= 0;
            end;
         end;

function FilterProc(Var BID         :  TBidStr;
                    Var Destination :  TBoardStr;
                    DestIsCall      :  Bool;
                    Var Sender      :  TSenderStr; { 24 senders call   }
                    SenderIsCall    :  Bool;
                    Var MBX_field   :  TMBXStr;    { 32 @mbx           }
                    MBXIsCall       :  Bool;
                    Var Title       :  TTitleStr;  { 74 subject        }
                    Var Datum       :  LongInt;
                    Var TXDatum     :  LongInt;
                    Var LifeTime    :  Word;       {164 lifetime       }
                    Var TXlifetime  :  Word;       {166 original lifetime }
                    Var BodyCRC     :  Word;       {168 for PACSAT broadc.}
                    Start           :  LongInt;    {170 offset in .IFO}
                    PackSize        :  LongInt;    {174 stored size   }
                    Size            :  LongInt;    {178 original size }
                    Var RXQrg       :  LongInt;    {182 receive QRG   }
                    Var RXFrom      :  TSenderStr; {186 received from  }
                    Var Deleted     :  boolean;    {194 delete flag    }
                    Var Mode        :  byte;       {195 binary, comp.type}
                    Var Level       :  byte;       {196 min. level for read}
                    Var Fwdct       :  byte;       {197 n * forwarded  }
                    Var Gate        :  byte;       {198 via tnc (unused)}
                    Var Msgflags    :  byte;       {199 special        }

                    Var AHandle     : THandle;
                    Var TheStart,
                        TheLen      : LongInt): WORD; export;
         Var AText  : Array[0..255] of Char;
             Written: Word;
         Begin

            Try
               Result:= fa_OK;
            {--- szukanie do końca zbioru ---}
               _llseek(AHandle, 0, 2);
            {--- pisanie tekstu ---}
               StrCopy(AText, #13#10#13#10'Filtered by: '#13#10'*** ');
               StrCat(AText, TheFilterInfo);
               StrCat(AText, ' ***'#13#10);
            {--- ustalenie nowej długoœci zbioru ---}
               Written:= _lwrite(AHandle, AText, StrLen(AText));
               If (Written <> HFILE_ERROR) Then
               Begin
                  TheLen := TheLen + Written;
               end;
            Except
               Result:= fa_OK;
            end;
         end;

Exports FilterVersion,
        FilterInfo,
        FilterProc;

begin
end.

Unit Comp;
{$A+,B-,D+,E-,F-,G+,I-,L-,N-,O-,Q-,R-,S-,T-,V-}
{$C MOVEABLE DEMANDLOAD DISCARDABLE}
Interface
Function COMPVersion: Word;
Function COMPCode(Const Source; Len1: Word; Var Dest; Size: Word): Word;
Function COMPDecode(Const Source; Len1: Word; Var Dest; Size: Word): Word;
Implementation
   Function COMPVersion; External 'COMPDLL';
   Function COMPCode;    External 'COMPDLL';
   Function COMPDecode;  External 'COMPDLL';
end.

OE1KDA @OE1KDA     de:SP6FIG 09.01.1995 09:35  10      0 Bytes
treœć.....