Die Testphase zum "Start_KorrNews_include" hat begonnen ;-)

24/05/2008 - 19:21 von Thomas Barghahn | Report spam
Hallo zusammen,

es gibt wieder etwas, was man testen könnte. ;-) Reinhard Irmer hat von
mir schon am heutigen Nachmittag das folgende Include-File bekommen.

Auch allen anderen Lesern möchte ich dieses Include nicht vorenthalten.

File: "Start_KorrNews_include.ds"

Dieser befindet sich im Verzeichnis:
"..\40tude_Dialog\Scripts\Custom\"


procedure Init_Start_KorrNews ( var StartForEmails : boolean;
var StartForNews : boolean;
var My_ONLY_KN_EXE : String;
var My_Dialog_TempFile : String;
var CheckTime : LongInt
);

begin

// -
// Configuration settings
// -

// Autor: Thomas Barghahn
// Date : 2008/05/23

// start KorrNews for emails and/or postings
// set 'true' or 'false'
StartForEmails := true;
StartForNews := true;

// path to file "ONLY_KN.EXE"
My_ONLY_KN_EXE := 'C:\Programme\Hamster\ONLY_KN.EXE';

// path to your temporary Message-file
My_Dialog_TempFile := 'C:\Programme\40tude DIALOG\temp\temp.msg';

// how much time gets KorrNews to check your message in seconds
CheckTime := 5; // seconds

// -
// End of configuration settings
// -

end;

// //
// - No user maintainable parts below this line -- //
// //

procedure Start_KorrNews ( var Message : TStringlist;
const IsEmail : Boolean
);

var StartForEmails : boolean;
StartForNews : boolean;
My_ONLY_KN_EXE : String;
My_Dialog_TempFile : String;
CheckTime : LongInt;

begin
Init_Start_KorrNews (StartForEmails, StartForNews, My_ONLY_KN_EXE, My_Dialog_TempFile, CheckTime);
if ((IsEmail=true) and (StartForEmails=true)) or
((IsEmail=false) and (StartForNews=true)) then begin
CheckTime := CheckTime * 1000;
message.savetofile (My_Dialog_TempFile);
FileExecute(0, My_ONLY_KN_EXE,
'open','Type:news Filename:"' + My_Dialog_TempFile + '"','­',1,CheckTime);
message.loadfromfile(My_Dialog_TempFile);
end; //if
end;


So *könnte* das Ereignisscript "OnBeforeSendingMessage" aussehen:


program OnBeforeSendingMessage;

//
// Date: 2008/05/24
//

uses TextFile;

{$I Trim_TestSubject_include.ds}
{$I ...}
{$I ...}
{$I Start_KorrNews_include.ds}
{$I GPGsign_include.ds}

function OnBeforeSendingMessage( var Message : TStringlist;
const Servername : string;
const IsEmail : boolean
) : boolean;

begin

// Your code goes here
result := true;
Trim_TestSubject (Message, IsEmail);
...
...
...
Start_KorrNews ( Message, IsEmail );
gpgsign ( Message, IsEmail );
end;

begin
end.


Viel Spaß beim Testen und ...

Freundliche Grüße
Thomas Barghahn
+ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++ ++
Der "Schwere Ausnahmefehler..." ist in Form dieses Postings aufgetreten!
Um diesen Fehler zu beheben, schließen Sie bitte Ihren Newsreader.
+ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++ ++
 

Lesen sie die antworten

#1 Wolfgang Bauer
24/05/2008 - 20:23 | Warnen spam
Thomas Barghahn wrote:

Hallo zusammen,
es gibt wieder etwas, was man testen könnte. ;-) Reinhard Irmer hat von
mir schon am heutigen Nachmittag das folgende Include-File bekommen.



Ein erster schneller Test ist positiv. Danke

Wolfgang
http://www.wolfgang-bauer.at

Ähnliche fragen