|
//------------------------------------------------------------
//
// 1. ...
//
//------------------------------------------------------------
unit UtilitiesOwn;
//----------------------------------------------------------------------------
//
//----------------------------------------------------------------------------
interface
//----------------------------------------------------------------------------
//
//----------------------------------------------------------------------------
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ComCtrls, jpeg, ExtCtrls, StrUtils, WinSock,
Registry, ShellAPI, Math, DateUtils, Utilities;
//----------------------------------------------------------------------------
//
//----------------------------------------------------------------------------
const
Agenda = 1;
Autor = 2;
Columbo = 3;
Egmont = 4;
Productnumber = chr(Autor+ord('0'));
em = 1000;
maxoptsize = 512*1024; // maximale Gr��e
EvaluationPeriod = 30;
optkeylen = 8;
Debug = true;
Soft = 'Software';
Mickey = 'Microsoft';
ActiveSet = 'Active Setup';
InstalledComp = 'Installed Components';
BigGain = 'Windows\CurrentVersion';
FileMax = 32;
KeyMax = 128;
KeyMaxLong = 16384;
SMacAdr = 'macadr.cmd';
SMacOut = 'macadr.dat';
BorderWidth = 10;
largeprime = 1023;
histmax = 24;
// external values
OptionDll = 'OptionsDll.dll';
Installkey = '';
//----------------------------------------------------------------------------
// initial and login data
//----------------------------------------------------------------------------
//server = 'medicamentaria.de';
//login = 'medicamenmtaria';
//passwort = 'jdd878';
//homedir = '/Medicamentaria/';
server = 'center-apotheke.de';
login = 'centerapotheke';
passwort = 'md4989';
homedir = '/Center-Apotheke/';
artikeldir = 'Artikel/';
picsmalldir = 'Artikel\small\';
//----------------------------------------------------------------------------
// rtf formats
//----------------------------------------------------------------------------
Paragraph = '\par';
SetSize = '\f1\fs';
SetColor = '\cf'; SetNoColor = '\cf0';
Underline = '\ul '; UnderLineOff = '\ulnone';
Bold = '\b'; BoldOff = '\b0';
Strike = '\strike'; StrikeOff = '\strike0';
Italic = '\i'; ItalicOff = '\i0';
Font1 = '\f1 ';
Font2 = '\i\f2 '; Font0 = '\i0';
SetBackColor = '\f1\cb1\cf'; SetNoBackColor = ''; // funktioniert nicht
Omega = '\u963?'; // Achtung: Zahl (963) ist dezimal
Summenzeichen = '\u931?'; // dito
Produktzeichen = '\u928?'; // dito
//----------------------------------------------------------------------------
// certain keys
//----------------------------------------------------------------------------
Key_Return = 13;
Key_Enter = 13;
Key_LineFeed = 10;
Key_BackSpace = 8;
Key_Escape = 27;
Key_Tab = 9;
Key_Blank = 32;
Key_F1 = 112;
Key_F2 = 113;
Key_F3 = 114;
Key_F4 = 115;
Key_F5 = 116;
Key_F6 = 117;
Key_F7 = 118;
Key_F8 = 119;
Key_F9 = 120;
Key_F10 = 121;
Key_F11 = 122;
Key_F12 = 123;
Key_Insert = 45;
Key_Delete = 46;
Key_Up = 38;
Key_Down = 40;
Key_Left = 37;
Key_Right = 39;
Key_Ctrl = 17;
Key_Shift = 16;
crlf = chr(Key_Return)+chr(Key_Linefeed);
//----------------------------------------------------------------------------
// Program Parameters
//----------------------------------------------------------------------------
Title = 'Autor';
Version = '0.7.11';
CopyRight = '�';
Trademark = '�';
SOptions = 'AutorOptions.Dat';
SAutor = 'autor.exe';
SamplesDir = 'Workspace\Sample Programs\';
ExecDir = 'Workspace\Object Files\';
Workspace = 'Workspace\';
Remotedirectory = 'Workspace\Remote Files\';
CopyLib = 'Copy Library\';
XMLTags:array [1..9] of String =
('OVERHEAD', 'HEADLINE', 'DATE', 'ABSTRACT', 'TEXT',
'AUTHOR', 'PICBIG', 'PICCREDIT', 'PICSMALL');
//----------------------------------------------------------------------------
//
//----------------------------------------------------------------------------
type
//----------------------------------------------------------------------------
// Languages and Sounds
//----------------------------------------------------------------------------
Texte = String[KeyMax];
RTFTexte = array[0..KeyMaxLong] of char;
ArticleType = (Angebote,Aktuelles,Empfehlung,Heute,Gestern,Vorgestern);
//----------------------------------------------------------------------------
// Options
//----------------------------------------------------------------------------
OwnOptions= record
case boolean of
false: (cc:array[0..maxoptsize] of char);
true: (
CheckSum : LongInt;
inited : char;
WindowsProductId : string[24];
SecretKey : String[48];
ActualArticle : ArticleType;
DocumentName : String[24];
Groupname : String[24];
Overhead : Texte;
Headline : Texte;
ElementName : array [1..9] of String[24];
name : array [Angebote .. Vorgestern] of Texte;
Bild : array [Angebote .. Vorgestern] of Texte;
xmlfile : array [Angebote .. Vorgestern] of Texte;
Ueberschrift : array [Angebote .. Vorgestern] of RTFTexte;
RtfText : array [Angebote .. Vorgestern] of RTFTexte;
UeberschriftXML : array [Angebote .. Vorgestern] of RTFTexte;
TextXML : array [Angebote .. Vorgestern] of RTFTexte;
readonly : array [Angebote .. Vorgestern] of boolean;
HTMLPrefix : RTFTexte;
HTMLSuffix : RTFTexte;
Internetsite : Texte;
Ftpsite : Texte;
Ftpuser : Texte;
Ftppassword : Texte;
RemoteDir : Texte;
RemotePicSmallDir : Texte;
RemotePicBigDir : Texte;
LocalDir : Texte;
BackgroundColor : TColor;
ButtonColor : TColor;
ButtonSize : integer;
FontName : String[48];
Font2Name : String[48];
FontColor : TColor;
FontStyle : TFontStyles;
FontSize : integer;
Width : integer;
Height : integer;
BWidth : integer;
BHeight : integer;
Top : integer;
Left : integer;
Horsplitter : integer;
VerSplitter : integer;
ProgDir : String[KeyMax];
Workspace : String[KeyMax];
HomeDir : String[KeyMax];
SampleDir : String[KeyMax];
ExportDir : String[KeyMax];
ExecDir : String[KeyMax];
FirstUse : TDate;
LastUse : TDate;
DaysUsed : integer;
DaysEffectivlyUsed : integer;
Activated : boolean;
Edition : Editions;
Ablauf : TDate;
FuncSearch : word;
FuncReplace : word;
FuncContReplace : word;
FuncHelp : word;
endofopts : boolean;)
end;
//----------------------------------------------------------------------------
// Utility Functions
//----------------------------------------------------------------------------
function Lengthrtf(T:RtfTexte):longint;
Procedure DefaultOptions(var Opt:OwnOptions);
//----------------------------------------------------------------------------
// Constants
//----------------------------------------------------------------------------
const
EditionStrings:array[Editions] of String=
('Shareware','Standard','Professional','Enterprise');
//----------------------------------------------------------------------------
// Global Vars
//----------------------------------------------------------------------------
var
BatchRun,Recursive : boolean;
LogFileOpen : boolean;
LogFile : TExt;
Im_Root : integer;
Im_Branch : integer;
Im_Level : integer;
Im_State : integer;
im_Error : integer;
Dom : array [0..2] of char;
P6,P7 : PChar;
InitialMemory : longint;
MS : TMemoryStatus;
Lizenzmeldung : boolean;
Opening, Closing, Loading : boolean;
Inspectorkey : String;
//----------------------------------------------------------------------------
// I m p l e m e n t a t i o n
//----------------------------------------------------------------------------
implementation
{------------------------------------------------------------------}
{- Procedure PutOptions -}
{- set Options -}
{------------------------------------------------------------------}
function Lengthrtf(T:RtfTexte):longint;
var l,e:integer;
begin
e:=0;
for l:=0 to KeyMaxLong do
if T[l]=chr(0) then e:=l;
Lengthrtf:=e
end;
{------------------------------------------------------------------}
{- Procedure KeyFile -}
{- set Cryptokey -}
{------------------------------------------------------------------}
Function KeyFile(var Key:array of char):String;
var i,nu:integer;KeyF:String;
begin
KeyF:=getDiskId(PChar(MidStr(GetCurrentDir,1,3)));
KeyF:=StringReplace(KeyF,' ','X',[rfReplaceAll]);
KeyF:='O'+KeyF;
for i:=1 to Length(KeyF) do begin
nu:=(ord(KeyF[i])+7) mod 26;
nu:=nu+ord('a');
KeyF[i]:=chr(nu);
end;
KeyFile:='F'+KeyF+'.key';
end;
{------------------------------------------------------------------}
{- Procedure DefaultOptions -}
{- set Options -}
{------------------------------------------------------------------}
Procedure DefaultOptions(var Opt:OwnOptions);
var i:Integer;Prog:String;a:ArticleType;
begin
for i:=1 to maxoptsize do Opt.cc[i] := ' ';
Opt.homeDir := ExtractFilePath(Optionsfilename(Title));
Opt.ProgDir := ExtractFilePath(ParamStr(0));
Opt.SampleDir := Opt.ProgDir+SamplesDir;
Opt.Workspace := Opt.ProgDir+Workspace;
Opt.ExecDir := Opt.ProgDir+ExecDir;
Opt.ExportDir := GetCurrentDir;
//-----------------------------------------------------------------------------
// Licensing
//-----------------------------------------------------------------------------
Opt.WindowsProductId := GetWinProductId;
Opt.Activated := false;
Opt.FirstUse := DateOf(Now);
Opt.LastUse := DateOf(Now);
Opt.DaysEffectivlyUsed := 0;
Opt.DaysUsed := 0;
Opt.Edition := Shareware;
Opt.Activated := false;
//-----------------------------------------------------------------------------
// optionen
//-----------------------------------------------------------------------------
Opt.Overhead := '';
Opt.Headline := '';
Opt.ActualArticle := Heute;
Opt.DocumentName := 'COCOCO';
Opt.Groupname := 'ARTICLE';
for i:=1 to 9 do
Opt.ElementName[i] := XMLTags[i];
Opt.LocalDir := ExtractFilePath(OptionsFilename(Title))+artikeldir;
Opt.RemoteDir := '/httpdocs/'+artikeldir;
Opt.RemotePicSmallDir := 'small/';
Opt.RemotePicBigDir := 'big/';
Opt.HTMLPrefix := '';
Opt.HTMLSuffix := '';
Opt.Internetsite := 'www.'+server+':9080'+homedir;
Opt.Ftpsite := 'ftp.'+server;
Opt.Ftpuser := login;
Opt.Ftppassword := passwort;
//
Opt.name[Angebote] := 'Angebote';
Opt.name[Aktuelles] := 'Aktuelles';
Opt.name[Empfehlung] := 'Empfehlung';
Opt.name[Heute] := 'Heute';
Opt.name[Gestern] := 'Gestern';
Opt.name[Vorgestern] := 'Vorgestern';
Opt.xmlfile[Angebote] := 'angebote.xml';
Opt.xmlfile[Aktuelles] := 'aktuelles.xml';
Opt.xmlfile[Empfehlung] := 'empfehlung.xml';
Opt.xmlfile[Heute] := 'today.xml';
Opt.xmlfile[Gestern] := 'yesterday.xml';
Opt.xmlfile[Vorgestern] := 'beforeyesterday.xml';
for a:=low(ArticleType) to High(ArticleType) do begin
Opt.Ueberschrift[a] := '';
Opt.Bild[a] := '';
Opt.RtfText[a] := '';
Opt.readonly[a] := false;
end;
for a:=Heute to Vorgestern do
Opt.readonly[a] := true;
//
Opt.Width := 650;
Opt.Height := 360;
Opt.BWidth := 800;
Opt.BHeight := 600;
Opt.Horsplitter := Opt.Height div 3;
Opt.VerSplitter := Opt.Width div 3;
Opt.Top := (Screen.Height) div 8;
Opt.Left := (screen.Width div 2) - (Opt.Width div 2);
//
Prog := Opt.ProgDir + SAutor;
Opt.BackgroundColor := clWhite;
Opt.ButtonSize := 5;
Opt.FontName := 'Fixedsys';
Opt.FontName := 'Courier New';
Opt.FontSize := 9;
Opt.Edition := Shareware;
Opt.FuncHelp := Key_F1;
Opt.FuncSearch := Key_F3;
Opt.FuncReplace := Key_F4;
Opt.FuncContReplace := Key_F5;
Opt.FuncHelp := Key_F1;
Opt.EndofOpts := True;
Opt.inited := 'j';
Opt.CheckSum := 0;
end;
{------------------------------------------------------------------}
{- -}
{- Ende dieser Quelle -}
{- -}
{------------------------------------------------------------------}
end.
¤ Dauer der Verarbeitung: 0.6 Sekunden
(vorverarbeitet)
¤
|
Haftungshinweis
Die Informationen auf dieser Webseite wurden
nach bestem Wissen sorgfältig zusammengestellt. Es wird jedoch weder Vollständigkeit, noch Richtigkeit,
noch Qualität der bereit gestellten Informationen zugesichert.
Bemerkung:
Die farbliche Syntaxdarstellung ist noch experimentell.
|
